Rebol [ SUBJECT: "déplacement d'une ligne dans un style box" ]
    ;TITLE : "test mouvement de ligne"  


; Date: "17-03-04", inspiré du script mouvement d 'un sprite du livre d'Auverlot p.321... environ :) 

alpha: 60
pos1: 500x350
pos1bis: 500x174
pos2: 600x350
pos2bis: 600x174
pos3: pos2
pos3bis: pos2bis

anim: does  [
        
        
        alpha: alpha + 10
        if alpha > 120 [ alpha: 60 ]
        pos2/x: 500 + (200 * cosine(alpha))
        pos2bis/x: pos2/x
        pos2/y: 350 + (200 * sine(alpha))
        pos2bis/y: 150 + (200 * sine(alpha))
        pos3/x: 500 + (200 * cosine(180 - alpha))
        pos3bis/x: pos3/x
        pos3/y: 350 + (200 * sine(180 - alpha))
        pos3bis/y: 150 + (200 * sine(180 - alpha))
        
        
        
        

    
    append cadre/effect/draw 
                [
        pen black
        CIRCLE 500X150 24
        line pos1 pos2
        line pos1 pos3
        line 500x174 500x350         
        line pos1bis pos2bis
        line pos1bis pos3bis                    
                    ] 

        show cadre 
        ]
    
        
    ecran: layout/size [
                backdrop white
                cadre: box 1000x700 rate 20 feel [
                engage: func [ f a e ]  [
                if a = 'time [anim]
                        ]
                             ] effect [ draw []]
               ] 1000x700
        view ecran