Les routines Tortue

' Solar3 ou comment transformer un flocon en soleils
rem ============================================================================
Init_Turtle()  : ' Indispensable
' Votre programme débute ici

dim n%,x%,y%,nb%,couleur%
x%=50 : y%=0 : nb%=7


 couleur%=0 :' mono-color (Jaune)
' couleur%=1 :' multi-color
' couleur%=2 :' ton bleu-vert
' couleur%=3 :' ton bleu-rouge
' couleur%=4 :' ton jaune-vert-rouge

rem ============================================================================
if couleur%<1 then CouleurCrayon(220,220,0)
for n%=1 to 3
  y%=y%+8
  x%=x%-65
if n%=3 then x%=90 : y%=135 : nb%=nb%+1
  Flocon_Koch()
next n%
caption 0,"terminé"
end

rem ============================================================================
SUB Flocon_Koch()
    dim_local i
    Position_XY(x%,y% )  : Turn_Right(90)
    while i < nb%
        PUSH(4) :  Koch() : TURN_Right(130) : i = i + 1
    end_while
END_SUB

rem ============================================================================
SUB Koch()
    IF VARIABLE("iterations")=0 THEN DIM iterations
    IF EXIT_RECURSE=1 THEN EXIT_SUB
    POP(0) : iterations = POP_return
    if iterations = 0
        forward(5)
    else
        PUSH(iterations - 1) : Koch()
        Turn_Left(60)  : PUSH(iterations - 1) : Koch()
        Turn_right(130) : PUSH(iterations - 1) : Koch()
        Turn_Left(54)  : PUSH(iterations - 1) : Koch()
    end_if
    CLR() : POP(0): iterations = POP_RETURN
END_SUB

rem ============================================================================
' Astuce de Nardo26
SUB PUSH(v)
    if couleur%=1 then CouleurCrayon(rnd(255),rnd(255),rnd(255))
    if couleur%=2 then CouleurCrayon(rnd(100),rnd(255),rnd(255))
    if couleur%=3 then CouleurCrayon(rnd(255),rnd(100),rnd(255))
    if couleur%=4 then CouleurCrayon(rnd(255),rnd(255),rnd(100))
    IF VARIABLE("PILE")=0
        DIM PILE: PILE = NUMBER_OBJECTS + 1 : DLIST PILE
        DIM EXIT_RECURSE : EXIT_RECURSE=0
    END_IF
    ITEM_ADD PILE,v
    IF INKEY$<>"" THEN EXIT_RECURSE=1:CLEAR PILE: EXIT_SUB
    WAIT 1 : ' pour éviter de saturer l'UC
END_SUB

SUB POP(n)
  IF VARIABLE("POP_return")=0 THEN DIM POP_return
  IF COUNT(PILE)<>0 THEN POP_return=VAL(ITEM_READ$(PILE,COUNT(PILE)-n))
END_SUB

SUB CLR()
  IF COUNT(PILE)<>0 THEN ITEM_DELETE PILE,COUNT(PILE)
END_SUB


rem ============================================================================
'  !!!!!  LA COMMANDE A NE PAS OUBLIER      !!!!!
#Include "Include_Turtle.bas"
rem =========================== FIN ============================================

' Solar3 ou comment transformer un flocon en soleils
rem ============================================================================
Init_Turtle()  : ' Indispensable
' Votre programme débute ici

dim n%,x%,y%,nb%
x%=50 : y%=0 : nb%=7
alpha 10 : font_bold 10 : font_size 10,24 : font_color 10,255,0,0

rem ============================================================================
CouleurCrayon(220,220,0)
for n%=1 to 3
  y%=y%+8
  x%=x%-65
if n%=3 then x%=90 : y%=135 : nb%=nb%+1
  Flocon_Koch()
next n%
for n% = 1 to 25
   position_XY(x%+10,0)     : CO(10*n%,2*n%,5*n%)
   position_XY(x%-100,100)  : CO(0,10*n%,10*n%)
   position_XY(x%-100,-100) : CO(10*n%,0,10*n%)
   pause 500
next n%
caption 0,"terminé"
caption 10," !!! C'est tout pour aujourdh'ui !!!"
end

rem ============================================================================
SUB Flocon_Koch()
    dim_local i
    Position_XY(x%,y% )  : Turn_Right(90)
    while i < nb%
        PUSH(4) :  Koch() : TURN_Right(130) : i = i + 1
    end_while

END_SUB

rem ============================================================================
SUB Koch()
    IF VARIABLE("iterations")=0 THEN DIM iterations
    IF EXIT_RECURSE=1 THEN EXIT_SUB
    POP(0) : iterations = POP_return
    if iterations = 0
        forward(5)
    else
        PUSH(iterations - 1) : Koch()
        Turn_Left(60)  : PUSH(iterations - 1) : Koch()
        Turn_right(130) : PUSH(iterations - 1) : Koch()
        Turn_Left(54)  : PUSH(iterations - 1) : Koch()
    end_if
    CLR() : POP(0): iterations = POP_RETURN
END_SUB

rem ============================================================================
' Astuce de Nardo26
SUB PUSH(v)
    IF VARIABLE("PILE")=0
        DIM PILE: PILE = NUMBER_OBJECTS + 1 : DLIST PILE
        DIM EXIT_RECURSE : EXIT_RECURSE=0
    END_IF
    ITEM_ADD PILE,v
    IF INKEY$<>"" THEN EXIT_RECURSE=1:CLEAR PILE: EXIT_SUB
    WAIT 1 : ' pour éviter de saturer l'UC
END_SUB

SUB POP(n)
  IF VARIABLE("POP_return")=0 THEN DIM POP_return
  IF COUNT(PILE)<>0 THEN POP_return=VAL(ITEM_READ$(PILE,COUNT(PILE)-n))
END_SUB

SUB CLR()
  IF COUNT(PILE)<>0 THEN ITEM_DELETE PILE,COUNT(PILE)
END_SUB


rem ============================================================================
'  !!!!!  LA COMMANDE A NE PAS OUBLIER      !!!!!
#Include "Include_Turtle.bas"
rem =========================== FIN ============================================