plplot-general — PLplot user discussion group

[plplot-general] help jpeg

[Chunhui P. <ch...@mi...>]

Hi,

I grab gd.h v1.8.4 from http://www.boutell.com/gd/.
which matches libgd on my machine (Linux),
and setup lib link to /usr/lib, But it says 
checking for main in -lgd... no
warning: gd library not found

Even I install a new lib, it is still like this..

Anyone can help me?  

-- 
Chunhui Pan,  Ph.D.
NASA/GSFC Code 660.0     Phone: 301-286-0810
Greenbelt, MD 20771      FAX:   301-286-1215
e-mail: ch...@mi...

Re: [Plplot-general] Zoom in tkl plot

[Maurice L. <mj...@ga...>]

Jo=E3o Cardoso writes:
 > On Wednesday 27 November 2002 15:05, Jo=E3o Cardoso wrote:
 > | On Wednesday 27 November 2002 14:26, Morris, Steven J wrote:
 > | | Since there's been so much traffic on this list the last few day=
s,
 > | | I thought I'd throw this one in.
 > |
 > | Sure, let as help each other.
 > |
 > | | I'm using the tk plot, where the graphics are all calculated and=

 > | | done in C++, but the window is embedded in a tk window with some=

 > | | other widgets.  I notice that when I zoom, it resizes the plplot=

 > | | window, making it slightly wider, and writing over some other
 > | | widgets I happen to have nearby.  I figure I can go in and fix t=
he
 > | | problem myself, but I won't bother if someone else has fixed it
 > | | already.
 > |
 > | In the past I also used that kind of setup, but I don't remember t=
o
 > | have such problems. I used the "packer" geometry manager, that
 > | resizes widgets when one of them happens to grow or shrink. What
 > | geometry menager are you using?
 > |
 > | Any way, the plot window should not change size... but the appeara=
nce
 > | of the scroll bars could explain the reason.
 >=20
 > Yes, you are right (and me too). I run one of these my apps, and whe=
n I=20
 > enter zoom mode the apearance of the scroll bars makes the frame whe=
re=20
 > the plot is embedded to grow; the plot window keeps its original siz=
e.

I see it too.. strange, because it doesn't happen when running a plfram=
e from
the tk driver.  Am looking into it.

--=20
Maurice LeBrun    mj...@ga...
Research Organization for Information Science and Technology of Japan (=
RIST)

Re: [Plplot-general] Zoom in tkl plot

[<jc...@fe...>]

On Wednesday 27 November 2002 15:05, Jo=E3o Cardoso wrote:
| On Wednesday 27 November 2002 14:26, Morris, Steven J wrote:
| | Since there's been so much traffic on this list the last few days,
| | I thought I'd throw this one in.
|
| Sure, let as help each other.
|
| | I'm using the tk plot, where the graphics are all calculated and
| | done in C++, but the window is embedded in a tk window with some
| | other widgets.  I notice that when I zoom, it resizes the plplot
| | window, making it slightly wider, and writing over some other
| | widgets I happen to have nearby.  I figure I can go in and fix the
| | problem myself, but I won't bother if someone else has fixed it
| | already.
|
| In the past I also used that kind of setup, but I don't remember to
| have such problems. I used the "packer" geometry manager, that
| resizes widgets when one of them happens to grow or shrink. What
| geometry menager are you using?
|
| Any way, the plot window should not change size... but the appearance
| of the scroll bars could explain the reason.

Yes, you are right (and me too). I run one of these my apps, and when I=20
enter zoom mode the apearance of the scroll bars makes the frame where=20
the plot is embedded to grow; the plot window keeps its original size.

But if I increase the overall app. window (using the wm resize handles),=20
than, after a certain limit, when I enter zoom mode the apearance of=20
the scroll bars makes the plot window shrink, so that the overal frame=20
size of the plot and the scroll bars is keept constant.
So we have a problem with the initialization/initial size of the window.

