1
http://business-programming.com/business_programming.htmlのコードで、白い線ではなく青で描画される線を変換するボタンを追加します。私は、様々な場所でcolor: blue
を追加しようとしましたが、それは動作していない:Rebol/Redでの色の描画
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]
]
どのように私はラインが青ではなく白で描画することができますか?