DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b3931557b⟧ TextFile

    Length: 5545 (0x15a9)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦53d1d4961⟧ 
            └─⟦this⟧

TextFile

--
--  Generation de logos IBM
--

pour depart prendre
{ avec ligne:n epais:e x:x y:y. 
  tortue leve_ta_plume. tortue ton_x:x ton_y:y.
  tortue a_droite:90. tortue avance:2*(n-1)*e. tortue a_gauche:90.
}.

pour draw_I prendre 
{ avec x:x y:y hauteur:h largeur:l epaisseur:e angle:a.
  tortue ton_angle:a.
   tortue ta_taille:e.
   tortue ton_x:x ton_y:y. tortue baisse_ta_plume. tortue avance:l.
   depart ligne:2 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l.
   depart ligne:3 epais:e x:x y:y. tortue avance:l/3. tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:4 epais:e x:x y:y. tortue avance:l/3. tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:5 epais:e x:x y:y. tortue avance:l/3. tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:6 epais:e x:x y:y. tortue avance:l/3. tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:7 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l.
   depart ligne:8 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l.
   tortue leve_ta_plume.
}.

pour draw_B prendre 
{ avec x:x y:y hauteur:h largeur:l epaisseur:e angle:a.
   tortue ton_angle:a.
   tortue ta_taille:e.
   tortue ton_x:x ton_y:y. tortue baisse_ta_plume. tortue avance:l*7/8.
   depart ligne:2 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l.
   depart ligne:3 epais:e x:x y:y. tortue avance:l/8. tortue baisse_ta_plume. tortue avance:l/4.
                                      tortue leve_ta_plume. tortue avance:l*3/8.
                                      tortue baisse_ta_plume. tortue avance:l/4.
   depart ligne:4 epais:e x:x y:y. tortue avance:l/8. tortue baisse_ta_plume. tortue avance:l*6/8.
   depart ligne:5 epais:e x:x y:y. tortue avance:l/8. tortue baisse_ta_plume. tortue avance:l*6/8.
   depart ligne:6 epais:e x:x y:y. tortue avance:l/8. tortue baisse_ta_plume. tortue avance:l/4.
                                      tortue leve_ta_plume. tortue avance:l*3/8.
                                      tortue baisse_ta_plume. tortue avance:l/4.
   depart ligne:7 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l.
   depart ligne:8 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l*7/8.
   tortue leve_ta_plume.
}.

pour draw_M prendre 
{ avec x:x y:y hauteur:h largeur:l epaisseur:e angle:a.
   tortue ton_angle:a.
   tortue ta_taille:e.
   tortue ton_x:x ton_y:y. tortue baisse_ta_plume. tortue avance:l/4.
                           tortue leve_ta_plume. tortue avance:l/2.
                           tortue baisse_ta_plume. tortue avance:l/4.
   depart ligne:2 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l/3.
                   tortue leve_ta_plume. tortue avance:l/3.
                   tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:3 epais:e x:x y:y. tortue avance:l/12. tortue baisse_ta_plume. tortue avance:l/3.
                                       tortue leve_ta_plume. tortue avance:l*2/12.
                                       tortue baisse_ta_plume. tortue avance:l/3.
   depart ligne:4 epais:e x:x y:y. tortue avance:l/12. tortue baisse_ta_plume. tortue avance:l*10/12.
   depart ligne:5 epais:e x:x y:y. tortue avance:l/12. tortue baisse_ta_plume. tortue avance:l*10/12.
   depart ligne:6 epais:e x:x y:y. tortue avance:l/12. tortue baisse_ta_plume. tortue avance:l/6.
                                       tortue leve_ta_plume. tortue avance:l/12.
                                       tortue baisse_ta_plume. tortue avance:l/3.
                                       tortue leve_ta_plume. tortue avance:l/12.
                                       tortue baisse_ta_plume. tortue avance:l/6.
   depart ligne:7 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l/4.
                   tortue leve_ta_plume. tortue avance:l/6.
                   tortue baisse_ta_plume. tortue avance:l/6.
                   tortue leve_ta_plume. tortue avance:l/6.
                   tortue baisse_ta_plume. tortue avance:l/4.
   depart ligne:8 epais:e x:x y:y. tortue baisse_ta_plume. tortue avance:l/4.
                   tortue leve_ta_plume. tortue avance:l/2.
                   tortue baisse_ta_plume. tortue avance:l/4.
   tortue leve_ta_plume.
}.

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 logo_IBM prendre
{ avec x:x_i y:y_i hauteur:h largeur:l angle:a. 
   pour a1 prendre (360-a)%360.
   tortue ton_angle:a1.
   tortue leve_ta_plume.
   tortue ton_x:x_i ton_y:y_i.
   tortue avance:(l*4/15).
   pour x_b prendre tortue ton_x.
   pour y_b prendre tortue ton_y.
   tortue avance:(l*5/15).
   pour x_m prendre tortue ton_x.
   pour y_m prendre tortue ton_y.
   draw_I x:x_i y:y_i hauteur:h largeur:l*3/15 epaisseur:h/15 angle:a1.
   draw_B x:x_b y:y_b hauteur:h largeur:l*4/15 epaisseur:h/15 angle:a1.
   draw_M x:x_m y:y_m hauteur:h largeur:l*6/15 epaisseur:h/15 angle:a1.
}.           


stylo moyen.
stylo va_en_x:300 y:50.
stylo ecris: "Rendons d'abord un petit hommage".
1 secondes.
stylo va_en_x:350 y:90.
stylo ecris: "a nos collegues 'aconit' et 'belladone'...".
1 secondes.

logo_IBM x:50 y:200 hauteur:100 largeur:200 angle:60. 
logo_IBM x:380 y:300 hauteur:60 largeur:120 angle:0.
logo_IBM x:180 y:400 hauteur:75 largeur:150 angle:360-30.
logo_IBM x:470 y:520 hauteur:150 largeur:300 angle:0.
logo_IBM x:200 y:700 hauteur:30 largeur:60 angle:45.

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