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 - download
Index: ┃ T ┃

⟦029e15968⟧ TextFile

    Length: 6723 (0x1a43)
    Types: TextFile
    Names: »TINY_UNPARSED«

Derivation

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

TextFile


              ---  FICHIER tiny_unparsed : RESULTAT DU REFORMATAGE DU FICHIER tiny_fin  ---


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 VALEUR: 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 VALEUR: 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 VALEUR: 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 VALEUR: 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 VALEUR: 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 .