Помогите с Canvas

[mifestofel]

пишу скрипт.Должен в итоге делать многое но на данном этапе траблы с попытками рисовать на битмапе.Посмотрите что нетак...пытаюсь нарисовать линию данным цветом при изменении значения в спинере.Ошибок не светит но и не делает ничего.Пытаюсь при том же условии сменть цвет БГ не получаеться.Запарился чё ему не нравиться.Глупость небусь какая - то.

y=0
bm1= bitmap 100 100 color:green


rollout dors "Doors" width:501 height:426
(


GroupBox grp1 "Door Editor" pos:[5,3] width:490 height:417
GroupBox grp2 "sizes" pos:[17,330] width:468 height:84
label lbl2 "Weight" pos:[32,349] width:67 height:15
label lbl3 "Height" pos:[32,380] width:67 height:15
spinner spn2 "" pos:[74,350] width:88 height:16 type:#float scale:1
spinner spn3 "" pos:[74,380] width:88 height:16 type:#float scale:1
label lbl4 "Radius 1" pos:[170,349] width:67 height:15
label lbl5 "Radius 2" pos:[170,380] width:67 height:15
spinner spn4 "" pos:[217,350] width:88 height:16 type:#float scale:1
spinner spn5 "" pos:[217,380] width:88 height:16 type:#float scale:1
label lbl6 "RoundPos 1" pos:[310,349] width:67 height:15
label lbl7 "RoundPos 2" pos:[311,380] width:67 height:15
spinner spn6 "" pos:[375,350] width:88 height:16 type:#float scale:1
spinner spn7 "" pos:[375,380] width:88 height:16 type:#float scale:1
bitmap bmp1 "Bitmap" pos:[19,25] width:250 height:300 bitmap:bm1
colorPicker cp "" pos:[274,25] width:49 height:31 colorcolor 255 127.5 0) title:"Choose a color"



on spn2 changed val do
(
ary = #(cp.color)
while y<250 do
(


local bm1= bitmap 100 100 color:red
setPixels bm1 [y,40] ary
y=y+1


)
)
)
CreateDialog dors width:501 height:426

 

[Savin Denis]

Если не секрет что это будет ?

rollout dors "Doors" width:501 height:426
(



GroupBox grp1 "Door Editor" pos:[5,3] width:490 height:417
GroupBox grp2 "sizes" pos:[17,330] width:468 height:84
label lbl2 "Weight" pos:[32,349] width:67 height:15
label lbl3 "Height" pos:[32,380] width:67 height:15
spinner spn2 "" pos:[74,350] width:88 height:16 type:#float scale:1
spinner spn3 "" pos:[74,380] width:88 height:16 type:#float scale:1
label lbl4 "Radius 1" pos:[170,349] width:67 height:15
label lbl5 "Radius 2" pos:[170,380] width:67 height:15
spinner spn4 "" pos:[217,350] width:88 height:16 type:#float scale:1
spinner spn5 "" pos:[217,380] width:88 height:16 type:#float scale:1
label lbl6 "RoundPos 1" pos:[310,349] width:67 height:15
label lbl7 "RoundPos 2" pos:[311,380] width:67 height:15
spinner spn6 "" pos:[375,350] width:88 height:16 type:#float scale:1
spinner spn7 "" pos:[375,380] width:88 height:16 type:#float scale:1
bitmap bmp1 "Bitmap" pos:[19,25] width:250 height:300 bitmap:bm1
colorPicker cp "" pos:[274,25] width:49 height:31 colorcolor 255 127.5 0) title:"Choose a color"



on spn2 changed val do
(
local bm= bitmap 250 300 color:green
local y=0
while y<300 do
(
setPixels bm [40+val ,y] #(cp.color)
y=y+1
)
bmp1.bitmap = bm
)
)
CreateDialog dors width:501 height:426

 

[mifestofel]

Блин, просто не успеваю тебя благодарить за ответы, а благодарности огромное кол-во.Это будет одна из функций скрипта,автоматизируещего процесс создания блочной кухонной мебели.По работе надо вот и парюсь.Если ты в Питере живёшь когда закончю писать поставлю тебе пива...Спасиба огрромное

 

[Savin Denis]

Да в Питере ;-))
Былобы очень интересно глянуть на конечный результат