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

⟦9a6653123⟧ TextFile

    Length: 4745 (0x1289)
    Types: TextFile
    Names: »F2«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

representation toto 
      materiel est collection 
                    
                    ProjecteurDiapositives est collection 
                    
                        connexion       : acteur(binaire,00) 
                        intensite       : acteur(binaire,01) 
                        secteur         : acteur(binaire,02) 
                        lampe           : acteur(binaire,03) 
                        avance          : acteur(fugitif,04) 
                        recul           : acteur(fugitif,05) 
                        enSequence      : acteur(discret,06) 
                        dureeDiapos     : acteur(temporel,07) 
                    
                    fin ProjecteurDiapositives
                    
                    ProjecteurLumiere est collection 
                    
                        connexion       : acteur(binaire,00) 
                        mode            : acteur(binaire,01) 
                        intensite1      : acteur(discret,02) 
                        transition1     : acteur(temporel,03) 
                        maintient1      : acteur(temporel,04) 
                        intensite2      : acteur(discret,05) 
                        transition2     : acteur(temporel,06) 
                        maintient2      : acteur(temporel,07) 
                    
                    fin ProjecteurLumiere 
                    

                    lecteurCD est collection
                    
                        connexion       : acteur(binaire,00) 
                        secteur         : acteur(binaire,01) 
                        volume          : acteur(discret,02) 
                        lecture         : acteur(fugitif,03) 
                        allerAuMorceau  : acteur(discret,04) 
                        avance          : acteur(fugitif,05) 
                        recul           : acteur(fugitif,06) 
                    
                    fin lecteurCD
        

       fin materiel
       
       theatre est collection 
                
                    lampeBleu        : station(ProjecteurLumiere,08) 
                    lampeOrange      : station(ProjecteurLumiere,99) 

                    projectDiapos1   : station(ProjecteurDiapositives,61)
                    projectDiapos2   : station(ProjecteurDiapositives,62)
                    
                    CD1              : station(lecteurCD,47) 
                    CD2              : station(lecteurCD,74) 
             
              fin theatre
              
              experience est collection

                effet factorielle( n : registre) debut
                    si n < 2 alors retourne 1;
                    sinon retourne n*factorielle(n-1);
                fin

                effet rampeLumiere(L : ProjecteurLumiere; periode : registre) debut
                      evoluer(L,intensite1,100, periode/4);
                      changer(L,maintient1,periode/4);
                      evoluer(L,intensite2,10, periode/4);
                      changer(L,maintient2,periode/4);
                fin

                effet cycleLumiere(L1 : ProjecteurLumiere; periode : registre; nombrefois : registre; t : registre) debut
                     t=1;
                     tant que t < nombrefois debut
                            a t*periode faire executer rampeLumiere(L1, periode) ;
                            t=t+1;
                     fin
                fin
        
            
                 effet passerLesDiapos( P : ProjecteurDiapositives; 
                                        DiaposDebut : registre;
                                        DiaposFin : registre; 
                                        DureeProjection : registre) debut
                     a 1 faire changer(P,lampe,0);
                     a 2 faire changer(P,enSequence,DiaposDebut);
                     a 3 faire changer(P,dureeDiapos,DureeProjection);
                     a 4 faire changer(P,lampe,1);
                     a 5 faire changer(P,enSequence,DiaposFin);
                     
                 fin
                 
                 
                    fin experience 

       spectacle debut 
       
                        debut
                           executer passerLesDiapos(projectDiapos1,20,67,17); 
                           a 25 faire executer passerLesDiapos(projectDiapos2,20,67,17); 
                           a 30 faire debut 
                                        executer cycleLumiere(lampeBleu, 2*factorielle(3),3);
                                        a 5 faire executer cycleLumiere(lampeOrange, 2*factorielle(3),3);
                                      fin
                        fin
       fin spectacle

fin representation $