|
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: 2322 (0x912)
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«
└─⟦dacc12f13⟧
└─⟦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