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 ┃

⟦6027b5067⟧ TextFile

    Length: 2178 (0x882)
    Types: TextFile
    Names: »ESSAI_DEUX«

Derivation

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

TextFile

MATERIEL
    Un_Projecteur_de_Lumiere SAIT FAIRE {  connexion BINAIRE
                                        mode BINAIRE
                                        int1 DISCRET
                                        transition1 DISCRET
                                        maintien1 DISCRET
                                        int2 DISCRET
                                        transition2 DISCRET
                                        maintien2 DISCRET
                                     }

    Un_Projecteur_de_Diapos SAIT FAIRE  {  connexion BINAIRE
                                        intensite  DISCRET
                                        secteur BINAIRE
                                        lampe BINAIRE
                                        avance FUGITIF
                                        recul FUGITIF
                                     }

THEATRE
    Le_Projecteur_Bleu EST Un_Projecteur_de_Lumiere EN 9
    Le_Projecteur_Blanc EST Un_Projecteur_de_Lumiere EN 4
    Le_Projecteur_de_Diapos EST Un_Projecteur_de_Diapos EN 21

SPECTACLE


 Demo_diapo EST
{
 pour Le_Projecteur_de_Diapos faire
 {
  activer secteur
  fixer intensite a 40
 }
 attendre 5s
 pour Le_Projecteur_de_Diapos activer lampe
 attendre 5s
 pour Le_Projecteur_de_Diapos fixer intensite a 90
 diapo := 0
 tant que diapo<7 faire
   pour Le_Projecteur_de_Diapos activer avance
   si diapo=3 alors
     Nb:=3
     tant que Nb>0 faire
       pour Le_Projecteur_de_Diapos desactiver lampe
       attendre 1s
       pour Le_Projecteur_de_Diapos activer lampe
       attendre 1s
       Nb:=Nb-1
     fin tant que
   sinon
     Nb:=1
     tant que Nb>0 faire
       pour Le_Projecteur_de_Diapos desactiver lampe
       attendre 1s
       pour Le_Projecteur_de_Diapos activer lampe
       attendre 1s
       Nb:=Nb-1
     fin tant que
   fin si
   attendre 5s
   diapo:=diapo+1
 fin tant que
}


{
 EXECUTER clignoter_longtemps avec (0.5s 99)
 EXECUTER Demo_diapo
 puis
 {
  pour Le_Projecteur_Blanc fixer int1 a 0
  pour Le_Projecteur_Bleu fixer int1 a 0
  pour Le_Projecteur_de_Diapos desactiver lampe
  attendre 1s
  pour Le_Projecteur_de_Diapos desactiver secteur
 }

}