DataMuseum.dk

top - download

    Length: 4262 (0x10a6)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦b7f9ed381⟧ 
            └─⟦this⟧ 

TextFile

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

POUR Spirale PRENDRE {
    AVEC Coordx:X Coordy:Y Pas:N Angle:Theta .
    Tortue Levetaplume .
    Tortue Vaenx:X Y:Y .
    Tortue Baissetaplume .
    1 A:N Repeter:{
        AVEC L .
        Tortue Avance:L .
        Tortue Agauche:Theta .
        } .
    } .
POUR Tube PRENDRE {
    AVEC X:X Y:Y Taille:T Profondeur:P .
    P <= 0 Sifaux:{
        Tortue Tonx:X Tony:Y .
        Polygone Cotes:8 Longueur:T .
        Tube X:X - 8 Y:Y - 5 Taille:T - 1 Profondeur:P - 1 .
        } .
    } .
POUR Polygone PRENDRE {
    AVEC Cotes:N Longueur:L .
    POUR Angle PRENDRE 360 / N .
    Tortue Baissetaplume .
    N Fois:{
        Tortue Avance:L .
        Tortue Agauche:Angle .
        } .
    } .
POUR Despolygones PRENDRE {
    AVEC Coordx:X Coordy:Y De:Min A:Max Largeur:L .
    Tortue Levetaplume .
    Tortue Vaenx:X Y:Y .
    Min A:Max Repeter:{
        AVEC N .
        Polygone Cotes:N Longueur:L .
        } .
    } .
POUR Etoile PRENDRE {
    AVEC Arete:Longueur .
    Tortue Adroite:90 .
    8 Fois:{
        Tortue Agauche:135 .
        Tortue Avance:Longueur .
        Tortue Adroite:90 .
        Tortue Avance:Longueur .
        } .
    } .
POUR Europe PRENDRE {
    AVEC Coordx:X Coordy:Y .
    Tortue Levetaplume .
    Tortue Tonangle:0 .
    Tortue Vaenx:X Y:Y .
    1 A:12 Repeter:{
        AVEC I .
        Tortue Levetaplume .
        Tortue Avance:40 .
        Tortue Baissetaplume .
        Etoile Arete:8 .
        Tortue Tonangle:I * 30 .
        } .
    } .
POUR Factorielle PRENDRE {
    AVEC De:N .
    N < 1 Sifaux:{
        RENVOYER N * ( Factorielle De:N - 1 ) } Sivrai:{
        RENVOYER 1 } .
    } .
POUR Nuit_Etoilee PRENDRE {
    AVEC Nb_Etoiles:N Coord_X:X Limit_X:Lx Coord_Y:Y Limit_Y:Ly Taille_Plume:P Taille_Arete:A .
    1 A:N Repeter:{
        AVEC I .
        Tortue Tataille:( P Auhasard ) + 1 .
        Tortue Levetaplume .
        Tortue Vaenx:X + Lx Auhasard Y:Y + Ly Auhasard .
        Tortue Baissetaplume .
        Etoile Arete:A Auhasard + 1 .
        } .
    } .
POUR Premiere_Tortue PRENDRE Tortue Copietoi .
POUR Seconde_Tortue PRENDRE Tortue Copietoi .
POUR Axes PRENDRE {
    AVEC Origine_X:X Origine_Y:Y Pas:P Nb_Pas_X:Nbx Nb_Pas_Y:Nby .
    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 200 Auhasard .
        Tortue Vaenx:X + ( I * P ) Y:Y - ( H / 2 ) - ( Random / 2 ) .
        Tortue Baissetaplume .
        Tortue Avance:Random .
        } .
    } .
Stylo Largeplume .
Stylo Tonx:225 Tony:30 Ecrire:"demonstration tiny talk" Enmajuscule .
Stylo Petiteplume .
Stylo Tonx:590 Tony:48 Ecrire:"copyright g.brenet s.flon" Capitalise .
Axes Origine_X:10 Origine_Y:280 Pas:10 Nb_Pas_X:25 Nb_Pas_Y:20 .
Spectre Origine_X:10 Origine_Y:280 Hauteur:200 Pas:2 Largeur:125 .
Stylo Tonx:100 Tony:320 Ecrire:"Spectre" Capitalise .
Spirale Coordx:400 Coordy:180 Pas:100 Angle:50 .
Stylo Tonx:300 Tony:320 Ecrire:"Spirale pas:100 angle:50" Capitalise .
Spirale Coordx:150 Coordy:420 Pas:150 Angle:91 .
Stylo Tonx:50 Tony:550 Ecrire:"Spirale pas:150 angle:91" Capitalise