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

⟦bfcb6eb81⟧ TextFile

    Length: 8614 (0x21a6)
    Types: TextFile
    Names: »TINY_ARBRES«

Derivation

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

TextFile

--
--  dessin d'arbres aleatoires.
--

pour saule prendre 
{ avec x:x_depart y:y_depart echelle:pas angle:a.  
    pour angle prendre 270+a.
    tortue ton_x:x_depart ton_y:y_depart. tortue ton_angle:angle.
    tortue_1 ton_x:x_depart ton_y:y_depart. tortue_1 ton_angle:angle.
    tortue_2 ton_x:x_depart ton_y:y_depart. tortue_2 ton_angle:angle.
    tortue_3 ton_x:x_depart+2 ton_y:y_depart. tortue_3 ton_angle:angle.
    tortue_4 ton_x:x_depart+2 ton_y:y_depart. tortue_4 ton_angle:angle.
    tortue_5 ton_x:x_depart+2 ton_y:y_depart. tortue_5 ton_angle:angle.
    tortue_6 ton_x:x_depart+3 ton_y:y_depart. tortue_6 ton_angle:angle.
    tortue_7 ton_x:x_depart+3 ton_y:y_depart. tortue_7 ton_angle:angle.
    tortue_8 ton_x:x_depart+3 ton_y:y_depart. tortue_8 ton_angle:angle.
    tortue_9 ton_x:x_depart+3 ton_y:y_depart. tortue_9 ton_angle:angle.
    1 a: 20 repeter: 
    { avec i.  
        (i>6) si_vrai:
        { tortue a_gauche: 10 au_hasard + 10.
          tortue_8 a_droite: 10 au_hasard + 10. }.
        (i>7) si_vrai:
        { tortue_1 a_gauche: 20 au_hasard + 10.
          tortue_9 a_droite: 20 au_hasard + 10. }.
        (i>8) si_vrai:
        { tortue_2 a_gauche: 30 au_hasard + 10.
          tortue_6 a_droite: 30 au_hasard + 10. }.
        (i>9) si_vrai:
        { tortue_3 a_gauche: 40 au_hasard + 10.
          tortue_7 a_droite: 40 au_hasard + 10. }.
        (i>10) si_vrai:
        { tortue_4 a_gauche: 50 au_hasard + 10.
          tortue_5 a_droite: 50 au_hasard + 10. }.
        (tortue ton_angle<90) si_vrai: {tortue ton_angle:90}.
        (tortue_1 ton_angle<90) si_vrai: {tortue_1 ton_angle:90}.
        (tortue_2 ton_angle<90) si_vrai: {tortue_2 ton_angle:90}.
        (tortue_3 ton_angle<90) si_vrai: {tortue_3 ton_angle:90}.
        (tortue_4 ton_angle<90) si_vrai: {tortue_4 ton_angle:90}.
        ((tortue_5 ton_angle>90) & (tortue_5 ton_angle<angle)) si_vrai: {tortue_5 ton_angle:90}.
        ((tortue_6 ton_angle>90) & (tortue_6 ton_angle<angle)) si_vrai: {tortue_6 ton_angle:90}.
        ((tortue_7 ton_angle>90) & (tortue_7 ton_angle<angle)) si_vrai: {tortue_7 ton_angle:90}.
        ((tortue_8 ton_angle>90) & (tortue_8 ton_angle<angle)) si_vrai: {tortue_8 ton_angle:90}.
        ((tortue_9 ton_angle>90) & (tortue_9 ton_angle<angle)) si_vrai: {tortue_9 ton_angle:90}.
       tortue avance:pas.
       tortue_1 avance:pas.
       tortue_2 avance:pas.
       tortue_3 avance:pas.
       tortue_4 avance:pas.
       tortue_5 avance:pas.
       tortue_6 avance:pas.
       tortue_7 avance:pas.
       tortue_8 avance:pas.
       tortue_9 avance:pas.
    }.
}.

