Bill, I haven't been able to open your attachment.  I found that if I have a 
script that runs correctly in jqt, I open it in JHS.  Since it has wd commands 
it won't run.  However, if I copy the script from the file, and baste it into 
an email, I don't get typos. That's how I finally sent you the script. From JHS 
there are no extra lines inserted. 

Linda

-----Original Message-----
From: [email protected] 
[mailto:[email protected]] On Behalf Of bill lam
Sent: Monday, May 25, 2015 12:00 PM
To: [email protected]
Subject: Re: [Jprogramming] Mixing Colors of Light

Sorry, there are typos again. The 2 lines should be

VISIBLE_jviewmat_=:GUI_jviewmat_=:0

VISIBLE_jviewmat_=:GUI_jviewmat_=:1

if the images are too large, try set a smaller default size, eg.

DEFWH_jviewmat_=: 200 200


Пн, 25 май 2015, bill lam написал(а):
> id of child dupldated in your code. Pls try the attached script.
> 
> 
> Пн, 25 май 2015, Linda Alvord написал(а):
> > When you look at the grid demo, you set where each button is to be located.
> > It seems impossible to tell the images which box place to go in the grid.
> > It doesn't seem willing to deal with several pngs. So ithe puts them 
> > all in the same place.
> > 
> > load 'viewmat'
> > RGB=:0 255{~#:i.8
> > GRB=:1 0 2{"1 RGB
> > RGB;GRB
> > PLUS=:-.0=*/~i:4
> > TOP=:i.8
> > SIDE=:|:i.8
> > A=:<.0.5*(i.8 8)+|:i.8 8
> > B=:(i.8)<:/i.8
> > GRB viewmat PLUS;'PLUS'
> > GRB viewmat TOP;'TOP'
> > E=.GRB viewmat SIDE;'SIDE'
> > C=:63*(i.8)>/i.8
> > BLEND=:C+B*A
> > 
> > GUI_jviewmat_=:0
> > GRB viewmat BLEND;'BLEND'
> > GUI_viewmat_=:1
> > 
> > coclass 'qtdemo'
> > blendcolor_run=: 3 : 0
> > wd 'pc imdemo closeok escclose'
> > wd 'grid size 2 2'
> > wd 'cc pic image'
> > wd 'cc png image'
> > wd 'cc png image'
> > wd 'cc png image'
> > wd 'set pic image *' ,jpath '~temp/PLUS.png'
> > wd 'set png image *', jpath '~temp/TOP.png'
> > wd 'set png image *', jpath '~temp/SIDE.png'
> > wd 'set png image *', jpath '~temp/BLEND.png'
> > wd 'pshow'
> > )
> > 
> > blendcolor_close=: 3 : 0
> > wd 'pclose'
> > )
> > blendcolor_run''
> > 
> > Linda
> > 
> > -----Original Message-----
> > From: [email protected]
> > [mailto:[email protected]] On Behalf Of bill 
> > lam
> > Sent: Thursday, May 21, 2015 9:46 PM
> > To: Programming forum
> > Subject: Re: [Jprogramming] Mixing Colors of Light
> > 
> > try adding a dummy SIDE.png
> > 
> > D=.GRB viewmat PLUS;'SIDE'
> > 
> > the other png files should be artifacts of running viewmat under 
> > jhs, probably harmless.
> > On May 22, 2015 9:06 AM, "Linda Alvord" <[email protected]> wrote:
> > 
> > > I don't understand this very well yet. If you run your code and 
> > > look at the files in temp, PLUS and the other three all have a 
> > > mass of numbers including a date between  PLUS and .png
> > >
> > > My code doesn't do that, but I don't know why it doesn't.
> > >
> > > Linda
> > >
> > > ----Original Message-----
> > > From: [email protected]
> > > [mailto:[email protected]] On Behalf Of 
> > > Linda Alvord
> > > Sent: Thursday, May 21, 2015 8:43 PM
> > > To: [email protected]
> > > Subject: Re: [Jprogramming] Mixing Colors of Light
> > >
> > > I haven't gotten yours to work yet.  Mine follows 'image demo'. It 
> > > puts image 2 3 and 4 on top of  one another in space 2 and nothing 
> > > in the bottom row. (cut and paste in jqt)
> > >
> > > load 'viewmat'
> > > RGB=:0 255{~#:i.8
> > > GRB=:1 0 2{"1 RGB
> > > RGB;GRB
> > > PLUS=:-.0=*/~i:4
> > > ]A=:<.0.5*(i.8 8)+|:i.8 8
> > > ]B=:(i.8)<:/i.8
> > > ]C=:63*(i.8)>/i.8
> > > C+B*A
> > > PLUS=:-.0=*/~i:4
> > > GUI_jviewmat_=:0
> > > D=.GRB viewmat PLUS;'PLUS'
> > > E=.GRB viewmat (i.8);'TOP'
> > > GRB viewmat (C+B*A);'BLEND'
> > > GUI_viewmat_=:1
> > >
> > > coclass 'qtdemo'
> > > imdemo_run=: 3 : 0
> > > wd 'pc imdemo closeok escclose'
> > > wd 'grid size 2 2'
> > > wd 'cc pic image'
> > > wd 'cc png image'
> > > wd 'cc png image'
> > > wd 'cc png image'
> > >
> > > wd 'set pic image *' ,jpath '~temp/PLUS.png'
> > >
> > > d=.readimg_jqtide_ jpath '~temp/TOP.png'
> > > d writeimg_jqtide_ jpath '~temp/TOP.png'
> > > wd 'set png image *', jpath '~temp/TOP.png'
> > >
> > > d1=.|: d
> > > d1 writeimg_jqtide_ jpath '~temp/SIDE.png'
> > > wd 'set png image *', jpath '~temp/SIDE.png'
> > >
> > > d2=.readimg_jqtide_ jpath '~temp/BLEND.png'
> > > d2 writeimg_jqtide_ jpath '~temp/BLEND.png'
> > > wd 'set png image *', jpath '~temp/BLEND.png'
> > >
> > > wd 'pshow'
> > > )
> > >
> > > imdemo_run''
> > >
> > > Linda
> > >
> > > -----Original Message-----
> > > From: [email protected]
> > > [mailto:[email protected]] On Behalf Of 
> > > bill lam
> > > Sent: Thursday, May 21, 2015 7:38 PM
> > > To: Programming forum
> > > Subject: Re: [Jprogramming] Mixing Colors of Light
> > >
> > > oop, sorry.  SIDE.png had not been written.
> > > ------------------------------------------------------------------
> > > ---- For information about J forums see 
> > > http://www.jsoftware.com/forums.htm
> > >
> > > ------------------------------------------------------------------
> > > ---- For information about J forums see 
> > > http://www.jsoftware.com/forums.htm
> > >
> > > ------------------------------------------------------------------
> > > ---- For information about J forums see 
> > > http://www.jsoftware.com/forums.htm
> > >
> > --------------------------------------------------------------------
> > -- For information about J forums see 
> > http://www.jsoftware.com/forums.htm
> > 
> > --------------------------------------------------------------------
> > -- For information about J forums see 
> > http://www.jsoftware.com/forums.htm
> 
> --
> regards,
> ====================================================
> GPG key 1024D/4434BAB3 2008-08-24
> gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 gpg --keyserver 
> subkeys.pgp.net --armor --export 4434BAB3

