DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦1b2bf01a4⟧ TextFile

    Length: 3181 (0xc6d)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦45630a232⟧ 
            └─⟦this⟧ 

TextFile

materiel
debut 
    projecteur fait
    debut
        allumer     est     020100 (de vers en) 
        eteindre    est     020000 
        intensite_1 est     020100 (de)
        intensite_2 est     050000 (de)
        montee      est     030000 (de)
        descente    est     060000 (de)
        maintien_1  est     040000 (de)
        maintien_2  est     070000 (de)
        clignoter   est     010001
        continu     est     010000
    fin
    
    diapo fait 
    debut           
        marche      est     020001
        arret       est     020000
        allumer     est     030001 (de vers en)
        eteindre    est     030000
        intensite   est     010100 (de)
        avance      est     040000
        recul       est     050000
        espacement  est     070010 (de)
        en_sequence est     060001 (de)
    fin
fin

acteurs
debut
    projo_gauche est projecteur sur station 04
    projo_droit est projecteur sur station 09
    diapo_gauche est diapo sur station 21
    diapo_droit est diapo sur station 20
fin 


experience --equivalent a une declaration de macro
debut
    -- partie non implementee
fin 


scenario
debut 
  
    scene la_fin
    debut             
        temps_max=40.0                
        dans temps_max faire
        debut                             
            eteindre diapo_gauche
            espacement diapo_gauche de 1.0
            en_sequence diapo_gauche de 0 
            dans 20.0 faire 
            debut
                groupe projo est (projo_droit,projo_gauche)
                groupe diapo est (diapo_droit,diapo_gauche)
                continu projo
                eteindre projo
                arret diapo 
            fin
       fin
    fin

    scene le_debut
    debut              
        groupe projo est (projo_droit,projo_gauche)
        groupe diapo est (diapo_droit,diapo_gauche) 
        marche diapo_gauche  
        eteindre diapo
        continu projo
        eteindre projo         
    fin
    
    scene le_milieu
    debut           
        min=10
        max=100
        temps=10.0
        temps_1=5.0 
        dans temps_1 faire
        debut
            allumer projo_gauche de min vers max en temps
        fin
        temps_2=temps_1*2
        dans temps_2 faire
        debut
            allumer projo_gauche de max vers min en temps                  
            l_intensite_2=50
            intensite_2 projo_droit de l_intensite_2
            montee projo_droit de 0.5
            descente projo_droit de 0.5
            maintien_1 projo_droit de 0.5
            maintien_2 projo_droit de 0.5 
            la_variable=50
            l_autre_variable=la_variable*2
            intensite_1 projo_droit de l_autre_variable
            clignoter projo_droit
        fin              
        temps_3=temps_2+temps_1       

        dans temps_3 faire 
        debut  
            numero_diapo=10
            intensite diapo_gauche de 80
            allumer diapo_gauche    
             espacement diapo_gauche de 3.0          
            en_sequence diapo_gauche de numero_diapo
        fin       
    fin
fin


enchainement
debut
    le_debut   
    le_milieu
    la_fin  
fin