pour peuplier prendre 
{ avec x:x_depart y:y_depart echelle:pas.  
    pour angle prendre 270.
    tortue ton_x:x_depart ton_y:y_depart. tortue ton_angle:angle.
    tortue_1 ton_x:x_depart ton_y:y_depart. tortue_1 ton_angle:angle.
    tortue_2 ton_x:x_depart ton_y:y_depart. tortue_2 ton_angle:angle.
    tortue_3 ton_x:x_depart+2 ton_y:y_depart. tortue_3 ton_angle:angle.
    tortue_4 ton_x:x_depart+2 ton_y:y_depart. tortue_4 ton_angle:angle.
    tortue_5 ton_x:x_depart+2 ton_y:y_depart. tortue_5 ton_angle:angle.
    tortue_6 ton_x:x_depart+3 ton_y:y_depart. tortue_6 ton_angle:angle.
    tortue_7 ton_x:x_depart+3 ton_y:y_depart. tortue_7 ton_angle:angle.
    tortue_8 ton_x:x_depart+3 ton_y:y_depart. tortue_8 ton_angle:angle.
    tortue_9 ton_x:x_depart+3 ton_y:y_depart. tortue_9 ton_angle:angle.
    1 a: 20 repeter: 
    { avec i.  
        pour p1 prendre (pas/2) au_hasard +pas.
        (i=3) si_vrai:
        { tortue a_gauche: 20 au_hasard +10.
          tortue_8 a_droite: 20 au_hasard +10. }.
        (i=4) si_vrai:
        { tortue_1 a_gauche: 20 au_hasard +10.
          tortue_9 a_droite: 20 au_hasard +10. }.
        (i=5) si_vrai:
        { tortue_2 a_gauche: 20 au_hasard +10.
          tortue_6 a_droite: 20 au_hasard +10. }.
        (i=6) si_vrai:
        { tortue_3 a_gauche: 20 au_hasard +10.
          tortue_7 a_droite: 20 au_hasard +10. }.
        (i=7) si_vrai:
        { tortue_4 a_gauche: 20 au_hasard +10.
          tortue_5 a_droite: 20 au_hasard +10. }.
        (i>3) si_vrai:
        { tortue a_droite: 6 au_hasard +2.
          tortue_8 a_gauche: 6 au_hasard +2. }.
        (i>4) si_vrai:
        { tortue_1 a_droite: 6 au_hasard +2.
          tortue_9 a_gauche: 6 au_hasard +2. }.
        (i>5) si_vrai:
        { tortue_2 a_droite: 7 au_hasard +2.
          tortue_6 a_gauche: 7 au_hasard +2. }.
        (i>6) si_vrai:
        { tortue_3 a_droite: 8 au_hasard +2.
          tortue_7 a_gauche: 8 au_hasard +2. }.
        (i>7) si_vrai:
        { tortue_4 a_droite: 10 au_hasard +2.
          tortue_5 a_gauche: 10 au_hasard +2. }.
        (tortue ton_angle>290) si_vrai: {tortue ton_angle:260}.
        (tortue_1 ton_angle>290) si_vrai: {tortue_1 ton_angle:260}.
        (tortue_2 ton_angle>290) si_vrai: {tortue_2 ton_angle:260}.
        (tortue_3 ton_angle>290) si_vrai: {tortue_3 ton_angle:260}.
        (tortue_4 ton_angle>290) si_vrai: {tortue_4 ton_angle:260}.
        (tortue_5 ton_angle<250) si_vrai: {tortue_5 ton_angle:280}.
        (tortue_6 ton_angle<250) si_vrai: {tortue_6 ton_angle:280}.
        (tortue_7 ton_angle<250) si_vrai: {tortue_7 ton_angle:280}.
        (tortue_8 ton_angle<250) si_vrai: {tortue_8 ton_angle:280}.
        (tortue_9 ton_angle<250) si_vrai: {tortue_9 ton_angle:280}.
       tortue avance:p1.
       tortue_1 avance:p1.
       tortue_2 avance:p1.
       tortue_3 avance:p1.
       tortue_4 avance:p1.
       tortue_5 avance:p1.
       tortue_6 avance:p1.
       tortue_7 avance:p1.
       tortue_8 avance:p1.
       tortue_9 avance:p1.
    }.
}.

