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 ┃

⟦f6530f7eb⟧ TextFile

    Length: 3211 (0xc8b)
    Types: TextFile
    Names: »FICHIER_SPECTACLE1«

Derivation

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

TextFile


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