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

⟦83cb489b5⟧ TextFile

    Length: 5167 (0x142f)
    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« 
        └─⟦75f99b563⟧ 
            └─⟦this⟧

TextFile

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.
}.           

pour max prendre 5.
1 a: max repeter: 
{ avec i.
  pour pif prendre (5 au_hasard +2)*15.
  logo_IBM x:((600/max) au_hasard)+50+(600/max*(i-1)) y:(550 au_hasard)+100
           hauteur:pif largeur:pif*2 angle:(100 au_hasard)-50. 
}.