1 REM Ins{nd av Bengt Deimert <5439> 1986-06-10 14.37.07 10 ! save PIPELINE 11 ! +----------------------------------------- 12 ! ! Siberian PipeLine av DANIEL DEIMERT 13 ! ! Medlemsnummer : 5439 14 ! ! 15 ! ! [ndra G[RNA i programmet om det finns 16 ! ! t.ex. en b{ttre l|sning p} att fylla 17 ! ! cirkeln. Skriv ett brev till mig p} 18 ! ! MSG och tala om {ndringen eller 19 ! ! eventuella synpunkter p} programmet. 20 ! +----------------------------------------- 21 ! 22 ! 30 ! Siberian PipeLine 40 ! Efter ett program till: Apple Macintosh 50 ! 60 ! 70 ! 80 EXTEND : FLOAT 90 RANDOMIZE 100 ! 110 ! ------------------------------------ 120 ! 130 DEF FNNewdirection% 140 ! 150 ! 160 V}gr{triktning%=(RND*10%)-5% 170 Lodr{triktning%=(RND*10%)-4.5 180 IF Posx%+V}gr{triktning%>494% THEN Z%=FNNewdirection% 190 IF Posx%+V}gr{triktning%<21% THEN Z%=FNNewdirection% 200 IF Posy%+Lodr{triktning%>219% THEN Z%=FNNewdirection% 210 IF Posy%+Lodr{triktning%<16% THEN Z%=FNNewdirection% 220 ! 230 ! 240 RETURN 0% 250 FNEND 260 ! 270 ! ------------------------------------ 280 ! 290 DEF FNPaintcirkle% 300 ! 310 ! 320 FOR S=0 TO PI STEP .1 330 X%=SIN(S)*15%+Posx% 340 X1%=-SIN(S)*15%+Posx% 350 Y%=COS(S)*10%+Posy% 360 FGPOINT X%,Y%,1% 370 FGLINE X1%,Y%,1% 380 NEXT S 390 FOR S=0 TO 2*PI STEP .1 400 X%=SIN(S)*15%+Posx% 410 Y%=COS(S)*10%+Posy% 420 IF S=0 THEN FGPOINT X%,Y%,2% 430 FGLINE X%,Y%,2% 440 NEXT S 450 ! 460 ! 470 RETURN 0% 480 FNEND 490 ! 500 ! ------------------------------------- 510 ! 520 FGCTL GBLK+GWHT+BLU ! monokrom sk{rm 530 FGPOINT 0%,0%,0% 540 FGFILL 511%,239% 550 ; CHR$(12%) 560 Posx%=255% : Posy%=120% 570 Z%=FNNewdirection% 580 WHILE -1% 590 WHILE (Posx%>20% AND Posx%<495% AND Posy%>15% AND Posy%<220% AND Counter%<50%) 600 Z%=FNPaintcirkle% 610 Posx%=Posx%+V}gr{triktning% 620 Posy%=Posy%+Lodr{triktning% 630 Counter%=Counter%+1% 640 WEND 650 Counter%=0% 660 Z%=FNPaintcirkle% 670 Z%=FNNewdirection% 680 Posx%=Posx%+V}gr{triktning% 690 Posy%=Posy%+Lodr{triktning% 700 WEND