|
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: 2135 (0x857)
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«
└─⟦3804ff6ec⟧
└─⟦this⟧
--
-- Rebonds d'une boule a l'interieur d'un rectangle
--
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 BILLARD prendre
{
Avec LARGEUR: L HAUTEUR: H X: X Y: Y DUREE: CPT_MAX .
Pour L_MIN prendre X + 2 .
Pour H_MIN prendre Y + 16 .
Pour L_MAX prendre X + L - 11 .
Pour H_MAX prendre Y + H - 5 .
Pour PAS prendre 3 .
Pour OLD_X prendre L_MIN + ( ( L_MAX - L_MIN ) / 2 ) .
Pour OLD_Y prendre H_MIN + ( ( H_MAX - H_MIN ) / 2 ) .
Pour NEW_X prendre 0 .
Pour NEW_Y prendre 0 .
Pour MONTER prendre VRAI .
Pour DROITE prendre VRAI .
Pour CPT prendre 0 .
STYLO VA_EN_X: OLD_X Y: OLD_Y .
STYLO MOYEN .
RECTANGLE GAUCHE: X HAUT: Y LARGEUR: L HAUTEUR: H .
RECTANGLE GAUCHE: X - 10 HAUT: Y - 10 LARGEUR: L + 20 HAUTEUR: H + 20 .
RECTANGLE GAUCHE: X - 12 HAUT: Y - 12 LARGEUR: L + 24 HAUTEUR: H + 24 .
{ CPT < CPT_MAX } TANT_QUE_VRAI:
{
Pour CPT prendre CPT + 1 .
Pour OK prendre VRAI .
MONTER SI_VRAI: { Pour NEW_Y prendre OLD_Y - PAS }
SI_FAUX: { Pour NEW_Y prendre OLD_Y + PAS }.
DROITE SI_VRAI: { Pour NEW_X prendre OLD_X + PAS }
SI_FAUX: { Pour NEW_X prendre OLD_X - PAS }.
(( NEW_X > L_MAX ) | ( NEW_X < L_MIN )) SI_VRAI:
{
Pour DROITE prendre DROITE INVERSE .
Pour OK prendre FAUX .
}.
(( NEW_Y > H_MAX ) | ( NEW_Y < H_MIN )) SI_VRAI:
{
Pour MONTER prendre MONTER INVERSE .
Pour OK prendre FAUX .
}.
OK SI_VRAI:
{
STYLO VA_EN_X: OLD_X Y: OLD_Y .
STYLO ECRIS: " " .
STYLO VA_EN_X: NEW_X Y: NEW_Y.
STYLO ECRIS: "o" .
Pour OLD_X prendre NEW_X .
Pour OLD_Y prendre NEW_Y .
}.
}.
2 SECONDES.
STYLO ECRIS: " " .
}.
BILLARD LARGEUR: 70 HAUTEUR: 115 X: 380 Y: 100 DUREE: 200