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

⟦8bf695a57⟧ TextFile

    Length: 2279 (0x8e7)
    Types: TextFile
    Names: »DIAPO«

Derivation

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

TextFile


spectacle est
  materiel est
    categorie DIAPO est
      connex   binaire
      int      temporel
      secteur  binaire
      lampe    binaire
      avance   fugitif
      recul    fugitif
      enseq    discret
      duree    discret
    fin categorie 
    
     categorie PROJO est
      connex   binaire
      mode     binaire
      int1     temporel
      trans1   discret
      maint1   discret
      int2     temporel
      trans2   discret
      maint2   discret
    fin categorie
  fin materiel

  implantation est    

    Pr1 est PROJO en 9  
    Pr2 est PROJO en 4
    Projo1 est DIAPO en 21
  fin implantation
  
  
  
  experience est

    effet allume (d) est
      activer D.secteur
      activer D.lampe
    fin effet                              

    effet eteinds_diapo (d) est
      desactiver d.lampe
      desactiver d.secteur
    fin effet
    
    effet projeter (d) est
        activer d.avance
    fin effet  
                      
    effet initialisation (p) est
      modifier P.Int1 avec 100
      modifier P.int2 avec 10
      modifier P.Maint1 avec 3
      modifier P.Maint2 avec 3
      modifier P.Trans1 avec 0s3
      modifier P.Trans2 avec 0s3
    fin effet

    effet lancer(p) est
        activer p.mode
    fin effet

    effet eteinds_projo (p) est
      modifier P.int1 avec 0
      modifier P.int2 avec 0
      desactiver P.mode
    fin effet     
    
    scene diaporama (p) est 
        faire allume (p)
        
        nb_de := 7
        repeter nb_de fois
            attendre 4s
            faire projeter(p)
        fin repeter     

        attendre 2s 
        faire eteinds_diapo(p)
    fin scene

    scene clignotement (p1,p2) est
      faire initialisation (p1)
      faire initialisation (p2)
      
      attendre 2s
      faire lancer (p1)
      attendre 1s8
      faire lancer (p2) 

      attendre 30s
      faire eteinds_projo (pr1)
      faire eteinds_projo (pr2)
    fin scene
    
    scene jouer_en_parallele est              
       autemps 5s faire
        faire diaporama (projo1)   
       fin autemps 
       
       autemps 5s faire
        faire clignotement (pr1,pr2)
       fin autemps
    fin scene

  fin experience
  
  debut                    
     faire jouer_en_parallele 
  fin
fin spectacle