Hi, 

I have some trouble with a gradient to use with plimagefr. To me it looks like 
wrong, can someone confirm if it is a normal behaviour or a bug? I am using the 
f90 interface.
http://pascal.parois.net/public/gradient.png

Here is how I generated the gradient:
call plscmap1n(256)
call plscmap1l(.true., &
&   (/0.0_plflt, 0.5_plflt, 1.0_plflt  /),&
&   (/1.0_plflt, 1.0_plflt, 0.0_plflt  /),&
&   (/0.0_plflt, 1.0_plflt, 1.0_plflt  /),&
&   (/0.0_plflt, 1.0_plflt, 0.0_plflt  /) )

And a complete testcase:
--------------------------------------
program buggy
use plplot
implicit none
integer, parameter :: width=256, height=200
integer i
real(kind=plflt), dimension(width,height) :: plane
real(kind=plflt) :: heightr, widthr

heightr=real(height,plflt)
widthr=real(width,plflt)

call plspal0('cmap0_black_on_white.pal')
call plinit()
! advance to the next sub page or page
call pladv(0)
! define viewport
call plvpas(0.1_plflt, 0.9_plflt, 0.1_plflt, 0.9_plflt, 2.0_plflt)
! define window
call plwind(0._plflt, widthr, &
&   0._plflt, heightr    )

call plscmap1n(256)
call plscmap1l(.true., &
&   (/0.0_plflt, 0.5_plflt, 1.0_plflt  /),&
&   (/1.0_plflt, 1.0_plflt, 0.0_plflt  /),&
&   (/0.0_plflt, 1.0_plflt, 1.0_plflt  /),&
&   (/0.0_plflt, 1.0_plflt, 0.0_plflt  /) )    

do i=0,19
    plane(:,i*10+1:(i+1)*10)=real(i-10,  plflt)
end do

call plimagefr (plane, 0.0_plflt, widthr, &
&   0.0_plflt, heightr , minval(plane) , maxval(plane) , &
&   -10.0_plflt , 10.0_plflt)        
call plend

end program
----------------------------------------

Pascal

Attachment: smime.p7s
Description: S/MIME cryptographic signature

------------------------------------------------------------------------------
Learn Windows Azure Live!  Tuesday, Dec 13, 2011
Microsoft is holding a special Learn Windows Azure training event for 
developers. It will provide a great way to learn Windows Azure and what it 
provides. You can attend the event by watching it streamed LIVE online.  
Learn more at http://p.sf.net/sfu/ms-windowsazure
_______________________________________________
Plplot-general mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/plplot-general

Reply via email to