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

⟦e7832f10a⟧ TextFile

    Length: 2323 (0x913)
    Types: TextFile
    Names: »MYFILE_UNPARSED«

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 .