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

⟦0ad0b9226⟧ TextFile

    Length: 2678 (0xa76)
    Types: TextFile
    Names: »SOURCE_CODE«

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


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 
 } 

}