|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ S T ┃
Length: 4679 (0x1247)
Types: TextFile
Names: »SPECTACLE«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
representation Hamlet
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