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 - metrics - download
Index: D T

⟦c4cdba43c⟧ TextFile

    Length: 2123 (0x84b)
    Types: TextFile
    Names: »DEMO«

Derivation

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

TextFile

REPRESENTATION Demo_Compilateur_de_Spectacle
   
  materiel est collection

   projo est constitue
     intensite : acteur(temporel,1)
     connexion : acteur(binaire,2)
     lampe     : acteur(binaire,3)
     avance    : acteur(fugitif,4)
     recul     : acteur(fugitif,5)
   fin

   spot est constitue
     connexion : acteur(binaire,0) 
     clignotant : acteur(binaire,1)
     intensite1 : acteur(discret,2)
     montee : acteur(discret,3)
     maintien1 : acteur(discret,4)
     intensite2 : acteur(discret,5)
     descente : acteur(discret,6)
     maintien2 : acteur(discret,7)
   fin
 fin  materiel

 theatre est collection

    projo1 : station ( projo,#15# )
    spot1 : station( spot,#04# )

 fin  theatre

 experience est collection

   { les  experiences sont compilables sous certaines conditions 
     dues au mini-controle de type mais sont non executables }

 fin experience   

 spectacle est constitue

  scene flash est constitue
   changer(spot1.intensite1,100)
   attendre 3
   changer(spot1.intensite1,0)
  fin scene 
                                  
  scene entree est constitue
   debut
     repeter 4 fois
         attendre 4
         lancer_scene flash
         attendre 3
     fin repeter
   fin
  fin scene

 scene projecteur est constitue
   activer projo1.connexion
   attendre 10
   changer(projo1.intensite,100)
   attendre 80 
   activer projo1.lampe
   attendre 5
   repeter 11 fois
     activer projo1.avance
     attendre 50
   fin repeter
   repeter 11 fois
     activer projo1.recul
     attendre 5
   fin repeter
   desactiver projo1.connexion
 fin scene

  debut
   activer spot1.connexion
   debut    
     temps = projecteur
     attendre temps
     lancer_scene entree
     temps = temps + 40
     dans temps faire
        lancer_scene projecteur
        temps = temps + 710
     fin              
     dans temps faire
       lancer_scene entree
       temps = temps + 40
     fin
     temps = temps + 10
     attendre temps
     desactiver spot1.connexion
     temps =  5
     attendre temps
     desactiver projo1.connexion
   fin
 fin

 fin spectacle

 fin representation