pour pommier prendre 
{ avec x:x_depart y:y_depart echelle:pas. 
    pour angle prendre 270.
    tortue ton_x:x_depart ton_y:y_depart. tortue ton_angle:angle.
    3 fois: { tortue avance:pas. }.
    tortue ton_x:x_depart+2 ton_y:y_depart. tortue ton_angle:angle.
    3 fois: { tortue avance:pas. }.
    tortue ton_x:x_depart+3 ton_y:y_depart. tortue ton_angle:angle.
    3 fois: { tortue avance:pas. }.
    pour x1 prendre tortue ton_x.
    pour y1 prendre tortue ton_y.
    25 fois: 
    {  tortue ton_x:x1 ton_y:y1. tortue ton_angle:angle.
       1 a: 10 repeter:
        { avec i.
           pour a1 prendre ((80 au_hasard) - (i*8)) absolu.
           pour p1 prendre (pas/2) au_hasard + pas.
           pour a2 prendre tortue ton_angle.
           ((a2>=180)&(a2<230)) si_vrai: {
               tortue a_droite:a1.
               (((tortue ton_angle)>0)&((tortue ton_angle)<180)) si_vrai: { tortue ton_angle:360 }.
               tortue avance:p1. }.
           ((a2>=310)&(a2<360)) si_vrai: {
               tortue a_gauche:a1.
               (((tortue ton_angle)>0)&((tortue ton_angle)<180)) si_vrai: { tortue ton_angle:180 }.
               tortue avance:p1. }.
           ((a2>=230)&(a2<310)) si_vrai: {
               pour pif prendre 2 au_hasard.
               (pif=1) si_vrai: {   
                   tortue a_droite:a1.
                   (((tortue ton_angle)>0)&((tortue ton_angle)<180)) si_vrai: { tortue ton_angle:360 }.
                   tortue avance:p1. }.
               (pif=2) si_vrai: { 
                   tortue a_gauche:a1. 
                   (((tortue ton_angle)>0)&((tortue ton_angle)<180)) si_vrai: { tortue ton_angle:180 }.
                   tortue avance:p1. }.
               }.
        }.                                            
    }.
}.

tortue baisse_ta_plume.
pour tortue_1 prendre tortue duplique_toi. tortue_1 baisse_ta_plume.
pour tortue_2 prendre tortue duplique_toi. tortue_2 baisse_ta_plume.
pour tortue_3 prendre tortue duplique_toi. tortue_3 baisse_ta_plume.
pour tortue_4 prendre tortue duplique_toi. tortue_4 baisse_ta_plume.
pour tortue_5 prendre tortue duplique_toi. tortue_5 baisse_ta_plume.
pour tortue_6 prendre tortue duplique_toi. tortue_6 baisse_ta_plume.
pour tortue_7 prendre tortue duplique_toi. tortue_7 baisse_ta_plume.
pour tortue_8 prendre tortue duplique_toi. tortue_8 baisse_ta_plume.
pour tortue_9 prendre tortue duplique_toi. tortue_9 baisse_ta_plume.


stylo moyen.
stylo va_en_x:440 y:50.
stylo ecris: "Saules,".
saule x:250 y:730 echelle:20 angle:0.
saule x:540 y:760 echelle:15 angle:20.

stylo va_en_x:460 y:80.
stylo ecris: "pommiers,".
pommier x:450 y:520 echelle:25.

stylo va_en_x:480 y:110.
stylo ecris: "et peupliers...".
0 a:3 repeter: { avec i.
   peuplier x:80+(i*45) y:550-(i*120) echelle:15-(2*i). }.

stylo epais.
stylo va_en_x:520 y:150.
stylo ecris: "( ...en hiver )".
stylo va_en_x:320 y:90.

2 secondes.
stylo fin.
stylo va_en_x:465 y:790.
stylo ecris: "Cliquez dans la fenetre pour continuer...".