1000 SCREEN 1:KEY OFF:P=ATN(1)/45 : REM WINKEL ZU ARCUS UMRECHNUNGSFAKTOR 1010 FOR WW=360 TO 10 STEP -10:AA=WW*P : REM 36 BILDER 1011 SLX=200:SLY=100:SRX=240:SRY=100:MX=.5*(SLX+SRX):RR=.5*(SRX-SLX):KR=5 1012 SUX=100:SUY= 80:SOX=100:SOY=120:MY=.5*(SUY+SOY):GR=400 1014 LX= MX+RR*COS(( WW+180)*P): LY=SLY+RR*SIN(( WW+180)*P) 1015 RX= MX+RR*COS(( WW )*P): RY=SRY+RR*SIN(( WW )*P) 1016 UX=SUX+RR*COS(( WW+270)*P): UY= MY+RR*SIN(( WW+270)*P) 1017 OX=SOX+RR*COS(( WW+ 90)*P): OY= MY+RR*SIN(( WW+ 90)*P) 1020 FOR W= 0 TO 350 STEP 10: A= W*P : REM 36 FELDLINIEN IN EINEM BILD 1030 X=LX+KR*COS(A):Y=LY+KR*SIN(A):C=0 : REM BEGINN DER ERSTEN ITERATIONSSCHLEIFE 1040 DLX=X- LX:DLY=Y- LY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1041 DRX=X- RX:DRY=Y- RY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1042 DUX=X- UX:DUY=Y- UY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1043 DOX=X- OX:DOY=Y- OY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1044 KLX= MX+RR*COS(((DL-KR)*.75+WW+180)*P):KLY=SLY+RR*SIN(((DL-KR)*.75+WW+180)*P) 1045 KRX= MX+RR*COS(((DR-KR)*.75+WW )*P):KRY=SRY+RR*SIN(((DR-KR)*.75+WW )*P) 1046 KUX=SUX+RR*COS(((DU-KR)*.75+WW+270)*P):KUY= MY+RR*SIN(((DU-KR)*.75+WW+270)*P) 1047 KOX=SOX+RR*COS(((DO-KR)*.75+WW+ 90)*P):KOY= MY+RR*SIN(((DO-KR)*.75+WW+ 90)*P) 1048 DLX=X-KLX:DLY=Y-KLY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1049 DRX=X-KRX:DRY=Y-KRY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1050 DUX=X-KUX:DUY=Y-KUY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1051 DOX=X-KOX:DOY=Y-KOY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1060 FL= 1/DLQ:FLX=FL*DLX/DL:FLY=FL*DLY/DL 1070 FR=-1/DRQ:FRX=FR*DRX/DR:FRY=FR*DRY/DR 1073 FU= 1/DUQ:FUX=FU*DUX/DU:FUY=FU*DUY/DU 1076 FO=-1/DOQ:FOX=FO*DOX/DO:FOY=FO*DOY/DO 1080 FX=FLX+FRX+FUX+FOX:FY=FLY+FRY+FUY+FOY:F=SQR(FX^2+FY^2):EX=FX/F:EY=FY/F 1090 IF ((C<(GR*3))AND(DL(KR+1.5))AND(DO>(KR+1.5))) THEN X=X+EX:Y=Y+EY:PSET(X,Y),3:C=C+1:GOTO 1040 1130 X=RX+KR*COS(A):Y=RY+KR*SIN(A):C=0 : REM BEGINN DER ZWEITEN ITERATIONSSCHLEIFE 1140 DLX=X- LX:DLY=Y- LY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1141 DRX=X- RX:DRY=Y- RY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1142 DUX=X- UX:DUY=Y- UY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1143 DOX=X- OX:DOY=Y- OY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1144 KLX= MX+RR*COS(((DL-KR)*.75+WW+180)*P):KLY=SLY+RR*SIN(((DL-KR)*.75+WW+180)*P) 1145 KRX= MX+RR*COS(((DR-KR)*.75+WW )*P):KRY=SRY+RR*SIN(((DR-KR)*.75+WW )*P) 1146 KUX=SUX+RR*COS(((DU-KR)*.75+WW+270)*P):KUY= MY+RR*SIN(((DU-KR)*.75+WW+270)*P) 1147 KOX=SOX+RR*COS(((DO-KR)*.75+WW+ 90)*P):KOY= MY+RR*SIN(((DO-KR)*.75+WW+ 90)*P) 1148 DLX=X-KLX:DLY=Y-KLY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1149 DRX=X-KRX:DRY=Y-KRY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1150 DUX=X-KUX:DUY=Y-KUY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1151 DOX=X-KOX:DOY=Y-KOY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1160 FL=-1/DLQ:FLX=FL*DLX/DL:FLY=FL*DLY/DL 1170 FR= 1/DRQ:FRX=FR*DRX/DR:FRY=FR*DRY/DR 1173 FU=-1/DUQ:FUX=FU*DUX/DU:FUY=FU*DUY/DU 1176 FO= 1/DOQ:FOX=FO*DOX/DO:FOY=FO*DOY/DO 1180 FX=FLX+FRX+FUX+FOX:FY=FLY+FRY+FUY+FOY:F=SQR(FX^2+FY^2):EX=FX/F:EY=FY/F 1190 IF ((C<(GR*3))AND(DR(KR+1.5))AND(DU>(KR+1.5))) THEN X=X+EX:Y=Y+EY:PSET(X,Y),3:C=C+1:GOTO 1140 1230 X=UX+KR*COS(A):Y=UY+KR*SIN(A):C=0 : REM BEGINN DER DRITTEN ITERATIONSSCHLEIFE 1240 DLX=X- LX:DLY=Y- LY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1241 DRX=X- RX:DRY=Y- RY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1242 DUX=X- UX:DUY=Y- UY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1243 DOX=X- OX:DOY=Y- OY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1244 KLX= MX+RR*COS(((DL-KR)*.75+WW+180)*P):KLY=SLY+RR*SIN(((DL-KR)*.75+WW+180)*P) 1245 KRX= MX+RR*COS(((DR-KR)*.75+WW )*P):KRY=SRY+RR*SIN(((DR-KR)*.75+WW )*P) 1246 KUX=SUX+RR*COS(((DU-KR)*.75+WW+270)*P):KUY= MY+RR*SIN(((DU-KR)*.75+WW+270)*P) 1247 KOX=SOX+RR*COS(((DO-KR)*.75+WW+ 90)*P):KOY= MY+RR*SIN(((DO-KR)*.75+WW+ 90)*P) 1248 DLX=X-KLX:DLY=Y-KLY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1249 DRX=X-KRX:DRY=Y-KRY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1250 DUX=X-KUX:DUY=Y-KUY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1251 DOX=X-KOX:DOY=Y-KOY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1260 FL= 1/DLQ:FLX=FL*DLX/DL:FLY=FL*DLY/DL 1270 FR=-1/DRQ:FRX=FR*DRX/DR:FRY=FR*DRY/DR 1273 FU= 1/DUQ:FUX=FU*DUX/DU:FUY=FU*DUY/DU 1276 FO=-1/DOQ:FOX=FO*DOX/DO:FOY=FO*DOY/DO 1280 FX=FLX+FRX+FUX+FOX:FY=FLY+FRY+FUY+FOY:F=SQR(FX^2+FY^2):EX=FX/F:EY=FY/F 1290 IF ((C<(GR*3))AND(DU(KR+1.5))AND(DO>(KR+1.5))) THEN X=X+EX:Y=Y+EY:PSET(X,Y),3:C=C+1:GOTO 1240 1330 X=OX+KR*COS(A):Y=OY+KR*SIN(A):C=0 : REM BEGINN DER VIERTEN ITERATIONSSCHLEIFE 1340 DLX=X- LX:DLY=Y- LY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1341 DRX=X- RX:DRY=Y- RY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1342 DUX=X- UX:DUY=Y- UY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1343 DOX=X- OX:DOY=Y- OY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1344 KLX= MX+RR*COS(((DL-KR)*.75+WW+180)*P):KLY=SLY+RR*SIN(((DL-KR)*.75+WW+180)*P) 1345 KRX= MX+RR*COS(((DR-KR)*.75+WW )*P):KRY=SRY+RR*SIN(((DR-KR)*.75+WW )*P) 1346 KUX=SUX+RR*COS(((DU-KR)*.75+WW+270)*P):KUY= MY+RR*SIN(((DU-KR)*.75+WW+270)*P) 1347 KOX=SOX+RR*COS(((DO-KR)*.75+WW+ 90)*P):KOY= MY+RR*SIN(((DO-KR)*.75+WW+ 90)*P) 1348 DLX=X-KLX:DLY=Y-KLY:DLQ=DLX^2+DLY^2:DL=SQR(DLQ) 1349 DRX=X-KRX:DRY=Y-KRY:DRQ=DRX^2+DRY^2:DR=SQR(DRQ) 1350 DUX=X-KUX:DUY=Y-KUY:DUQ=DUX^2+DUY^2:DU=SQR(DUQ) 1351 DOX=X-KOX:DOY=Y-KOY:DOQ=DOX^2+DOY^2:DO=SQR(DOQ) 1360 FL=-1/DLQ:FLX=FL*DLX/DL:FLY=FL*DLY/DL 1370 FR= 1/DRQ:FRX=FR*DRX/DR:FRY=FR*DRY/DR 1373 FU=-1/DUQ:FUX=FU*DUX/DU:FUY=FU*DUY/DU 1376 FO= 1/DOQ:FOX=FO*DOX/DO:FOY=FO*DOY/DO 1380 FX=FLX+FRX+FUX+FOX:FY=FLY+FRY+FUY+FOY:F=SQR(FX^2+FY^2):EX=FX/F:EY=FY/F 1390 IF ((C<(GR*3))AND(DO(KR+1.5))AND(DU>(KR+1.5))) THEN X=X+EX:Y=Y+EY:PSET(X,Y),3:C=C+1:GOTO 1340 1700 NEXT W : REM NAECHSTE FELDLINIE 1706 CIRCLE(LX,LY),KR,1,,,1:CIRCLE(RX,RY),KR,2,,,1:CIRCLE(UX,UY),KR,1,,,1:CIRCLE(OX,OY),KR,2,,,1 1708 PAINT(LX,LY), 1,1 : PAINT(RX,RY), 2,2 : PAINT(UX,UY), 1,1 : PAINT(OX,OY), 2,2 1710 LINE(0,0)-(319,199),0,B:LINE(1,1)-(318,198),3,B 1720 LOCATE 2,2:PRINT RIGHT$(STR$(37-WW*.1),2); 1900 IF INKEY$="" THEN 1900 1920 CLS:NEXT WW : REM NAECHSTES BILD 2000 SCREEN 0:CLS:KEY OFF:WIDTH 80:LIST:END 2100 REM SAVE"MAGFELD8.BAS",A