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

⟦6358fe02a⟧ TextFile

    Length: 2648 (0xa58)
    Types: TextFile
    Names: »EXAMPL07«

Derivation

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

TextFile

-- Fichier de test
-- Nom : Exampl07
-- Test avec appels imbriques aux effets et aux scenes
-- et passage de parametres aux scenes

spectacle est
  materiel est
    categorie CD est
      connex   binaire
      secteur  binaire
      volume   temporel     
      lecture  binaire
      aller    discret
      avance   fugitif
      recul    fugitif
    fin categorie

    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
     Cd1 est CD en 10
     Cd2 est CD en 20
     Dia1 est DIAPO en #30 
     Dia2 est DIAPO en #32
     Pr1 est PROJO en #40
     Pr2 est PROJO en #44
  fin implantation
     
  experience est
    effet fondu (d1, d2) est
      evoluer d2.int jusqua 70 en 20
      evoluer d1.int jusqua 0 en 20
    fin effet
    effet allume (d) est
      activer D.secteur
      activer D.lampe
    fin effet
    effet eteinds (d) est
      desactiver d.lampe
      desactiver d.secteur
    fin effet
    effet arret_cd (c) est
       desactiver c.lecture
       desactiver c.secteur
    fin effet 

    scene demarrage est
      autemps 30 faire
        faire allume (Dia2)
        evoluer Dia2.int jusqua 0 en 1
        faire allume (Dia1)
        evoluer Dia1.int jusqua 70 en 1
        activer Cd1.secteur
      fin autemps
    fin scene

    scene diaporama est
      nb_avance := 5
      index := 1

      activer Cd1.lecture
      repeter nb_avance fois
        evoluer Cd1.volume jusqua 75 en 5
        attendre 20
        si (index mod 2) = 1 alors faire      -- Si num de diapo est paire
           faire fondu (Dia1, Dia2)           -- fondu Dia1 => Dia2
           activer Dia1.avance
        sinon faire                           -- Sinon
           faire fondu (Dia2, Dia1)           -- fondu Dia2 => Dia1
           activer Dia2.avance
        fin si
        
        evoluer Cd1.volume jusqua 0 en 5
        activer Cd1.avance
        index := index + 1
      fin repeter
    fin scene

    scene arret est
       faire eteinds (Dia1)
       faire eteinds (Dia2)
       faire arret_cd (Cd1)
    fin scene
    scene demo_avec_son est
      faire demarrage       
      faire diaporama
      faire arret 
    fin scene
  fin experience

  debut
    faire demo_avec_son
  fin
fin spectacle