DataMuseum.dk

top - download

    Length: 2677 (0xa75)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦0b7adcc60⟧ 
            └─⟦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


clignoter_longtemps qui utilise Temps1 I EST 
{
 pour Le_Projecteur_Bleu desactiver mode
 pour Le_Projecteur_Blanc desactiver mode
 count_max:=10
 count:=0
 TANT QUE count<count_max FAIRE
    pour Le_Projecteur_Bleu fixer int1 a I
    pour Le_Projecteur_Blanc fixer int1 a 0
    attendre Temps1
    pour Le_Projecteur_Bleu fixer int1 a 0
    pour Le_Projecteur_Blanc fixer int1 a I
    attendre Temps1
    count:=count+1
 FIN TANT QUE     
}
 


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
}


{ clignoter_longtemps:=99
 EXECUTER clignoter_longtemps avec (0.5s clignoter_longtemps) 
 
 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 
 } 

}