|
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: 1624 (0x658)
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«
└─⟦7e976d45d⟧
└─⟦this⟧
pour polygone prendre {
avec cotes:N longueur:L.
pour angle prendre 360/N.
Tortue baisseTaPlume.
N fois: {
Tortue avance:L.
Tortue aGauche: angle.
}.
}.
pour tube prendre {
avec x:X y:Y taille:T profondeur:P.
P<=0 SiFaux:{
Tortue tonX:X tonY:Y.
polygone cotes:10 longueur:T.
tube x:X-4 y:Y-3 taille:T-1 profondeur: P-1.
}.
}.
pour etoile prendre {
avec arete:longueur.
Tortue aDroite:90.
8 fois: {
Tortue aGauche:135.
Tortue avance:longueur.
Tortue aDroite:90.
Tortue avance:longueur.
}.
}.
pour ett prendre {
avec x:X y:Y Angle:a profondeur:P.
P<=0 SiFaux:{
Tortue tonX:X tonY:Y.
etoile arete:a.
ett x:X-4 y:Y-3 Angle:a-1 profondeur: P-1.
}.
}.
tube x:500 y:400 taille:40 profondeur:60.
ett x:100 y:500 Angle:30 profondeur:60.
stylo tonx:20 tony:30.
stylo ecris:"mon tube".
pour fleche prendre {
avec Longueur:L angle:A.
Tortue baissetaplume.
tortue tonangle:A.
tortue avance:L.
tortue tonepaisseur:2.
Tortue adroite:60.
Tortue recule:20.
Tortue levetaplume.
tortue avance:20.
tortue baissetaplume.
tortue agauche:120.
Tortue recule:20.
Tortue Tonepaisseur:1.
}.
tortue levetaplume.
tortue tonx:10 tony:600.
fleche Longueur:600 angle:0.
Tortue tonx:10 tony:600.
fleche Longueur:600 angle:270.
Tortue tonx:10 tony:600.
fleche Longueur:650 angle:315.
stylo tonx:5 tony:700.
stylo ecris:(tortue entexte).
Tortue levetaplume.
Tortue vaenX:300 y:100