I have revised the 4 new verbs as follows and am
getting desirable results. In addition I added an
initializing to a now global HP and VP in the existing verb
loadbmp as shown below.
mousepos=: 3 : '2 {. ". sysdata'
paledit_pic_mbldown=:3 : 0
glsel 'pic'
glcapture 2
pos =: mousepos''
)
paledit_pic_mblup=:3 : 0
glsel 'pic'
glcapture 0
pos =: pos -~ mousepos''
updatepic ''
display_pal ''
)
updatepic=: 3 : 0
MAG=.".mag
in=.<.((i.%<:)400)*((400%99)*(99-MAG))+(MAG%99)*<:M<.N
HP=: 0>.399<.HP+ <.(((".horpos)+{.pos)%99)*N->:{:in
VP=: 0>.399<.VP+<.(((".verpos)+{:pos)%99)*M->:{:in
bit=: (HP+in){"1 ((M-1)-|.VP+in){bitmap2
)
loadbmp=:3 : 0
if. 0<#fn do.
'pa bitmap'=:raw_pal_read fn
'M N'=:$bitmap
bitmap2=:|.(_1 1*>./M,N){.bitmap
pa=:256{.pa
pa_hist=:i.0 256 3
HP=: VP=: 0 NB. added
updatebit ''
display_pal ''
end.
)
Thank you for your help and patience.
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
