Publicité
230 PXX(ST, NP(ST)+1)=PXX(ST, 1)
240 PYX(ST, NP(ST)+1)=PYX(ST, 1)
250 NEXT ST
260 CLS:CJ=RESTE(1):CJ=RESTE(2)
270 CJ*RESTE( 3 ) : INK 1,2 : ST = 1
280 60SUB 350
290 LOCATE 1,1
300 EVERY 25, 1 GOSUB 510
310 EVERY 15, 2 GOSUB 550
320 EVERY 5 , 3 GOSUB 590
330 ERASE CX, CY, R, LC, NP, PXX, PYX: NEXT
340 GOTO 340
350 CXX=CX(ST)iCYXaCY(ST): LC(ST)=0
360 FOR X7 . = 1 TQ NP(ST)
370 MOVE CXy.,CY7.
380 DRAW CXX+PXX (ST, XX) , CY7.+PY7. (ST, XX) , 1 + (ST M O D 3)
390 DRAW CXX+PXX(ST, XX+1 ) , CYX+PYX(ST, XX+1 ) , 1 + ( ST M OD 3)
400 NEXT XX
410 IF ST=5 THEN RETURN
420 LC( ST)=0
430 CX( ST+1) =CX( ST) +1. 5I R( ST) * SI N( SA+LC( ST) )
440 CY(ST+1) =CY( ST) +1. 5I R( ST) I C0S( SA+LC( ST) )
450 S T = * S T +1
460 GOSUB 350
470 ST=ST-1
480 LC(ST)=LC(ST)+2*SA
490 IF (LC (ST) M O D 3 6 0 ) 0 0 THEN 430
500 RETURN
510 I K(1)=1+RND*25
520 IF I K ( 1 ) = I K (2)
530 INK 1 , IK ( 1 )
540 RETURN
550 I K ( 2 ) =l+RNDI25
560 IF I K (2) = IK ( 1 ) O R IK ( 2 ) = IK ( 3 ) THEN 550
570 INK 2 , I K (2)
580 RETURN
590 I K (3) = 1+RNDI25
600 IF IK ( 3 ) = IK ( 1 ) O R IK ( 3 ) = IK ( 2 ) THEN 590
610 INK 3 , I K (3)
620 RETURN
Chapitre 1 Page 64
O R IK ( 1 ) = IK ( 3 ) THEN 510
Cours élém entaire
Publicité
