2017-10-01 7 views
1

http://business-programming.com/business_programming.htmlのコードで、白い線ではなく青で描画される線を変換するボタンを追加します。私は、様々な場所でcolor: blueを追加しようとしましたが、それは動作していない:Rebol/Redでの色の描画

drawing

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] 
    ] 

どのように私はラインが青ではなく白で描画することができますか?

答えて

関連する問題