|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4126 (0x101e)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦1c3abf87d⟧
└─⟦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.