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

⟦37fc506ce⟧ TextFile

    Length: 4127 (0x101f)
    Types: TextFile
    Names: »NEW_FILE«

Derivation

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

TextFile

pour spirale prendre {  avec pas:N angle:theta.
                        tortue levetaplume.
                        tortue vaenx:500 y:350.
                        tortue baissetaplume.
                        1 a:N repeter:{
                                        avec L.
                                        tortue avance:L/0.
                                        tortue aGauche:theta.
                                        }.
                     }.

pour angle prendre 60. 
tortue tonangle:0.
tortue baissetaplume.  
pour a prendre 1.
pour b prendre 2.
pour c prendre 3.
pour d prendre 4.
pour e prendre 5.
pour fractale prendre {avec iteration:i pas:p.
                       
                        (i=5 )
                                         sivrai:{
                                                 fractale iteration:4 pas:p.                                                 
                                                 tortue adroite:angle.                                                  
                                                 fractale iteration:4 pas:p.                                                 
                                                 tortue agauche:(angle*2 ).
                                                 fractale iteration:4 pas:p.                                                 
                                                 tortue adroite:angle.
                                                 fractale iteration:4 pas:p.
                                                } .
                         (i=4)           sivrai:{
                                                 fractale iteration:3 pas:p.
                                                 tortue adroite:angle.
                                                 fractale iteration:3 pas:p.
                                                 tortue agauche:(angle*2 ).
                                                 fractale iteration:3 pas:p.
                                                 tortue adroite:angle. 
                                                 fractale iteration:3 pas:p.
                                                } .

                         (i=3)           sivrai:{
                                                 fractale iteration:2 pas:p.
                                                 tortue adroite:angle.
                                                 fractale iteration:2 pas:p.
                                                 tortue agauche:(angle*2 ).
                                                 fractale iteration:2 pas:p.
                                                 tortue adroite:angle.
                                                 fractale iteration:2 pas:p.
                                                }.
                         (i=2)           sivrai:{
                                                 fractale iteration:1 pas:p.
                                                 tortue adroite:angle.
                                                 fractale iteration:1 pas:p.
                                                 tortue agauche:(angle*2 ).
                                                 fractale iteration:1 pas:p.
                                                 tortue adroite:angle.
                                                 fractale iteration:1 pas:p.
                                                }.
                          (i=1)          sivrai:{
                                                 tortue avance:p                                                                                                                                                                                                                                                
                                                }. 
                       
                         }.


                      
tortue tonX:150 y:500. 
tortue tataille:5.
fractale iteration:5 pas:4.
 tortue agauche:(angle*2 ).
fractale iteration:5 pas:4.
 tortue agauche:(angle *2).                            
fractale iteration:5 pas:4.