> 
> load 'viewmat'
> VISIBLE_jviewmat_=GUI_jviewmat_=:0
> RGB=:0 255{~#:i.8
> GRB=:1 0 2{"1 RGB
> RGB;GRB
> PLUS=:-.0=*/~i:4
> TOP=:i.8
> SIDE=:|:i.8
> A=:<.0.5*(i.8 8)+|:i.8 8
> B=:(i.8)<:/i.8
> GRB viewmat PLUS;'PLUS'
> GRB viewmat TOP;'TOP'
> E=.GRB viewmat SIDE;'SIDE'
> C=:63*(i.8)>/i.8
> BLEND=:C+B*A
> 
> GRB viewmat BLEND;'BLEND'
> VISIBLE_jviewmat_=GUI_jviewmat_=:1
> 
> coclass 'qtdemo'
> blendcolor_run=: 3 : 0
> wd 'pc imdemo closeok escclose'
> wd 'grid size 2 2'
> wd 'cc pic image'
> wd 'cc png1 image'
> wd 'cc png2 image'
> wd 'cc png3 image'
> wd 'set pic image *' ,jpath '~temp/PLUS.png'
> wd 'set png1 image *', jpath '~temp/TOP.png'
> wd 'set png2 image *', jpath '~temp/SIDE.png'
> wd 'set png3 image *', jpath '~temp/BLEND.png'
> wd 'pshow'
> )
> 
> blendcolor_close=: 3 : 0
> wd 'pclose'
> )
> blendcolor_run''
> 


--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 gpg --keyserver 
subkeys.pgp.net --armor --export 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to