|
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: 6722 (0x1a42)
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«
└─⟦e94e1f665⟧
└─⟦this⟧
--- 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: 400 Y: 200 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