17 Apr 2018 11:37
#21861
I have some code for selection of a colour ramp which worked perfectly before, using 2 x n boxes. n was originally set to 11 but I have now reduced it to 4 to demonstrate the problem.
In 8.30 it now increases the height of the box for each row of boxes added. Like this...
and elsewhere the image height is set wrongly too. Here is the snippet of code for the colour ramps.
jj = winio@ ('%ww[thin_border]%ca[select colour ramp]&')
jj = winio@ ('%11`ga&',k(1),k(2),k(3),k(4),k(5),k(6),
1 k(7),k(8),k(9),k(10),k(11))
jj = winio@('%ff%nl%2.4ob[thin_margin,bottom_exit]&')
maxcr = 4
do i=1,maxcr
crname='{'//prog_path_name(1:lenppn)//'cramp'//crfl(i)//'}'
lencr = len_trim(crname)
if (ndebug.gt.0) write (idsply,5501) i,lencr,crname(1:lencr)
5501 format ('i=',i2,' lencr=',i5,' crname=',a)
jj=winio@('%rb@%cb&',crx(i),k(i))
jj=winio@('%im@%cb&',crname(1:lencr))
end do
jj = winio@ ('%ff%^bt[ok]','exit')
The graph window doesn't use boxes, just %im to display the colour ramp image below a %pl graph
The colour ramp image files are all the same size .jpg files, 256 x 32 pixels
This is a serious bug and one that needs urgent attention !