|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ N T ┃
Length: 4127 (0x101f)
Types: TextFile
Names: »NEW_FILE«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
pour spirale prendre { avec pas:N angle:theta.
tortue levetaplume.
tortue vaenx:500 y:350.
tortue baissetaplume.
1 a:N repeter:{
avec L.
tortue avance:L/0.
tortue aGauche:theta.
}.
}.
pour angle prendre 60.
tortue tonangle:0.
tortue baissetaplume.
pour a prendre 1.
pour b prendre 2.
pour c prendre 3.
pour d prendre 4.
pour e prendre 5.
pour fractale prendre {avec iteration:i pas:p.
(i=5 )
sivrai:{
fractale iteration:4 pas:p.
tortue adroite:angle.
fractale iteration:4 pas:p.
tortue agauche:(angle*2 ).
fractale iteration:4 pas:p.
tortue adroite:angle.
fractale iteration:4 pas:p.
} .
(i=4) sivrai:{
fractale iteration:3 pas:p.
tortue adroite:angle.
fractale iteration:3 pas:p.
tortue agauche:(angle*2 ).
fractale iteration:3 pas:p.
tortue adroite:angle.
fractale iteration:3 pas:p.
} .
(i=3) sivrai:{
fractale iteration:2 pas:p.
tortue adroite:angle.
fractale iteration:2 pas:p.
tortue agauche:(angle*2 ).
fractale iteration:2 pas:p.
tortue adroite:angle.
fractale iteration:2 pas:p.
}.
(i=2) sivrai:{
fractale iteration:1 pas:p.
tortue adroite:angle.
fractale iteration:1 pas:p.
tortue agauche:(angle*2 ).
fractale iteration:1 pas:p.
tortue adroite:angle.
fractale iteration:1 pas:p.
}.
(i=1) sivrai:{
tortue avance:p
}.
}.
tortue tonX:150 y:500.
tortue tataille:5.
fractale iteration:5 pas:4.
tortue agauche:(angle*2 ).
fractale iteration:5 pas:4.
tortue agauche:(angle *2).
fractale iteration:5 pas:4.