|
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: 6011 (0x177b)
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«
└─⟦c838dcd1c⟧
└─⟦this⟧
--
-- tableau final de la demo.
--
pour baratin prendre {
stylo epais.
stylo ton_x:100 ton_y:200.
stylo ecris: "Voila, c'est fini !".
stylo moyen.
stylo ton_x:150 ton_y:350.
stylo ecris: "J'ai termine mon travail,".
stylo en_bas:50.
stylo ecris: " je souhaite que cela vous ait plu...".
stylo en_bas:80.
stylo ecris: "Si cela vous a donne des idees,".
stylo en_bas:50.
stylo ecris: " sachez que le plus interessant reste a faire...".
stylo en_bas:100.
stylo epais.
stylo ecris: " Alors a vous de jouer !".
}.
pour bande prendre {
stylo epais.
stylo ton_x:0 ton_y:0.
1 a: 97 repeter: { avec i.
stylo en_bas:8.
stylo ecris:" La demo s'auto-detruira dans quelques secondes... ". }.
tortue va_en_x:0 y:740.
tortue baisse_ta_plume.
tortue va_en_x:800 y:740.
tortue leve_ta_plume.
tortue va_en_x:0 y:790.
tortue baisse_ta_plume.
tortue va_en_x:800 y:790.
1 secondes.
1 a: 160 repeter: { avec i.
stylo a_droite:5.
stylo ecris:" La demo s'auto-detruira dans quelques secondes... ". }.
}.
pour rebours prendre { avec depuis:n.
stylo epais.
stylo va_en_x:700 y:780.
n a:1 repeter: { avec i.
stylo ecris: " ".
stylo ecris: "- "&(i en_texte)&" -".
1 secondes.
}.
stylo ecris: " ".
}.
pour fissures prendre { avec x_impact:x y_impact:y trait:t.
tortue ton_x:x ton_y:y. tortue ta_taille:t. tortue baisse_ta_plume.
pour tortue_1 prendre tortue duplique_toi.
pour tortue_2 prendre tortue duplique_toi.
pour tortue_3 prendre tortue duplique_toi.
pour tortue_4 prendre tortue duplique_toi.
1 a:10 repeter: { avec i.
tortue ton_angle:(32 au_hasard)+20.
tortue_1 ton_angle:(32 au_hasard)+92.
tortue_2 ton_angle:(32 au_hasard)+164.
tortue_3 ton_angle:(32 au_hasard)+236.
tortue_4 ton_angle:(32 au_hasard)+308.
pour pas prendre ((20 au_hasard)+20)*i.
pour pas_1 prendre ((20 au_hasard)+20)*i.
pour pas_2 prendre ((20 au_hasard)+20)*i.
pour pas_3 prendre ((20 au_hasard)+20)*i.
pour pas_4 prendre ((20 au_hasard)+20)*i.
tortue avance:pas.
tortue_1 avance:pas_1.
tortue_2 avance:pas_2.
tortue_3 avance:pas_3.
tortue_4 avance:pas_4.
tortue a_droite:(20 au_hasard)+140.
tortue_1 a_droite:(20 au_hasard)+140.
tortue_2 a_droite:(20 au_hasard)+140.
tortue_3 a_droite:(20 au_hasard)+140.
tortue_4 a_droite:(20 au_hasard)+140.
pour pas prendre ((10 au_hasard)+10)*i.
pour pas_1 prendre ((10 au_hasard)+10)*i.
pour pas_2 prendre ((10 au_hasard)+10)*i.
pour pas_3 prendre ((10 au_hasard)+10)*i.
pour pas_4 prendre ((10 au_hasard)+10)*i.
tortue avance:pas.
tortue_1 avance:pas_1.
tortue_2 avance:pas_2.
tortue_3 avance:pas_3.
tortue_4 avance:pas_4.
}.
}.
pour appel prendre {
avec arete:longueur angle:theta iteration:i.
(i = 4) si_Vrai: {
appel arete:4 angle:60 iteration:3.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:3.
tortue a_Gauche:theta*2.
appel arete:4 angle:60 iteration:3.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:3.
}.
(i = 3) si_Vrai: {
appel arete:4 angle:60 iteration:2.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:2.
tortue a_Gauche:theta*2.
appel arete:4 angle:60 iteration:2.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:2.
}.
(i = 2) si_Vrai: {
appel arete:4 angle:60 iteration:1.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:1.
tortue a_Gauche:theta*2.
appel arete:4 angle:60 iteration:1.
tortue a_Droite:theta.
appel arete:4 angle:60 iteration:1.
pour i prendre 0.
}.
(i = 1) si_Vrai: { tortue avance:longueur. }.
}.
pour flocon prendre
{ avec x:x_depart y:y_depart trait:t iter:i.
tortue va_en_x:x_depart y:y_depart.
tortue ta_taille:t.
tortue baisse_ta_plume.
appel arete:4 angle:60 iteration:i.
tortue a_Gauche:120.
appel arete:4 angle:60 iteration:i.
tortue a_Gauche:120.
appel arete:4 angle:60 iteration:i.
tortue leve_ta_plume.
}.
Pour rectangle prendre
{ Avec gauche: G haut: H largeur: larg HAUTEUR: haut.
tortue leve_ta_plume.
tortue va_en_x: G y: H.
tortue ton_angle: 90.
tortue baisse_ta_plume.
2 fois: { tortue avance: HAUT.
tortue a_gauche: 90.
tortue avance: LARG.
tortue a_gauche: 90. }.
}.
pour final prendre {
stylo epais.
stylo va_en_x:210 y:350.
4 fois: { stylo ecris: " ".
stylo en_bas:25. }.
stylo en_haut:100.
stylo moyen.
stylo ecris: " pour DEMO prendre ".
stylo en_bas:50.
stylo epais.
stylo ecris: " { GAME_OVER }. ".
tortue ta_taille:1.
0 a: 4 repeter: { avec i.
rectangle gauche:209+(2*i) haut:319+(2*i) largeur:337-(4*i) hauteur:114-(4*i). }.
stylo fin.
stylo va_en_x:450 y:780.
stylo ecris: " Cliquez dans la fenetre pour en terminer... ".
}.
baratin valeur.
flocon x:600 y:280 trait:2 iter:4.
flocon x:100 y:50 trait:1 iter:3.
flocon x:130 y:300 trait:1 iter:3.
flocon x:720 y:350 trait:1 iter:3.
flocon x:200 y:650 trait:1 iter:3.
flocon x:550 y:750 trait:1 iter:3.
flocon x:400 y:2000 trait:1 iter:2.
flocon x:30 y:180 trait:1 iter:2.
flocon x:500 y:100 trait:1 iter:2.
flocon x:100 y:450 trait:1 iter:2.
flocon x:100 y:720 trait:1 iter:2.
flocon x:420 y:780 trait:1 iter:2.
flocon x:710 y:740 trait:1 iter:2.
6 secondes.
bande valeur.
1 secondes.
rebours depuis:10.
fissures x_impact:200 y_impact:300 trait:1.
fissures x_impact:500 y_impact:700 trait:2.
fissures x_impact:400 y_impact:400 trait:3.
1 secondes.
final valeur.