DataMuseum.dk

top - download

    Length: 1509 (0x5e5)
    Types: TextFile
    Names: »BIDON«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

 REPRESENTATION Test    { ceci est un commentaire } 
 
 materiel est collection          

   cd est constitue
     connexion : acteur(binaire,0)
     secteur : acteur(binaire,1)
     volume : acteur(discret,2)
     avance :  acteur( fugitif,3)
   fin 

 fin  materiel
 
 theatre est collection 
    
    cd1 : station  (cd , #A105B6# )
    cd2 : station ( cd, #45CF32# )
    k7_1: station ( k7 , #54FD3# )

 fin  theatre
 
 experience est collection

   effet mon_premier_effet ( param1 , param2 ) est constitue
     activer param1.connexion
     dans 35 faire
       changer (param1.avancer,1)
       activer param2.lecture 
     fin
   fin effet
 fin experience
 
 spectacle est constitue
 
 scene scene_1 est constitue
   appel_effet mon_premier_effet(cd1,cd2)
   t=5
   t=t*4+5
   repeter 8 fois
     attendre t
   fin repeter
   

  fin  scene
                                  
 scene scene_2 est constitue
   mes_projecteurs_lumiere = [ projo_rouge, projo_vert, projo_jaune ]
   pour p parmi mes_projecteurs_lumiere faire
     activer p.connexion
   fin pour
   
   tantque t <= 5 faire
    t=t+1
    attendre t
    lancer_scene scene_1
    dans t faire
      evoluer(cd1.valeur,5,53)
      puis 
        debut
          attendre 5+8*toto
          activer projo_rouge.flash
        fin 
      fin puis
    fin
   fin tantque

 fin scene


 debut
   lancer_scene scene_1
   lancer_scene scene_2                     
 fin

 fin spectacle               

 fin representation