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

⟦d8e5f6dd1⟧ TextFile

    Length: 3033 (0xbd9)
    Types: TextFile
    Names: »MY_FILE«

Derivation

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

TextFile







pour tortueA prendre tortue clone.
pour tortueC prendre tortue clone.
tortueA tonx:200  y:200.
pour tortueD prendre tortue clone. 
tortueD tonx:400 randomize  y:400 randomize.
pour achille prendre tortueD.
pour paris prendre tortueA.
pour vrai prendre (0<1).
pour taille prendre 150.
POUR STYLOD PRENDRE STYLO CLONE.

pour carre prendre { avec X:PX Y:PY Cote:L tortue:turtle.
                     turtle levetaplume.
                     turtle tonx:PX y:PY. 
                     turtle tonangle:0.
                     turtle baissetaplume.
                     pour zozo prendre "Miam !".
                     styloD ecrit:zozo.
                     4 fois:{ 
                              turtle avance:L.
                              turtle adroite:90
                            }.
                   }. 

achille baissetaplume.
paris tataille:2.
paris baissetaplume.
paris tonangle:45 oppose .
pour i prendre 1. 
pour iteration prendre 1.
{iteration<20}
          tantquevrai:{ 10 fois:{
                                paris avance:4 . 
                                pour vecteurbx prendre (paris tonx - achille tonx).         
                                pour vecteurby prendre (paris tony - achille tony).        
                                pour ax prendre achille tonx.         
                                pour by prendre achille tony.         
                                achille levetaplume.
                                achille avance:20.
                                pour aax prendre achille tonx.               
                                pour bby prendre achille tony.         
                                achille avance:20 oppose.  
                                achille baissetaplume.
                                pour vecteurax prendre (aax - ax).          
                                pour vecteuray prendre (bby - by).  

                                ((vecteurby aucarre + vecteurbx aucarre ) < 8) 
                                siVrai:{ 
                                          carre X:paris tonx - 5 Y:paris tony - 5 Cote:10 tortue:tortue .
                                          styloD tonX:paris tonx+10 y:paris tony .
                                          styloD ecrit:"Aie!! "                                                       
                                       }.
 
        
                                (((vecteurax * vecteurby) - (vecteuray * vecteurbx ))> 0 )  
                                sivrai:{ achille adroite:30. achille avance:5 }                                                         
                                sifaux:{ achille agauche:30. achille avance:5 }.
                                 }.
           (i< 1) 
           sivrai:{paris adroite:90 randomize . pour i prendre i+1} 
           sifaux:{paris agauche:90 randomize .pour i prendre i-1 } .
           pour iteration prendre iteration+1.                              
       } .

styloD ecrit:i
.