DataMuseum.dk

top - download

    Length: 1784 (0x6f8)
    Types: TextFile
    Names: »DEMO_SCOPE«

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

TextFile

-- This file was created by Tiny_Talk Unparse
-- Copyright G.BRENET / S.FLON

POUR Axes PRENDRE {
    AVEC Origine_X:X Origine_Y:Y Pas:P Nb_Pas_X:Nbx Nb_Pas_Y:Nby .
    POUR Premiere_Tortue PRENDRE Tortue Copietoi .
    POUR Seconde_Tortue PRENDRE Tortue Copietoi .
    Premiere_Tortue Vaenx:X Y:Y .
    Seconde_Tortue Vaenx:X Y:Y .
    Premiere_Tortue Tataille:2 .
    Seconde_Tortue Tataille:2 .
    Seconde_Tortue Tonangle:90 .
    POUR Nb PRENDRE ( Nbx > Nby ) Sivrai:{
        RENVOYER Nbx } Sifaux:{
        RENVOYER Nby } .
    1 A:Nb * 2 Repeter:{
        AVEC I .
        ( I / 2 * 2 = I ) Sivrai:{
            ( I / 2 <= Nbx ) Sivrai:{
                Premiere_Tortue Levetaplume .
                Premiere_Tortue Vaenx:Premiere_Tortue Tonx Y:Premiere_Tortue Tony .
                Premiere_Tortue Baissetaplume .
                Premiere_Tortue Avance:P .
                } .
            } Sifaux:{
            ( I / 2 <= Nby ) Sivrai:{
                Seconde_Tortue Levetaplume .
                Seconde_Tortue Vaenx:Seconde_Tortue Tonx Y:Seconde_Tortue Tony .
                Seconde_Tortue Baissetaplume .
                Seconde_Tortue Avance:P .
                } .
            } .
        } .
    Premiere_Tortue Tataille:1 .
    Seconde_Tortue Tataille:1 .
    } .
POUR Spectre PRENDRE {
    AVEC Origine_X:X Origine_Y:Y Hauteur:H Pas:P Largeur:L .
    Tortue Tonangle:270 .
    0 A:L Repeter:{
        AVEC I .
        Tortue Levetaplume .
        POUR Random PRENDRE H Auhasard .
        Tortue Vaenx:X + ( I * P ) Y:Y - ( H / 2 ) - ( Random / 2 ) .
        Tortue Baissetaplume .
        Tortue Avance:Random .
        } .
    } .
Axes Origine_X:10 Origine_Y:790 Pas:20 Nb_Pas_X:39 Nb_Pas_Y:39 .
Spectre Origine_X:10 Origine_Y:790 Hauteur:790 Pas:2 Largeur:395 .