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

⟦d50746383⟧ TextFile

    Length: 1625 (0x659)
    Types: TextFile
    Names: »NEW_FILE«

Derivation

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

TextFile

pour polygone prendre {
    avec cotes:N longueur:L.
    pour angle prendre 360/N.
    Tortue baisseTaPlume.
        N fois: {
        Tortue avance:L.
        Tortue aGauche: angle.
    }.
}.
pour tube prendre {
    avec x:X y:Y taille:T profondeur:P.
    P<=0 SiFaux:{
        Tortue tonX:X tonY:Y.
        polygone cotes:10 longueur:T.
        tube x:X-4 y:Y-3 taille:T-1 profondeur: P-1.
    }.
}.
pour etoile prendre {
    avec arete:longueur.
    Tortue aDroite:90.
    8 fois: {
            Tortue aGauche:135.
            Tortue avance:longueur.
            Tortue aDroite:90.
            Tortue avance:longueur.
            }.
     }.                        

pour ett prendre {
    avec x:X y:Y Angle:a profondeur:P. 
    P<=0 SiFaux:{
        Tortue tonX:X tonY:Y.
        etoile arete:a.
        ett x:X-4 y:Y-3 Angle:a-1 profondeur: P-1.
    }.
}.


tube x:500 y:400 taille:40 profondeur:60.
ett x:100 y:500 Angle:30 profondeur:60.

stylo tonx:20 tony:30.
stylo ecris:"mon tube".
pour fleche prendre {
    avec Longueur:L angle:A.
    Tortue baissetaplume.
    tortue tonangle:A.
    tortue avance:L.
    tortue tonepaisseur:2.
    Tortue adroite:60.
    Tortue recule:20.
    Tortue levetaplume.
    tortue avance:20.
    tortue baissetaplume.
    tortue agauche:120.
    Tortue recule:20. 
    Tortue Tonepaisseur:1.    
    }.
tortue levetaplume.
tortue tonx:10 tony:600.
fleche Longueur:600 angle:0.
Tortue tonx:10 tony:600.
fleche Longueur:600 angle:270.
Tortue tonx:10 tony:600.
fleche Longueur:650 angle:315.
stylo tonx:5 tony:700.
stylo ecris:(tortue entexte).
Tortue levetaplume.
Tortue vaenX:300 y:100.