Don, I can reproduce your bug with plplot 5.9.5, however with the latest svn release this has been fixed. If possible, can you try that and confirm that it fixes the problem for you.
Regards Andrew On Mon, Feb 08, 2010 at 05:52:20PM -0500, Don Spong wrote: > Hello, > > I am running plplot version 5.9.5 on MacOS Snow Leopard with a code that > makes several line plots. If I use the default black background, then I can > call plcol0 before each call to plline to set different colors for each line > as expected. However, if I call plscolbg(255,255,255) (before plinit) to get > a white background, then all of the lines that should have different colors > now only come out in black. It seems that calling plscolbg has the unintended > consequence of wiping out all of the colors in Map0 so that now color 0 is > white and the others (colors 1 - 15) are now black. Any suggestions as to how > to get curves with different colors when using a white background? A test > code is given below. > > -Thanks, Don > > > implicit none > integer :: ns, mpol, ntor, mnmax, ljmn, js, mn, ipsi, nstep > 1 , nstart, j, i, k, nfp, ierr, ns1, mnmax_nyq, itst, ii, err > real*8, dimension(200) :: rmaj_ar1, zz_ar1, > 1 rmaj_ar2, zz_ar2, rmaj_ar3, zz_ar3 > real*8, dimension(200) :: rmaj1, rmaj2, rmaj3, rmaj4 > real*8, dimension(200) :: zmaj1, zmaj2, zmaj3, zmaj4 > real*8, dimension(200) :: rplot, zplot > real*8 :: two_pi, thet, zeta, rmaj, zz, arg > real*8 :: rmin1, rmax1, zmin1, zmax1 > > integer nargs, numargs, numchars, iarg > C----------------------------------------------- > two_pi = 8.d0*atan(1.d0) > ns1 = 10; nfp = 1; j = 1 > do iarg = 1,3 > zeta = (two_pi/4.d0)*dble(j-1)/dble(nfp) > do i=1,200 > thet = (i - 1)*two_pi/199. > rmaj = 6.d0; zz = 0.d0 > arg = thet > if(iarg .eq. 1) then > rmaj = rmaj + 2.*cos(arg) > zz = zz + 2.*sin(arg) > else if(iarg .eq. 2) then > rmaj = rmaj + cos(arg) > zz = zz + 2.*sin(arg) > else if(iarg .eq. 3) then > rmaj = rmaj + 2.*cos(arg) > zz = zz + sin(arg) > end if > if(iarg .eq. 1) then > rmaj_ar1(i) = rmaj; zz_ar1(i) = zz > else if(iarg .eq. 2) then > rmaj_ar2(i) = rmaj; zz_ar2(i) = zz > else if(iarg .eq. 3) then > rmaj_ar3(i) = rmaj; zz_ar3(i) = zz > end if > end do !i=1,200 > > rmin1 = 3.; rmax1 = 9.; zmin1 = -3.; zmax1 = 3. > > end do !iarg = 1,3 > > call plscolbg(255,255,255) > call plinit() > call plenv(rmin1,rmax1,zmin1,zmax1,1,1) > do i = 1,200 > rplot(i) = rmaj_ar1(i); zplot(i) = zz_ar1(i) > end do > call plcol0(1) > call plline(200,rplot,zplot,0) > do i = 1,200 > rplot(i) = rmaj_ar2(i); zplot(i) = zz_ar2(i) > end do > call plcol0(3) > call plline(200,rplot,zplot,0) > do i = 1,200 > rplot(i) = rmaj_ar3(i); zplot(i) = zz_ar3(i) > end do > call plcol0(10) > call plline(200,rplot,zplot,0) > call plend > stop > end > > > > > ------------------------------------------------------------------------------ > The Planet: dedicated and managed hosting, cloud storage, colocation > Stay online with enterprise data centers and the best network in the business > Choose flexible plans and management services without long-term contracts > Personal 24x7 support from experience hosting pros just a phone call away. > http://p.sf.net/sfu/theplanet-com > _______________________________________________ > Plplot-general mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/plplot-general > ------------------------------------------------------------------------------ The Planet: dedicated and managed hosting, cloud storage, colocation Stay online with enterprise data centers and the best network in the business Choose flexible plans and management services without long-term contracts Personal 24x7 support from experience hosting pros just a phone call away. http://p.sf.net/sfu/theplanet-com _______________________________________________ Plplot-general mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/plplot-general
