|
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: 2386 (0x952)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦70c0ab792⟧
└─⟦this⟧
-- spirale: ligne 1
pour spirale prendre {
avec pas: n angle: theta.
tortue baisse_ta_plume.
1 a: n repeter: {
avec l.
tortue avance:l.
tortue a_gauche: theta.
}.
}.
-- polygone: ligne 12
pour polygone prendre {
avec cotes:n longueur: l.
pour angle prendre 360/n.
tortue ton_angle:180.
tortue baisse_ta_plume.
n fois: {
tortue avance:l.
tortue a_gauche: angle.
}.
}.
-- des_polygones: ligne 24
pour des_polygones prendre {
avec de:min a:max largeur:l.
pour x1 prendre (tortue ton_x).
pour y1 prendre (tortue ton_y).
min a: max repeter: {
avec n.
tortue va_en_x:x1 y:y1.
polygone cotes:n longueur:l.
}.
}.
-- etoile: ligne 36
pour etoile prendre {
avec arete: longueur.
tortue a_droite: 90.
8 fois: {
tortue a_gauche:135.
tortue avance: longueur.
tortue a_droite:90.
tortue avance: longueur.
}.
}.
-- carre: ligne 48
pour carre prendre {
avec gauche:g haut:h largeur:l.
tortue va_en_x:g y:h.
tortue baisse_ta_plume.
4 fois: {
tortue avance:l.
tortue a_droite:90.
}.
}.
-- tube: ligne 59
pour tube prendre {
avec x:x y:y taille:t profondeur:p.
p<=0 sifaux: {
tortue va_en_x:x y:y.
polygone cotes:8 longueur:t.
tortue leve_ta_plume.
tube x:(x+5) y:(y-5) taille:(t-1) profondeur: (p-1).
}.
}.
-- europe: ligne 70
pour europe prendre {
tortue va_en_x:(tortue ton_x) - 35 y:(tortue ton_y) - 130.
tortue ton_angle: 0.
1 a: 12 repeter: {
avec i.
tortue leve_ta_plume.
tortue avance: 70.
tortue baisse_ta_plume.
etoile arete: 10.
tortue ton_angle: i*30.
}.
}.
-- debut du code: ligne 82
--------------------------------------------
stylo epais.
-- 1 a: 25 repeter: { avec i.
-- stylo ton_x:100+(5*i) ton_y:100+(i aucarre).
-- stylo ecris:"The wonderful world of Tinytalk ... ". }
tortue ta_taille:1.
tortue va_au_centre.
spirale pas:150 angle:90.
tortue ta_taille:2.
tortue va_au_centre.
europe valeur.
tortue ta_taille:1.
tortue va_en_x:150 y:150.
spirale pas:150 angle:89.
tortue va_en_x:650 y:150.
spirale pas:150 angle:89.
tortue va_en_x:150 y:650.
spirale pas:150 angle:89.
tortue va_en_x:650 y:650.
spirale pas:150 angle:89.
tortue ta_taille:2.
tube x:350 y:750 taille:30 profondeur:30.