DataMuseum.dk

top - download

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

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

Text

1110 PROC STIPREL(STREG,MLRUM,XS,YS)
1120 REM ****************************************************
1130 REM *STIPREL TEGNER RELATIVT EN STIPLET LINIE TIL XS,YS*
1140 REM *MED STREGLÆNGDEN STREG OG MELLEMRUMSLÆNGDEN MLRUM.*
1150 REM ****************************************************
1160 PROC ROUF(T,A,R,S)
1170 T=T+S;D=A;A=ROU(T);R=A-D
1180 ENDPROC ;ROUF.
1190 L=SQR(XS**2+YS**2)
1200 XL,YL,XA,YA,XR,YR=0
1210 IF L<>0 AND STREG<>0 THEN 
1220 SX=STREG*XS/L;SY=STREG*YS/L;MX=MLRUM*XS/L;MY=MLRUM*YS/L
1230 EXEC ROUF(XL,XA,XR,SX)
1240 EXEC ROUF(YL,YA,YR,SY)
1250 WHILE SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) DO 
1260 EXEC TEGNREL(XR,YR)
1270 EXEC ROUF(XL,XA,XR,MX)
1280 EXEC ROUF(YL,YA,YR,MY)
1290 EXEC FLYTREL(XR,YR)
1300 EXEC ROUF(XL,XA,XR,SX)
1310 EXEC ROUF(YL,YA,YR,SY)
1320 ENDWHILE 
1330 EXEC ROUF(XL,XA,XR,-SX)
1340 EXEC ROUF(YL,YA,YR,-SY)
1350 IF SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) THEN 
1360 EXEC TEGNREL((XS-XA),(YS-YA))
1370 ELSE 
1380 EXEC FLYTREL((XS-XA),(YS-YA))
1390 ENDIF 
1400 ELSE 
1410 EXEC FLYTREL(XS,YS)
1420 ENDIF 
1430 ENDPROC ;STIPREL.