[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference bgsdev::gksnotes

Title:Latest kits: GKS V6.x (see 2535.*), GKS V5.3 (see 2480.*)
Notice:Kits: V6.x -> 2535.*; V5.3 -> 2480.*
Moderator:BGSDEV::CROCKER
Created:Tue Feb 04 1986
Last Modified:Wed May 28 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:2734
Total number of notes:9779

2734.0. "Setting background color in color_epsf creates two files" by SUBPAC::FARICELLI () Tue May 27 1997 20:02

   Digital Unix V3.2D-2, Digital GKS V6.3

   The following program creates two files: 'zot.eps' with the polyline,
   and 'zot.eps_2', with just the GKS Postscript header and trailer.
   Setting the color representation of the background (color 0)
   seems to be the culprit. The color postscript workstation does not
   exhibit this problem. I traced this in the debugger and the second file
   gets created at the close workstation call.

   I tried to enter a QAR, but the QAR system on RASTER is broken
   (see previous note).

   -- John Faricelli

fermi-236> f77 -o test test_color_eps.f -lGKSbnd
fermi-237> test
fermi-238> ls -l zot.eps*
-rw-r-----   1 faricell users      11817 May 27 15:58 zot.eps
-rw-r-----   1 faricell users      11760 May 27 15:58 zot.eps_2

      include '/usr/include/GKS/gksdefs.for'
      real x(2), y(2)
c
      x(1) = 0.1
      x(2) = 0.2
      y(1) = 0.1
      y(2) = 0.2
c
      call gks$open_gks('errs',0)
      call gks$open_ws(1,'zot.eps',GKS$K_COLOR_EPSF)
      call gks$activate_ws(1)
      call GKS$SET_VIEWPORT(1, 0.0, 1.0,
     1                         0.0, 1.0)
      call GKS$SELECT_XFORM( 1 )
      call GKS$CLEAR_WS(1, GKS$K_CLEAR_CONDITIONALLY)
      call GKS$SET_COLOR_REP(1,0, 1.0,1.0,1.0)  ! White
      call gks$polyline(2,x,y)
      call GKS$UPDATE_WS(1, GKS$K_POSTPONE_FLAG)
      call gks$deactivate_ws(1)
      call gks$close_ws(1)
      call gks$close_gks
c
      end
T.RTitleUserPersonal
Name
DateLines