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: ┃ A T ┃

⟦a6e71d5df⟧ TextFile

    Length: 1881 (0x759)
    Types: TextFile
    Names: »AXES«

Derivation

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

TextFile

pour fleche prendre {
    avec X:x Y:y Direction:d. [Est-Ouest-Nord-Sud]
    Tortue TonX:x TonY:y.
    Tortue baisseTaPlume.
    Tortue moyen.
    d="Est" SiVrai:{
        Tortue tonAngle:210.
        Tortue avance:10.
        Tortue TonX:x TonY:y.
        Tortue tonAngle:150.
        Tortue avance:10.
    }.
    d="Ouest" SiVrai:{
        Tortue tonAngle:30.
        Tortue avance:10.
        Tortue TonX:x TonY:y.
        Tortue tonAngle:330.
        Tortue avance:10.
    }.
    d="Nord" SiVrai:{
        Tortue tonAngle:60.
        Tortue avance:10.
        Tortue TonX:x TonY:y.
        Tortue tonAngle:120.
        Tortue avance:10.
    }.
    d="Sud" SiVrai:{
        Tortue tonAngle:240.
        Tortue avance:10.
        Tortue TonX:x TonY:y.
        Tortue tonAngle:300.
        Tortue avance:10.
    }.
    Tortue leveTaPlume.   
    Tortue petit.
}.
pour axes prendre {
    Tortue TonY:500 TonX:20.
    Tortue baisseTaPlume.
    Tortue avance:750.
    Tortue leveTaPlume.
    Tortue TonY:500 TonX:20.
    Tortue aGauche:90.
    Tortue baisseTaPlume.
    Tortue avance:470.
    Stylo TonX:5 TonY:20.
    Stylo Ecris:"Messages".
    Stylo TonX:730 TonY:515.
    Stylo Ecris:"Secondes".
}.                
pour barre prendre {
    avec position:p hauteur:h hauteurMax:hm temps:t classe:c.
    pour p prendre p-1.
    pour s prendre (450*h)/hm.
    Tortue TonX:20+(p*100) TonY:500.
    Tortue baisseTaPlume.
    Tortue moyen.
    Tortue TonAngle:270.
    Tortue Avance:s.
    Tortue TonAngle:0.
    Tortue Avance:100.
    Tortue TonAngle:90.
    Tortue Avance:s.
    Tortue leveTaPlume.   
    Tortue petit.
    Stylo TonX:30+(p*100) TonY:500-s-10.
    Stylo Ecris: h Image.
    Stylo TonY:512.
    Stylo Ecris: (t Image)&" s.".
    Stylo TonX:20+(p*100) TonY:530.
    Stylo Ecris: c.
}.
axes valeur.
fleche X:770 Y:500 Direction:"Est".
fleche X:20 Y:30 Direction:"Nord".