|
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: ┃ M T ┃
Length: 3033 (0xbd9)
Types: TextFile
Names: »MY_FILE«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
pour tortueA prendre tortue clone.
pour tortueC prendre tortue clone.
tortueA tonx:200 y:200.
pour tortueD prendre tortue clone.
tortueD tonx:400 randomize y:400 randomize.
pour achille prendre tortueD.
pour paris prendre tortueA.
pour vrai prendre (0<1).
pour taille prendre 150.
POUR STYLOD PRENDRE STYLO CLONE.
pour carre prendre { avec X:PX Y:PY Cote:L tortue:turtle.
turtle levetaplume.
turtle tonx:PX y:PY.
turtle tonangle:0.
turtle baissetaplume.
pour zozo prendre "Miam !".
styloD ecrit:zozo.
4 fois:{
turtle avance:L.
turtle adroite:90
}.
}.
achille baissetaplume.
paris tataille:2.
paris baissetaplume.
paris tonangle:45 oppose .
pour i prendre 1.
pour iteration prendre 1.
{iteration<20}
tantquevrai:{ 10 fois:{
paris avance:4 .
pour vecteurbx prendre (paris tonx - achille tonx).
pour vecteurby prendre (paris tony - achille tony).
pour ax prendre achille tonx.
pour by prendre achille tony.
achille levetaplume.
achille avance:20.
pour aax prendre achille tonx.
pour bby prendre achille tony.
achille avance:20 oppose.
achille baissetaplume.
pour vecteurax prendre (aax - ax).
pour vecteuray prendre (bby - by).
((vecteurby aucarre + vecteurbx aucarre ) < 8)
siVrai:{
carre X:paris tonx - 5 Y:paris tony - 5 Cote:10 tortue:tortue .
styloD tonX:paris tonx+10 y:paris tony .
styloD ecrit:"Aie!! "
}.
(((vecteurax * vecteurby) - (vecteuray * vecteurbx ))> 0 )
sivrai:{ achille adroite:30. achille avance:5 }
sifaux:{ achille agauche:30. achille avance:5 }.
}.
(i< 1)
sivrai:{paris adroite:90 randomize . pour i prendre i+1}
sifaux:{paris agauche:90 randomize .pour i prendre i-1 } .
pour iteration prendre iteration+1.
} .
styloD ecrit:i
.