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

⟦046d995fc⟧ TextFile

    Length: 1211 (0x4bb)
    Types: TextFile
    Names: »LAMPE2«

Derivation

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

TextFile

 spectacle est
  materiel est
    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 #4 
     Pr2 est PROJO en 9
  fin implantation   


   experience est
    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 (p) est
      modifier P.int1 avec 0
      modifier P.int2 avec 0
      desactiver P.mode
    fin effet


    scene clignote (p1,p2) est
      faire initialisation (p1)
      faire initialisation (p2)
      attendre 2s    
      faire lancer (p1) 
      attendre 0s6
      faire lancer (p2)
      attendre 30s
      faire eteinds (p1)
      faire eteinds (p2)
    fin scene
  fin experience

  debut
     t := 5s
     autemps t faire
       faire clignote (Pr1,Pr2)
     fin autemps

  fin
fin spectacle