|
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: 3145 (0xc49)
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«
└─⟦d68ca9577⟧
└─⟦this⟧
--
-- Rosace & etoiles, a base de pyramides.
--
pour polygone prendre {
avec cotes:n longueur: l.
pour angle prendre 360/n.
tortue baisse_ta_plume.
n fois: {
tortue avance:l.
tortue a_gauche: angle.
}.
}.
pour pyramide prendre
{ avec x:x1 y:y1 largeur:l hauteur:h angle:a inclinaison:i.
tortue ton_x:x1 ton_y:y1. tortue ton_angle:a. tortue ta_taille:1. tortue baisse_ta_plume.
tortue avance:l. pour x2 prendre tortue ton_x. pour y2 prendre tortue ton_y. tortue a_droite:90.
tortue avance:l. pour x3 prendre tortue ton_x. pour y3 prendre tortue ton_y. tortue a_droite:90.
tortue avance:l. pour x4 prendre tortue ton_x. pour y4 prendre tortue ton_y. tortue a_droite:90.
tortue avance:l.
tortue ton_angle:i. tortue avance:h. pour x5 prendre tortue ton_x. pour y5 prendre tortue ton_y.
tortue ton_x:x2 ton_y:y2. tortue va_en_x:x5 y:y5.
tortue ton_x:x3 ton_y:y3. tortue va_en_x:x5 y:y5.
tortue ton_x:x4 ton_y:y4. tortue va_en_x:x5 y:y5.
}.
1 a: 72 repeter:
{ avec i.
pyramide x:400 y:400 largeur:60 hauteur:250 angle:i*5 inclinaison:(i*5+50)%360.
}.
stylo moyen.
stylo va_en_x:200 y:60.
stylo ecris: "C'est fou ce qu'on arrive a faire, ".
1 a:12 repeter:
{ avec i.
pyramide x:120+(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
pyramide x:120 y:120+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
pyramide x:120-(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
pyramide x:120 y:120-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.
1 a:5 repeter:
{ avec i.
pyramide x:680+(i*2) y:680 largeur:40-(i*2) hauteur:100-(i*2) angle:315 inclinaison:0.
pyramide x:680 y:680+(i*2) largeur:40-(i*2) hauteur:100-(i*2) angle:45 inclinaison:90.
pyramide x:680-(i*2) y:680 largeur:40-(i*2) hauteur:100-(i*2) angle:135 inclinaison:180.
pyramide x:680 y:680-(i*2) largeur:40-(i*2) hauteur:100-(i*2) angle:225 inclinaison:270.
}.
stylo a_droite:60.
stylo en_bas:40.
stylo ecris: "en dessinant de simples pyramides ! ".
1 a:5 repeter:
{ avec i.
pyramide x:680-(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
pyramide x:680 y:120-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
pyramide x:680+(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
pyramide x:680 y:120+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.
stylo moyen.
stylo va_en_x:200 y:750.
stylo ecris: "Comme celle_ci, par exemple :".
pyramide x:500 y:720 largeur:38 hauteur:90 angle:45 inclinaison:295.
1 a:8 repeter:
{ avec i.
pyramide x:120-(i*3) y:680 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
pyramide x:120 y:680-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
pyramide x:120+(i*3) y:680 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
pyramide x:120 y:680+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.
stylo fin.
stylo va_en_x:465 y:790.
stylo ecris: "Cliquez dans la fenetre pour continuer...".