DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T

⟦ff79684c6⟧ TextFile

    Length: 6011 (0x177b)
    Types: TextFile
    Names: »TINY_FIN«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

--
--  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:440 y:780.
   stylo ecris: " Cliquez dans la fenetre pour en terminer... ".
}.

baratin valeur.                      
flocon x:600 y:180 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:500 y:300 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.