DataMuseum.dk

top - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNPARKRV«

└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
    └─ ⟦this⟧ »PNPARKRV« 

Text

3320 PROC PARKRV(TST,TSL,DT,XSKA,YSKA,XNUL,YNUL,LITY,AKSR,XTE,YTE)
3330 REM *********************************************************
3340 REM *PARKRV FORETAGER EN AFBILDNING AF PARAMETERFREMSTILLIN-*
3350 REM *GEN ANGIVET I PROCEDUREN PARM MED PARAMETEREN T LØBENDE*
3360 REM *FRA TST TIL TSL MED ET STEP PÅ DT. HVIS XSKA OG/ELLER  *
3370 REM *YSKA ER MINDRE END NUL FORETAGES EN AUTOMATISK BESTEM- *
3380 REM *MELSE AF SKALERINGEN OG NULPUNKTET. ELLERS BENNYTTES EN*
3390 REM *SKALERING BESTEMT AF XSKA,YSKA, OG ET NULPUNKT BESTEMT *
3400 REM *AF XNUL,YNUL. KURVEN TEGNES MED DEN AF LITY VALGTE LI- *
3410 REM *NIETYPE. HVIS AKSR ER LIG MED EEN UDTEGNES DESUDEN     *
3420 REM *KOORDINATAKSER MED TEKSTERNE XTE,YTE PÅSAT, OG PLOTTE- *
3430 REM *RENS NULPUNKT FASTSÆTTES.                              *
3440 REM *********************************************************
3450 LIN$="LIN";XS=XSKA;YS=YSKA;XØ=XNUL;YØ=YNUL
3460 XMI,YMI=9.2E18;XMX,YMX=-9.2E18
3470 FOR TK=TST TO TSL STEP DT
3480 EXEC PARM(TK,XK,YK)
3490 IF XK<=XMI THEN XMI=XK
3500 IF XK=>XMX THEN XMX=XK
3510 IF YK<=YMI THEN YMI=YK
3520 IF YK=>YMX THEN YMX=YK
3530 NEXT TK
3540 EXEC KOSYS(XMI,XMX,YMI,YMX,XS,YS,XØ,YØ,LIN$,LIN$,AKSR,XTE$,YTE$)
3550 EXEC PARM(T,XK,YK)
3560 EXEC FLYTABS((XK*XS+XØ),(YK*YS+YØ))
3570 FOR TK=TST TO TSL STEP DT
3580 EXEC PARM(TK,XK,YK)
3590 EXEC TEGNABS(LITY,(XK*XS+XØ),(YK*YS+YØ))
3600 NEXT TK
3610 EXEC PENOP
3620 ENDPROC ;PARKRV.