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

⟦655dd2a5b⟧ TextFile

    Length: 3146 (0xc4a)
    Types: TextFile
    Names: »TINY_PYRAMIDES«

Derivation

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

TextFile

--
--  Rosace & etoiles, a base de pyramides.
--

pour polygone prendre {
  avec cotes:n longueur: l.
  pour angle prendre 360/n.
  tortue baisse_ta_plume.
  n fois: {
    tortue avance:l.
    tortue a_gauche: angle.
    }.
  }.

pour pyramide prendre
{ avec x:x1 y:y1 largeur:l hauteur:h angle:a inclinaison:i.
  tortue ton_x:x1 ton_y:y1. tortue ton_angle:a. tortue ta_taille:1. tortue baisse_ta_plume.
  tortue avance:l. pour x2 prendre tortue ton_x. pour y2 prendre tortue ton_y. tortue a_droite:90. 
  tortue avance:l. pour x3 prendre tortue ton_x. pour y3 prendre tortue ton_y. tortue a_droite:90.
  tortue avance:l. pour x4 prendre tortue ton_x. pour y4 prendre tortue ton_y. tortue a_droite:90.
  tortue avance:l.                                      
  tortue ton_angle:i. tortue avance:h. pour x5 prendre tortue ton_x. pour y5 prendre tortue ton_y.
  tortue ton_x:x2 ton_y:y2. tortue va_en_x:x5 y:y5.
  tortue ton_x:x3 ton_y:y3. tortue va_en_x:x5 y:y5.
  tortue ton_x:x4 ton_y:y4. tortue va_en_x:x5 y:y5.
}.
  

1 a: 72 repeter: 
{ avec i.     
   pyramide x:400 y:400 largeur:60 hauteur:250 angle:i*5 inclinaison:(i*5+50)%360.
}.

stylo moyen.
stylo va_en_x:200 y:60.
stylo ecris: "C'est fou ce qu'on arrive a faire, ".

1 a:12 repeter:
{ avec i.
   pyramide x:120+(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
   pyramide x:120 y:120+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
   pyramide x:120-(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
   pyramide x:120 y:120-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.

1 a:5 repeter:
{ avec i.
   pyramide x:680+(i*2) y:680 largeur:40-(i*2) hauteur:100-(i*2) angle:315 inclinaison:0.
   pyramide x:680 y:680+(i*2) largeur:40-(i*2) hauteur:100-(i*2) angle:45 inclinaison:90.
   pyramide x:680-(i*2) y:680 largeur:40-(i*2) hauteur:100-(i*2) angle:135 inclinaison:180.
   pyramide x:680 y:680-(i*2) largeur:40-(i*2) hauteur:100-(i*2) angle:225 inclinaison:270.
}.

stylo a_droite:60.
stylo en_bas:40.
stylo ecris: "en dessinant de simples pyramides ! ".

1 a:5 repeter:
{ avec i.
   pyramide x:680-(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
   pyramide x:680 y:120-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
   pyramide x:680+(i*3) y:120 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
   pyramide x:680 y:120+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.

stylo moyen.
stylo va_en_x:200 y:750.
stylo ecris: "Comme celle_ci, par exemple :".
pyramide x:500 y:720 largeur:38 hauteur:90 angle:45 inclinaison:295.

1 a:8 repeter:
{ avec i.
   pyramide x:120-(i*3) y:680 largeur:40-(i*3) hauteur:100-(i*3) angle:315 inclinaison:0.
   pyramide x:120 y:680-(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:45 inclinaison:90.
   pyramide x:120+(i*3) y:680 largeur:40-(i*3) hauteur:100-(i*3) angle:135 inclinaison:180.
   pyramide x:120 y:680+(i*3) largeur:40-(i*3) hauteur:100-(i*3) angle:225 inclinaison:270.
}.

stylo fin.
stylo va_en_x:465 y:790.
stylo ecris: "Cliquez dans la fenetre pour continuer...".