|
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: 5917 (0x171d)
Types: TextFile
Names: »SPECTACLE«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
representation Hamlet
materiel est collection
ProjecteurDiapositives est collection
connexion : acteur(binaire,00)
intensite : acteur(discret,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,09)
lampeOrange : station(ProjecteurLumiere,04)
projectDiapos1 : station(ProjecteurDiapositives,21)
projectDiapos2 : station(ProjecteurDiapositives,20)
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
changer(L1,connexion,1);
t=1;
tant que t < nombrefois debut
a t*periode faire
changer(L1,intensite1,100);
a t*periode faire a periode /2 faire changer(L1,intensite1,20);
t=t+1;
fin
fin
effet passerLesDiapos( P : ProjecteurDiapositives;
DiaposDebut : registre;
DiaposFin : registre;
DureeProjection : registre) debut
a 5/100 faire changer(P,secteur,0001);
a 10/100 faire changer(P,intensite,0100);
a 15/100 faire changer(P,lampe,0001);
a 2/10 faire changer(P,enSequence,DiaposDebut);
a 3/10 faire changer(P,dureeDiapos,DureeProjection);
a 4/10 faire changer(P,intensite,100);
a 4/10 faire changer(P,enSequence,DiaposFin);
a DureeProjection*DiaposDebut faire changer(P,lampe,0000);
fin
fin experience
spectacle debut
debut
changer(projectDiapos1,intensite,0100);
a 1 faire executer passerLesDiapos(projectDiapos1,1,4,70);
a 5 faire debut
a 5 faire changer(lampeBleu,intensite1,0010);
a 10 faire changer(lampeBleu,mode,0000);
a factorielle(factorielle(2))*6 faire executer cycleLumiere(lampeOrange,7,4,0);
a 20 faire executer cycleLumiere(lampeBleu,3,10,0);
fin
? factorielle(factorielle(3));
fin
fin spectacle
fin representation $