Joao
=20
|
| Joao
|
| | If not, and I do fix it myself, is there someone I should send the
| | fix to?
|
| This list, or the devel list, is OK. I prefer context diffs (diff -c)
| Thanks,
| Joao
|
| | (There's no guarantee that I'll try to fix it, since it isn't
| | really that important, so keeps getting pushed down my to-do list)
| |
| | Also, I had to do some jimmy-rigging of the install script on
| | either the HP or Linux (I can't remember which now).  One of the
| | temp files got too long and the system bailed.  I'm being vague,
| | but I have it all in my notes so I can be exact if anyone is
| | interested.
| |
| | Thanks,
| | Steve
| |
| |
| | -------------------------------------------------------
| | This SF.net email is sponsored by: Get the new Palm Tungsten T
| | handheld. Power & Color in a compact size!
| | http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
| | _______________________________________________
| | Plplot-general mailing list
| | Plp...@li...
| | https://lists.sourceforge.net/lists/listinfo/plplot-general
|
| -------------------------------------------------------
| This SF.net email is sponsored by: Get the new Palm Tungsten T
| handheld. Power & Color in a compact size!
| http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
| _______________________________________________
| Plplot-general mailing list
| Plp...@li...
| https://lists.sourceforge.net/lists/listinfo/plplot-general

RE: [Plplot-general] Zoom in tkl plot

[Morris, S. J <ste...@in...>]

 
> In the past I also used that kind of setup, but I don't remember to have
> such problems. I used the "packer" geometry manager, that resizes
> widgets when one of them happens to grow or shrink. What geometry
> menager are you using?

Yes, I am using "pack".  As I recall, "grid" would not work with the plplot
tk window, but I don't remember why.

> Any way, the plot window should not change size... but the appearance of
> the scroll bars could explain the reason.

Yes, it was a scroll bar issue.  I remember from a quick look that I thought
I would fix it by having the scroll bars there from the start... I just
never got around to doing it.  

Steve

Re: [Plplot-general] Zoom in tkl plot

[Alan W. I. <ir...@be...>]

On Wed, 27 Nov 2002, Morris, Steven J wrote:
...a question about zooming and widget resizing which I will let the Tk
experts here handle.

> If not, and I do fix it myself, is there someone I should send the fix to?
> (There's no guarantee that I'll try to fix it, since it isn't really that
> important, so keeps getting pushed down my to-do list)

Make a patch.  The easiest way is

diff -Naur old-clean-tree new-clean-tree >plplot.patch

*Look at that patch file to make sure the patch contains only the changes
you want.* That means the two trees must be clean (e.g., don't have any
compiled results or extra files in them that will mess up the diff).

Send the patch as an attachment to plplot_devel which is monitored by the
core team and lots of others.

>
> Also, I had to do some jimmy-rigging of the install script on either the HP
> or Linux (I can't remember which now).  One of the temp files got too long
> and the system bailed.  I'm being vague, but I have it all in my notes so I
> can be exact if anyone is interested.
>

I am right in the middle of substantially changing our configuration scheme
using automake, autoheader, libtool, etc.  The goal here is to eliminate all
the "jimmy-rigging", i.e., produce a configure script that "just works" over
a wide variety of Unix/Linux platforms.  There is quite a bit still to do to
obtain all functionality and it also needs thorough testing when completed,
but the preliminary results are looking good.  For details see my recent
posts to plplot_devel.

Alan

email: ir...@be...
phone: 250-727-2902	FAX: 250-721-7715
snail-mail:
Dr. Alan W. Irwin
Department of Physics and Astronomy,
University of Victoria, P.O. Box 3055,
Victoria, British Columbia, Canada, V8W 3P6
__________________________

Linux-powered astrophysics
__________________________

Re: [Plplot-general] Zoom in tkl plot

[<jc...@fe...>]

On Wednesday 27 November 2002 14:26, Morris, Steven J wrote:
| Since there's been so much traffic on this list the last few days, I
| thought I'd throw this one in.

Sure, let as help each other.

| I'm using the tk plot, where the graphics are all calculated and done
| in C++, but the window is embedded in a tk window with some other
| widgets.  I notice that when I zoom, it resizes the plplot window,
| making it slightly wider, and writing over some other widgets I
| happen to have nearby.  I figure I can go in and fix the problem
| myself, but I won't bother if someone else has fixed it already.

In the past I also used that kind of setup, but I don't remember to have=20
such problems. I used the "packer" geometry manager, that resizes=20
widgets when one of them happens to grow or shrink. What geometry=20
menager are you using?

Any way, the plot window should not change size... but the appearance of=20
the scroll bars could explain the reason.

Joao

| If not, and I do fix it myself, is there someone I should send the
| fix to?

This list, or the devel list, is OK. I prefer context diffs (diff -c)
Thanks,
Joao

| (There's no guarantee that I'll try to fix it, since it isn't
| really that important, so keeps getting pushed down my to-do list)
|
| Also, I had to do some jimmy-rigging of the install script on either
| the HP or Linux (I can't remember which now).  One of the temp files
| got too long and the system bailed.  I'm being vague, but I have it
| all in my notes so I can be exact if anyone is interested.
|
| Thanks,
| Steve
|
|
| -------------------------------------------------------
| This SF.net email is sponsored by: Get the new Palm Tungsten T
| handheld. Power & Color in a compact size!
| http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
| _______________________________________________
| Plplot-general mailing list
| Plp...@li...
| https://lists.sourceforge.net/lists/listinfo/plplot-general

[Plplot-general] Zoom in tkl plot

[Morris, S. J <ste...@in...>]

Since there's been so much traffic on this list the last few days, I thought
I'd throw this one in.

I'm using the tk plot, where the graphics are all calculated and done in
C++, but the window is embedded in a tk window with some other widgets.  I
notice that when I zoom, it resizes the plplot window, making it slightly
wider, and writing over some other widgets I happen to have nearby.  I
figure I can go in and fix the problem myself, but I won't bother if someone
else has fixed it already.

If not, and I do fix it myself, is there someone I should send the fix to?
(There's no guarantee that I'll try to fix it, since it isn't really that
important, so keeps getting pushed down my to-do list)

Also, I had to do some jimmy-rigging of the install script on either the HP
or Linux (I can't remember which now).  One of the temp files got too long
and the system bailed.  I'm being vague, but I have it all in my notes so I
can be exact if anyone is interested. 

Thanks,
Steve

Re: [Plplot-general] help

[<jc...@fe...>]

On Wednesday 27 November 2002 13:37, Chunhui Pan wrote:
| Hi,
|
| I need jpg files, but couldn't find gd.h.

What do you mean with "I couldn't find"?  `configure', in a unix/linux=20
system will find it for you. In my system:

[jcard@feup] rpm -ql gd-devel
/usr/include/gd.h


|  How to get png, gd driver
| work? I'm unable to get it even following the instruction.
|
| Thank you

We need more details in order to help you. What platform are you using?

If you are using unix/linux, you need to compile or rpm-install the gd=20
library, as well as the png or jpeg libraries or rpms.

On my system, Suse-8.0 linux, the following rpm packages are needed:
gd-1.8.4, gd-devel-1.8.4,  libpng-2.1.0.12, libpng-devel-2.1.0.12,=20
libjpeg-6.2.0, libz-1.1.3, besides the usual X11 packages.

Joao

[Plplot-general] help

[Chunhui P. <ch...@mi...>]

Hi,

I need jpg files, but couldn't find gd.h. How to get png, gd driver work?
I'm unable to get it even following the instruction.

Thank you
-- 
Chunhui Pan,  Ph.D.
NASA/GSFC Code 660.0     Phone: 301-286-0810
Greenbelt, MD 20771      FAX:   301-286-1215
e-mail: ch...@mi...

Re: [Plplot-general] (no subject)

[Vince D. <vi...@sa...>]

Ok, I understand this a bit.  The 'Plplotter' package is the one achieved
by using the windows-specific makefile from my changes over the last
couple of years, using the 'tkwin' driver.  It only exposes the 'plframe'
widget and associated megawidgets to the level of Tcl/Tk.  The API Rayal
is referring to is that achieved through 'Pltcl_Init' which simply isn't
in it.

Rayal: for someone who knows the relevant APIs, it shouldn't be hard to
compile a different version which exposes the stuff you are trying to use,
but I think you will find it easier just to use plplot via 'plframe', so
do this:

package require Plplotter
plframe .p

and then wherever you see a command 'plinit', 'plcol0' etc, use instead:

.p cmd plinit
.p cmd plcol0 ...

etc.

cheers,

-- Vince

<http://www.santafe.edu/~vince>


On Tue, 26 Nov 2002, Rayal wrote:

> Hi
> Thank you for your response.
> I have installed Plplot5.1.0 along with ActiveState  Tcl/Tk on NT sysytem.
> I believe the Plplot installation was successful because I could see
> Plplotter among the list of all packages that I got with "package names"
> command. I haven't compiled or built any source files. I tried to source a
> small script file(.tcl)with the following code which was given in Plplot
> reference document:
>
>  ////////////////////////////////////////////////////////
>    package require Plplotter
>    set xmin 0; set xmax 1; set ymin 0; set ymax 1
>    set just 0; set axis 0
>    set xlab (x)
>    set ylab (y)
>    set title "The title of the graph"
>    plinit
>    plenv $xmin $xmax $ymin $ymax $just $axis
>    pllab $xlab $ylab $title
>  /////////////////////////////////////////////////////////
>
> I got the error message saying.."invalid command name plinit"
>  I tried removing the offending line and again I got the error ..
>  " invalid command name plenv"
>  Similarly I also tried many commands at the tcl prompt but all I get is
> the 'invalid command' error.
> However interesting point to note is that If I type  "Plplotwin .p" at  the
> Tcl prompt I get a blank Plplot Widget window with all the menu items
>  'File', 'Orient', 'Zoom', 'Page', 'Options'.
>
>  So I have a feeling that the package was installed correctly, but I am
> unable to figure out how to make the code/commands work. Could you please
> throw some light on this.
>
>  Rayal.
> _______________________________________________________________
> Get Your FREE FlashMail Address now at http://www.flashmail.com
> It's Free, Easy, & Fun !!!
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Get the new Palm Tungsten T
> handheld. Power & Color in a compact size!
> http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
> _______________________________________________
> Plplot-general mailing list
> Plp...@li...
> https://lists.sourceforge.net/lists/listinfo/plplot-general
>

[Plplot-general] (no subject)

[Rayal <ra...@fl...>]

Hi
Thank you for your response.
I have installed Plplot5.1.0 along with ActiveState  Tcl/Tk on NT sysytem.
I believe the Plplot installation was successful because I could see
Plplotter among the list of all packages that I got with "package names"
command. I haven't compiled or built any source files. I tried to source a
small script file(.tcl)with the following code which was given in Plplot
reference document:

 ////////////////////////////////////////////////////////
   package require Plplotter
   set xmin 0; set xmax 1; set ymin 0; set ymax 1
   set just 0; set axis 0
   set xlab (x)
   set ylab (y)
   set title "The title of the graph"
   plinit
   plenv $xmin $xmax $ymin $ymax $just $axis
   pllab $xlab $ylab $title
 /////////////////////////////////////////////////////////
 
I got the error message saying.."invalid command name plinit"
 I tried removing the offending line and again I got the error ..
 " invalid command name plenv" 
 Similarly I also tried many commands at the tcl prompt but all I get is
the 'invalid command' error.
However interesting point to note is that If I type  "Plplotwin .p" at  the
Tcl prompt I get a blank Plplot Widget window with all the menu items 
 'File', 'Orient', 'Zoom', 'Page', 'Options'.
 
 So I have a feeling that the package was installed correctly, but I am 
unable to figure out how to make the code/commands work. Could you please
throw some light on this.

 Rayal. 
_______________________________________________________________
Get Your FREE FlashMail Address now at http://www.flashmail.com
It's Free, Easy, & Fun !!!

Re: [Plplot-general] (no subject)

[<jc...@fe...>]

On Tuesday 26 November 2002 11:08, Rayal wrote:
| Hi
|
| I have installed Plplot5.1.0 on my NT machine with Tcl/Tk 8.4.

With sucess, I supose; did you compile/run the examples? with what=20
driver? tkwin? vga? png? ...???

| I could successfully load the package on Tclkit software but I am
| unable to plot any graphs.For any Plplot command I type,

where? What prescription are you following?

| I get only a
| 'command not found ' error. Can somebody please tell me how to access
| the plplot commands.=20

Can you please send a complete description of the errors you get,=20
including the commands that generate it? A copy/paste of the typed=20
commands/printed results is fine.

Joao

|Do I need to tweak any of the source code.
|
| Rayal
| _______________________________________________________________
| Get Your FREE FlashMail Address now at http://www.flashmail.com
| It's Free, Easy, & Fun !!!
|
|
| -------------------------------------------------------
| This SF.net email is sponsored by: Get the new Palm Tungsten T
| handheld. Power & Color in a compact size!
| http://ads.sourceforge.net/cgi-bin/redirect.pl?palm0002en
| _______________________________________________
| Plplot-general mailing list
| Plp...@li...
| https://lists.sourceforge.net/lists/listinfo/plplot-general

[Plplot-general] (no subject)

[Rayal <ra...@fl...>]

Hi

I have installed Plplot5.1.0 on my NT machine with Tcl/Tk 8.4.
I could successfully load the package on Tclkit software but I am unable to
plot any graphs.For any Plplot command I type, I get only a 'command not
found ' error. Can somebody please tell me how to access the plplot
commands. Do I need to tweak any of the source code.

Rayal
_______________________________________________________________
Get Your FREE FlashMail Address now at http://www.flashmail.com
It's Free, Easy, & Fun !!!

[Plplot-general] problem with rpath

[Valerij P. <vp...@ir...>]

Hello!

I tried to rebuild my plplot rpm and met a problem. The compilation was gone satisfactory
except many warnings with compiling tk/tcl modules.
On the build stage I met an error
>   libdirs=
Compressing files in /home/soft/RPM/tmp/plplot-buildroot (auto)
Verifying ELF objects in /home/soft/RPM/tmp/plplot-buildroot (normal)
./usr/bin/pltek: RPATH contains "/home/soft/RPM/BUILD": /home/soft/RPM/BUILD/plplot-5.1.0/tmp
./usr/share/plplot_octave/plplot_octave.oct: RPATH contains "/home/soft/RPM/tmp/plplot-buildroot": /home/soft/RPM/tmp/plplot-buildroot/usr/lib
Error ....
If I compile with "--disable-rpath" the octave module does not work

Thanks in advance for any suggestion

best regards
Valerij  

Re: [Plplot-general] What am I doing wrong here?

[Alan W. I. <ir...@be...>]

Samuel,

Please make sure PLplot builds correctly on your system first before we get
into any details of your own code.

Can you build and run the fortran examples?

A demonstration build can be done by

make fdemos

in the plplot/tmp directory.

Another alternative is to build (make) and install (make install) plplot.

Then cd to $prefix/lib/plplot5.1.0/examples/f77, and then execute
make fdemos.

Once the fortran examples are working, then you should be able to quickly
learn from them what (if anything) is wrong with your own code, although
if you are really stuck, I might be able to give you a further hand.

Alan

email: ir...@be...
phone: 250-727-2902	FAX: 250-721-7715
snail-mail:
Dr. Alan W. Irwin
Department of Physics and Astronomy,
University of Victoria, P.O. Box 3055,
Victoria, British Columbia, Canada, V8W 3P6
__________________________

Linux-powered astrophysics
__________________________

[Plplot-general] What am I doing wrong here?

[Samuel H. D. Jr. <sd...@sp...>]

Plplot List,



I'm running Plplot version 5.1.0 on a Mac under OS 9.2.1 using Absoft 
Fortran version. 8.0. I'm trying
to have Plplot a series of graphs, three curves per graph with axes 
numbering, axes labels and titles.
The curves are being plotted, but I can't seem to get Plplot to output 
the axes numbering, labeling
and titles. Further, I'd lime to have the horizontal axis to be twice as 
long as the vertical axis. The
routine that does the plotting is given below. Does anyone have any 
ideas as to what I'm doing
wrong?

Thanks in advance.

Sam Dupree.


      subroutine ssi_residual_plot

      implicit double precision  ( a - h, o - z, A - H, O - Z )


      include 'state_space.inc'

      include 'astrodyn_const.inc'

      include 'diva_support.inc'

      include 'iounits.inc'

      include 'lunar_state.inc'

      include 'phys_const.inc'

      include 'planet_eph_control.inc'

      include 'residuals.inc'



      character *  80     version

      character * 132     text

      double precision    J2000,
     1                    x8min, x8max, x8dist,
     2                    y8min, y8max, y8dist, xminp, xmaxp

      logical             done

      integer             max_pts, nxdiv, nydiv
      parameter         ( max_pts = 400 )

      real      *   4     xmin, xmax, xdist, ymin, ymax, ydist,
     1                    delta_max(9), delta_min(9),
     2                    tjd(max_pts), diff(max_pts,9)




      data                nxdiv/ 4 /, nydiv/ 4 /






c ----------------------------------------------------------------------
c     set the frame center and reference frame IDs
c ----------------------------------------------------------------------

      l = frame_center
      m = ref_frame_id




c ----------------------------------------------------------------------
c     set the time span for the plots
c ----------------------------------------------------------------------

      x8min = J2000()  +  et_start
      x8max = J2000()  +  et_stop




c ----------------------------------------------------------------------
c     call SCALE1() to generate "nice" numbers for the horizontal axis
c ----------------------------------------------------------------------

      call SCALE1( x8min, x8max, nxdiv, xminp, xmaxp, x8dist )

      xmax  = xmaxp
      xmin  = xminp
      xdist = x8dist


c ----------------------------------------------------------------------
c     call plgver_() to obtain the Plplot version
c ----------------------------------------------------------------------

      call plgver_( version )


c ----------------------------------------------------------------------
c     output the Plplot version to the report
c ----------------------------------------------------------------------

      write( luncrt, 2000 ) CHAR(12), version
      write( lunprt, 2000 ) CHAR(12), version


c ----------------------------------------------------------------------
c     call plscolbg_() to set the background color in terms of red,
c                      green, and blue
c ----------------------------------------------------------------------

      call plscolbg_( 000, 000, 000 )


c ----------------------------------------------------------------------
c     call plinit_() to initialize Plplot
c ----------------------------------------------------------------------

      call plinit_()


c ----------------------------------------------------------------------
c     call plssub_() to have one plot per subframe
c ----------------------------------------------------------------------

      call plssub_( 1, 1 )


c ----------------------------------------------------------------------
c     generate plots of the Solar System Barycentric position, velocity
c     and RIC position residuals for all objects
c ----------------------------------------------------------------------

      do   i = 1, state_space_size

         if( ss_to_cs_index(i) .ne. libration_index ) then

            j = state_space_to_eph( i )
            lunit = lundif( j )

            do   k = 1, 9
               delta_max(k) = max_resid(k,i)
               delta_min(k) = min_resid(k,i)
            end do

            do   k = 1, 9, 3

               rewind lunit
               done = .false.

               y8max = max( delta_max(k  ), delta_max(k+1),
     1                      delta_max(k+2) )

               y8min = min( delta_min(k  ), delta_min(k+1),
     1                      delta_min(k+2) )

               call SCALE1( y8min, y8max, nydiv, xminp, xmaxp, y8dist )

               ymax  = xmaxp
               ymin  = xminp
               ydist = y8dist


               call plcol0_( 13 )
               call plenv_( xmin, xmax, ymin, ymax, 0, 0 )
               call plbox_( 'bcnst', xdist, 0, 'bcnstv', ydist, 0 )


               if( k .lt. 4 ) then

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' Position Residuals (E-C) - DIVA'

               elseif( k .lt. 7 )then

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' Velocity Residuals (E-C) - DIVA'

               else

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' RIC Position Residuals (E-C) - DIVA'

               end if

               call plcol0_( 6 )
               call pllab_( 'Julian Day', 'Residuals (km)', text )


               do   while( .not. done )

                  npts= 0
                  do   ii = 1, max_pts
                     read( unit = lunit, fmt = *, iostat = iret )
     1                     tjd(ii), ( diff(ii,jj), jj = 1, 9 )

                     if( iret .ne. 0 ) then
                        done = .true.
                        exit
                     else
                        npts = ii
                     end if
                  end do

                  if( npts .ne. 0 ) then

                     call plcol0_( 1 )
                     call plline_( npts, tjd(1), diff(1, k  ) )

                     call plcol0_( 3 )
                     call plline_( npts, tjd(1), diff(1, k+1) )

                     call plcol0_( 9 )
                     call plline_( npts, tjd(1), diff(1, k+2) )

                  end if

               end do

               call pleop_()

            end do

         end if

      end do



      if( .not. state_space_sel(18) ) then

         i = state_space_size  +  1

         j = 1
         lunit = lundif( j )

         do   k = 1, 9
            delta_max(k) = max_resid(k,i)
            delta_min(k) = min_resid(k,i)
         end do

         do   k = 1, 9, 3

            rewind lunit
            done = .false.

            y8max = max( delta_max(k  ), delta_max(k+1),
     1                   delta_max(k+2) )

            y8min = min( delta_min(k  ), delta_min(k+1),
     1                   delta_min(k+2) )

            call SCALE1( y8min, y8max, nydiv, xminp, xmaxp, y8dist )

            ymax  = xmaxp
            ymin  = xminp
            ydist = y8dist


            call plcol0_( 13 )
            call plenv_( xmin, xmax, ymin, ymax, 0, 0 )
            call plbox_( 'bcnst', xdist, 0, 'bcnstv', ydist, 0 )


            if( k .lt. 4 ) then

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' Position Residuals (E-C) - DIVA'

            elseif( k .lt. 7 )then

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' Velocity Residuals (E-C) - DIVA'

            else

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' RIC Position Residuals (E-C) - DIVA'
            end if

            call plcol0_( 6 )
            call pllab_( 'Julian Day', 'Residuals (km)', text )


            do   while( .not. done )

               npts= 0
               do   ii = 1, max_pts
                  read( unit = lunit, fmt = *, iostat = iret )
     1                  tjd(ii), ( diff(ii,jj), jj = 1, 9 )

                  if( iret .ne. 0 ) then
                     done = .true.
                     exit
                  else
                     npts = ii
                  end if
               end do

               if( npts .ne. 0 ) then

                  call plcol0_( 1 )
                  call plline_( npts, tjd(1), diff(1, k  ) )

                  call plcol0_( 3 )
                  call plline_( npts, tjd(1), diff(1, k+1) )

                  call plcol0_( 9 )
                  call plline_( npts, tjd(1), diff(1, k+2) )

               end if

            end do

            call pleop_()

         end do

      end if


c ----------------------------------------------------------------------
c     call plend_() to close Plplot
c ----------------------------------------------------------------------

      call plend_()


c ----------------------------------------------------------------------
c     return to the calling routine
c ----------------------------------------------------------------------

      return


c ----------------------------------------------------------------------
c     format statements
c ----------------------------------------------------------------------

 2000 format( a, //, ' ', t5, 'Plplot version: ', a, // )

      end



-- 
------------------------------------------------------------------------
   Samuel H. Dupree, Jr.                                                
    sd...@sp...
            600 West Harvey Street
            Apartment A-703                                            
    http://www.speakeasy.org/~sdupree/
            Philadelphia, PA 19144-4345, USA

            HOME: 215-842-3663            WORK: 610-531-7994            
    FAX: 610-531-3145

                "What does it take to travel in space? The will to do 
it.."  -  Dr. Wernher von Braun
------------------------------------------------------------------------

[Plplot-general] What am I doing wrong here?

[Samuel H. D. Jr. <sd...@sp...>]

Plplot List,



I'm running Plplot version 5.1.0 on a Mac under OS 9.2.1 using Absoft 
Fortran ver. 8.0. I'm trying
to have Plplot a series of graphs, three curves per graph with axes 
numbering, axes labels and titles.
The curves are being plotted, but I can't seem to get Plplot to output 
the axes numbering, labeling
and titles. Futher, I'd lime to have the horizontal axis to be twice as 
long as the vertical axis. The
routine that does the plotting is given below. Does anyone have any 
ideas as to what I'm doing
wrong?

Thanks in advance.

Sam Dupree.


      subroutine ssi_residual_plot

      implicit double precision  ( a - h, o - z, A - H, O - Z )


      include 'state_space.inc'

      include 'astrodyn_const.inc'

      include 'diva_support.inc'

      include 'iounits.inc'

      include 'lunar_state.inc'

      include 'phys_const.inc'

      include 'planet_eph_control.inc'

      include 'residuals.inc'



      character *  80     version

      character * 132     text

      double precision    J2000,
     1                    x8min, x8max, x8dist,
     2                    y8min, y8max, y8dist, xminp, xmaxp

      logical             done

      integer             max_pts, nxdiv, nydiv
      parameter         ( max_pts = 400 )

      real      *   4     xmin, xmax, xdist, ymin, ymax, ydist,
     1                    delta_max(9), delta_min(9),
     2                    tjd(max_pts), diff(max_pts,9)




      data                nxdiv/ 4 /, nydiv/ 4 /






c ----------------------------------------------------------------------
c     set the frame center and reference frame IDs
c ----------------------------------------------------------------------

      l = frame_center
      m = ref_frame_id




c ----------------------------------------------------------------------
c     set the time span for the plots
c ----------------------------------------------------------------------

      x8min = J2000()  +  et_start
      x8max = J2000()  +  et_stop




c ----------------------------------------------------------------------
c     call SCALE1() to generate "nice" numbers for the horizontal axis
c ----------------------------------------------------------------------

      call SCALE1( x8min, x8max, nxdiv, xminp, xmaxp, x8dist )

      xmax  = xmaxp
      xmin  = xminp
      xdist = x8dist


c ----------------------------------------------------------------------
c     call plgver_() to obtain the Plplot version
c ----------------------------------------------------------------------

      call plgver_( version )


c ----------------------------------------------------------------------
c     output the Plplot version to the report
c ----------------------------------------------------------------------

      write( luncrt, 2000 ) CHAR(12), version
      write( lunprt, 2000 ) CHAR(12), version


c ----------------------------------------------------------------------
c     call plscolbg_() to set the background color in terms of red,
c                      green, and blue
c ----------------------------------------------------------------------

      call plscolbg_( 000, 000, 000 )


c ----------------------------------------------------------------------
c     call plinit_() to initialize Plplot
c ----------------------------------------------------------------------

      call plinit_()


c ----------------------------------------------------------------------
c     call plssub_() to have one plot per subframe
c ----------------------------------------------------------------------

      call plssub_( 1, 1 )


c ----------------------------------------------------------------------
c     generate plots of the Solar System Barycentric position, velocity
c     and RIC position residuals for all objects
c ----------------------------------------------------------------------

      do   i = 1, state_space_size

         if( ss_to_cs_index(i) .ne. libration_index ) then

            j = state_space_to_eph( i )
            lunit = lundif( j )

            do   k = 1, 9
               delta_max(k) = max_resid(k,i)
               delta_min(k) = min_resid(k,i)
            end do

            do   k = 1, 9, 3

               rewind lunit
               done = .false.

               y8max = max( delta_max(k  ), delta_max(k+1),
     1                      delta_max(k+2) )

               y8min = min( delta_min(k  ), delta_min(k+1),
     1                      delta_min(k+2) )

               call SCALE1( y8min, y8max, nydiv, xminp, xmaxp, y8dist )

               ymax  = xmaxp
               ymin  = xminp
               ydist = y8dist


               call plcol0_( 13 )
               call plenv_( xmin, xmax, ymin, ymax, 0, 0 )
               call plbox_( 'bcnst', xdist, 0, 'bcnstv', ydist, 0 )


               if( k .lt. 4 ) then

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' Position Residuals (E-C) - DIVA'

               elseif( k .lt. 7 )then

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' Velocity Residuals (E-C) - DIVA'

               else

                  text = '#frSolar System Barycenter '//
     1                   TRIM(planet_names(j))//
     2                   ' RIC Position Residuals (E-C) - DIVA'

               end if

               call plcol0_( 6 )
               call pllab_( 'Julian Day', 'Residuals (km)', text )


               do   while( .not. done )

                  npts= 0
                  do   ii = 1, max_pts
                     read( unit = lunit, fmt = *, iostat = iret )
     1                     tjd(ii), ( diff(ii,jj), jj = 1, 9 )

                     if( iret .ne. 0 ) then
                        done = .true.
                        exit
                     else
                        npts = ii
                     end if
                  end do

                  if( npts .ne. 0 ) then

                     call plcol0_( 1 )
                     call plline_( npts, tjd(1), diff(1, k  ) )

                     call plcol0_( 3 )
                     call plline_( npts, tjd(1), diff(1, k+1) )

                     call plcol0_( 9 )
                     call plline_( npts, tjd(1), diff(1, k+2) )

                  end if

               end do

               call pleop_()

            end do

         end if

      end do



      if( .not. state_space_sel(18) ) then

         i = state_space_size  +  1

         j = 1
         lunit = lundif( j )

         do   k = 1, 9
            delta_max(k) = max_resid(k,i)
            delta_min(k) = min_resid(k,i)
         end do

         do   k = 1, 9, 3

            rewind lunit
            done = .false.

            y8max = max( delta_max(k  ), delta_max(k+1),
     1                   delta_max(k+2) )

            y8min = min( delta_min(k  ), delta_min(k+1),
     1                   delta_min(k+2) )

            call SCALE1( y8min, y8max, nydiv, xminp, xmaxp, y8dist )

            ymax  = xmaxp
            ymin  = xminp
            ydist = y8dist


            call plcol0_( 13 )
            call plenv_( xmin, xmax, ymin, ymax, 0, 0 )
            call plbox_( 'bcnst', xdist, 0, 'bcnstv', ydist, 0 )


            if( k .lt. 4 ) then

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' Position Residuals (E-C) - DIVA'

            elseif( k .lt. 7 )then

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' Velocity Residuals (E-C) - DIVA'

            else

               text = '#frSolar System Barycenter '//
     1                TRIM(planet_names(j))//
     2                ' RIC Position Residuals (E-C) - DIVA'
            end if

            call plcol0_( 6 )
            call pllab_( 'Julian Day', 'Residuals (km)', text )


            do   while( .not. done )

               npts= 0
               do   ii = 1, max_pts
                  read( unit = lunit, fmt = *, iostat = iret )
     1                  tjd(ii), ( diff(ii,jj), jj = 1, 9 )

                  if( iret .ne. 0 ) then
                     done = .true.
                     exit
                  else
                     npts = ii
                  end if
               end do

               if( npts .ne. 0 ) then

                  call plcol0_( 1 )
                  call plline_( npts, tjd(1), diff(1, k  ) )

                  call plcol0_( 3 )
                  call plline_( npts, tjd(1), diff(1, k+1) )

                  call plcol0_( 9 )
                  call plline_( npts, tjd(1), diff(1, k+2) )

               end if

            end do

            call pleop_()

         end do

      end if


c ----------------------------------------------------------------------
c     call plend_() to close Plplot
c ----------------------------------------------------------------------

      call plend_()


c ----------------------------------------------------------------------
c     return to the calling routine
c ----------------------------------------------------------------------

      return


c ----------------------------------------------------------------------
c     format statements
c ----------------------------------------------------------------------

 2000 format( a, //, ' ', t5, 'Plplot version: ', a, // )

      end



-- 
------------------------------------------------------------------------
   Samuel H. Dupree, Jr.                                                
    sd...@sp...
            600 West Harvey Street
            Apartment A-703                                            
    http://www.speakeasy.org/~sdupree/
            Philadelphia, PA 19144-4345, USA

            HOME: 215-842-3663            WORK: 610-531-7994            
    FAX: 610-531-3145

                "What does it take to travel in space? The will to do 
it.."  -  Dr. Wernher von Braun
------------------------------------------------------------------------

Re: [Plplot-general] plplot driver for AquaTerm (Mac OS X)

[Alan W. I. <ir...@be...>]

On Mon, 4 Nov 2002, Per Persson wrote:

> Hi,
> just a note to let you know that you can now use plplot with AquaTerm
> (http://aquaterm.sf.net) on Mac OS X.
> The code was contributed by Mark Franz.
> Screenshot available on project homepage.
>
> /Per

Thanks, Per, for that link.

Alan

[Plplot-general] plplot driver for AquaTerm (Mac OS X)

[Per P. <per...@ma...>]

Hi,
just a note to let you know that you can now use plplot with AquaTerm 
(http://aquaterm.sf.net) on Mac OS X.
The code was contributed by Mark Franz.
Screenshot available on project homepage.

/Per
  

Re: [Plplot-general] Big Numbers

[Alan W. I. <ir...@be...>]

On Sat, 12 Oct 2002, Maurice LeBrun wrote:

> Michael Brian Bentley writes:
>  > When I'm using large integer values, like, say, a bunch of 32-bit
>
> PLplot does have some precision problems
> [but] this doesn't sound like the problem you are having.

I took the discussion off-list, but my apologies for not giving the
conclusion here. Since I couldn't replicate his specific problem, Michael
concluded it was due to one or more of the many changes he had made to his
personal version of PLplot to get it to work with OpenGL.

I don't believe such widespread changes should be necessary since one of our
other users (Gary Bishop) has apparently got PLplot to work under OpenGL
without such changes.  However, I cannot say absolutely for sure because I
don't have access to the OpenGL part of Gary's code at this time.

Alan

Re: [Plplot-general] Big Numbers

[Maurice L. <mj...@ga...>]

Michael Brian Bentley writes:
 > When I'm using large integer values, like, say, a bunch of 32-bit 
 > time_t (effectively a positive 32 bit integer), for the values of x, 
 > the rendering for the tick marks and labels go wonky: they're very 
 > wide and the tick spacing is not close to uniform. The diff of the 
 > high and low values typically will be well less than 100,000. Is 
 > there a canonical workaround to deal with rendering precision caused 
 > by this apparent stretching of precision?

PLplot does have some precision problems, e.g. the devices are limited to a 16
bit address space.  Usually this isn't a problem because physical plotting
devices are similarly limited in resolution -- it comes up only (AFAIK) when
zooming at high magnification.  There is some work underway to eventually
eliminate this problem but it will take some time.

However this doesn't sound like the problem you are having.  It might be a
bug.. if you could submit a test case that illustrates the problem (in
whatever language binding suits you), that would help.

-- 
Maurice LeBrun    mj...@ga...
Research Organization for Information Science and Technology of Japan (RIST)

[Plplot-general] Big Numbers

[Michael B. B. <be...@cr...>]

When I'm using large integer values, like, say, a bunch of 32-bit 
time_t (effectively a positive 32 bit integer), for the values of x, 
the rendering for the tick marks and labels go wonky: they're very 
wide and the tick spacing is not close to uniform. The diff of the 
high and low values typically will be well less than 100,000. Is 
there a canonical workaround to deal with rendering precision caused 
by this apparent stretching of precision?

Re: [Plplot-general] Problems compiling under Solaris

[Alan W. I. <ir...@be...>]

On Wed, 2 Oct 2002, Michael Wright wrote:

> I have installed the gd library with png and jpeg support, but the plplot
> configure consistently fails the test that checks on this support.  Any
> suggestions?  This is for plplot 5.1.0.

Do you have the -devel version of the libgd package installed so that
the required header file, gd.h, is installed on your system?

That's the most common problem, but if you have gd.h installed somewhere on
your system, then here are a set of additional questions.

What were the messages given to you when you ran the configure script?

What version of gd?

What directory on your system contains gd.h?
What directory on your system contains libgd.so?
What directory on your system contains libpng.so?
What directory on your system contains libjpeg.so?
What directory on your system contains libz.so?

Note that gd.h and these libraries must all be installed on your system in
order for the gd device driver of PLplot to be enabled.  Furthermore, the
configuration script only searches a very limited set of directories for
these files/symlinks.  If you have them installed in non-standard locations,
I can give you a patch to widen the configuration search to your
non-standard locations.  But I would need the above information in order to
do it.

Note also that you are probably the first person to try the gd device driver
on Solaris so there may be some additional issues.  For example, the
libraries there may be named *.a rather than *.so.  If that is so, please
let me know, and I can make an additional patch to cf/sysloc.in (one of the
sources that autoconf uses to generated configure) to deal with that
situation.

Alan

email: ir...@be...
phone: 250-727-2902	FAX: 250-721-7715
snail-mail:
Dr. Alan W. Irwin
Department of Physics and Astronomy,
University of Victoria, P.O. Box 3055,
Victoria, British Columbia, Canada, V8W 3P6
__________________________

Linux-powered astrophysics
__________________________

[Plplot-general] Problems compiling under Solaris

[Michael W. <Mic...@ms...>]

I have installed the gd library with png and jpeg support, but the plplot 
configure consistently fails the test that checks on this support.  Any 
suggestions?  This is for plplot 5.1.0.

Michael

[Plplot-general] X_CreateWindow

[James C. C. <cal...@or...>]

I have an alpha w/ OSF1 and I am getting
the following error when I try to do
plots:

X Error of failed request:  BadMatch (invalid parameter attributes)
Major opcode of failed request:  1	(X_CreateWindow)
Serial number of failed request:  12
Current serial number in output stream:  16


I tried the AC_DEFINE(USE_DEFAULT_VISUAL) mentioned 
in a previous letter but it did not resolve the problem.
Anyone have any idea ?