|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »PNSTPREL.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNSTPREL.K«
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.
0x000…026 Line {l1=0x24, l2=»1110 PROC STIPREL(STREG,MLRUM,XS,YS)«, l3=0x24}
0x026…065 Line {l1=0x3d, l2=»1120 REM ****************************************************«, l3=0x3d}
0x065…0a4 Line {l1=0x3d, l2=»1130 REM *STIPREL TEGNER RELATIVT EN STIPLET LINIE TIL XS,YS*«, l3=0x3d}
0x0a4…0e3 Line {l1=0x3d, l2=»1140 REM *MED STREGLÆNGDEN STREG OG MELLEMRUMSLÆNGDEN MLRUM.*«, l3=0x3d}
0x0e3…122 Line {l1=0x3d, l2=»1150 REM ****************************************************«, l3=0x3d}
0x122…13b Line {l1=0x17, l2=»1160 PROC ROUF(T,A,R,S)«, l3=0x17}
0x13b…15a Line {l1=0x1d, l2=»1170 T=T+S;D=A;A=ROU(T);R=A-D«, l3=0x1d}
0x15a…16f Line {l1=0x13, l2=»1180 ENDPROC ;ROUF.«, l3=0x13}
0x16f…188 Line {l1=0x17, l2=»1190 L=SQR(XS**2+YS**2)«, l3=0x17}
0x188…1a2 Line {l1=0x18, l2=»1200 XL,YL,XA,YA,XR,YR=0«, l3=0x18}
0x1a2…1c3 Line {l1=0x1f, l2=»1210 IF L<>0 AND STREG<>0 THEN «, l3=0x1f}
0x1c3…201 Line {l1=0x3c, l2=»1220 SX=STREG*XS/L;SY=STREG*YS/L;MX=MLRUM*XS/L;MY=MLRUM*YS/L«, l3=0x3c}
0x201…21e Line {l1=0x1b, l2=»1230 EXEC ROUF(XL,XA,XR,SX)«, l3=0x1b}
0x21e…23b Line {l1=0x1b, l2=»1240 EXEC ROUF(YL,YA,YR,SY)«, l3=0x1b}
0x23b…275 Line {l1=0x38, l2=»1250 WHILE SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) DO «, l3=0x38}
0x275…28f Line {l1=0x18, l2=»1260 EXEC TEGNREL(XR,YR)«, l3=0x18}
0x28f…2ac Line {l1=0x1b, l2=»1270 EXEC ROUF(XL,XA,XR,MX)«, l3=0x1b}
0x2ac…2c9 Line {l1=0x1b, l2=»1280 EXEC ROUF(YL,YA,YR,MY)«, l3=0x1b}
0x2c9…2e3 Line {l1=0x18, l2=»1290 EXEC FLYTREL(XR,YR)«, l3=0x18}
0x2e3…300 Line {l1=0x1b, l2=»1300 EXEC ROUF(XL,XA,XR,SX)«, l3=0x1b}
0x300…31d Line {l1=0x1b, l2=»1310 EXEC ROUF(YL,YA,YR,SY)«, l3=0x1b}
0x31d…32d Line {l1=0x0e, l2=»1320 ENDWHILE «, l3=0x0e}
0x32d…34b Line {l1=0x1c, l2=»1330 EXEC ROUF(XL,XA,XR,-SX)«, l3=0x1c}
0x34b…369 Line {l1=0x1c, l2=»1340 EXEC ROUF(YL,YA,YR,-SY)«, l3=0x1c}
0x369…3a2 Line {l1=0x37, l2=»1350 IF SGN(XS-XA)=SGN(XS) AND SGN(YS-YA)=SGN(YS) THEN «, l3=0x37}
0x3a2…3c6 Line {l1=0x22, l2=»1360 EXEC TEGNREL((XS-XA),(YS-YA))«, l3=0x22}
0x3c6…3d2 Line {l1=0x0a, l2=»1370 ELSE «, l3=0x0a}
0x3d2…3f6 Line {l1=0x22, l2=»1380 EXEC FLYTREL((XS-XA),(YS-YA))«, l3=0x22}
0x3f6…403 Line {l1=0x0b, l2=»1390 ENDIF «, l3=0x0b}
0x403…40f Line {l1=0x0a, l2=»1400 ELSE «, l3=0x0a}
0x40f…429 Line {l1=0x18, l2=»1410 EXEC FLYTREL(XS,YS)«, l3=0x18}
0x429…436 Line {l1=0x0b, l2=»1420 ENDIF «, l3=0x0b}
0x436…44e Line {l1=0x16, l2=»1430 ENDPROC ;STIPREL.«, l3=0x16}
0x44e…460 00 00 44 50 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 ┆ DPROC ;STIPREL. ┆
0x460…480 00 00 30 30 20 45 58 45 43 20 46 4c 59 54 52 45 4c 28 58 53 2c 59 53 29 18 0b 31 33 31 30 20 45 ┆ 00 EXEC FLYTREL(XS,YS) 1310 E┆
0x480…4a0 4e 44 49 46 20 0b 16 31 33 32 30 20 45 4e 44 50 52 4f 43 20 3b 53 54 49 50 52 45 4c 2e 16 00 00 ┆NDIF 1320 ENDPROC ;STIPREL. ┆
0x4a0…4c0 33 33 30 20 52 45 4d 20 2a 53 54 49 50 52 45 4c 20 54 45 47 4e 45 52 20 52 45 4c 41 54 49 56 54 ┆330 REM *STIPREL TEGNER RELATIVT┆
0x4c0…4e0 20 45 4e 20 53 54 49 50 4c 45 54 20 4c 49 4e 49 45 20 54 49 4c 20 58 53 2c 59 58 2a 3d 3d 31 33 ┆ EN STIPLET LINIE TIL XS,YX*==13┆
0x4e0…500 34 30 20 52 45 4d 20 2a 4d 45 44 20 53 54 52 45 47 4c 5b 4e 47 44 45 4e 20 53 54 52 45 47 20 4f ┆40 REM *MED STREGLÆNGDEN STREG O┆
0x500…520 47 20 4d 45 4c 4c 45 4d 52 55 4d 53 4c 5b 4e 47 44 45 4e 20 4d 4c 52 55 4d 2e 2a 3d 00 00 00 00 ┆G MELLEMRUMSLÆNGDEN MLRUM.*= ┆
0x520…540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x25…]