Dessin en couleur dans Rebol/Red

Question

Dans le code suivant de: http://business-programming.com/business_programming.html, je souhaite ajouter un bouton pour convertir la ligne en bleu plutôt qu'en blanc. Je l'ai essayé d'ajouter color: blue à divers endroits, mais il ne fonctionne pas:

view center-face layout [ 
     ; color: blue          ; does not work. 
    s: area black 650x350 feel [ 
     engage: func [f a e] [ 
       ; color: blue        ; does not work here also. 
      if a = 'over [ 
       append s/effect/draw e/offset 
       show s 
      ] 
      if a = 'up [append s/effect/draw 'line] ; tried adding "'pen 'blue" here before 'line 
     ] 
    ] effect [draw [line]] 
    b: btn "Save" [ 
     save/png %a.png to-image s 
     alert "Saved 'a.png'" 
    ] 
    btn "Clear" [ 
     s/effect/draw: copy [line] 
     show s] 
    ] 

Comment puis-je faire la ligne à dessiner en bleu plutôt que le blanc?

Answer 1

modifier

] effect [draw [line]] 

à

] effect [draw [pen blue line]] 

voir REBOL 2: View Draw Dialect