Mary,
:You may not need to worry about changing your pwritx calls right away,
:if you want to wait and get the color part working first. I will be
:very happy to help you convert your program if you're willing to send
:it to me.
Here is the subroutine that is called repeatedly. I deleted all stuff
not related to NCAR graphics.
Again, many thanks for your help.
Cam
_______________________________________________________________________
subroutine plt_blah (.........)
c..... Skip .....
c.....desclaration stuff.....
c..... here .....
call SETUSV('IM',256)
call SETUSV('IR',1)
call SETUSV('IG',1)
call SETUSV('IB',1)
call SETUSV('IN',10000)
c..... Skip .....
c.....some computation.....
c.....some computation.....
c.....some computation.....
c..... here .....
call displa(2,0,0)
call set(0.1,xlim,0.1,ylim,xlo,xhi,ylo,yhi,1)
call anotat('CROSS-RANGE$','RANGE$',1,4,0,0)
call ezxy (xx,yy,2,templtitl)
call pwrity(.....)
call pwrity(.....)
call pwrity(.....)
call pwrity(.....)
c
call SETUSV('IR',1)
call SETUSV('IG',0)
call SETUSV('IB',0)
call SETUSV('IN',10000)
call line (clx1,cly1,clx2,cly2)
c
call SETUSV('IR',5)
call SETUSV('IG',5)
call SETUSV('IB',10)
call SETUSV('IN',10000)
c..... Skip .....
c.....(do) loop of pwrity calls.....
c..... here .....
c d and m:
call SETUSV('IR',1)
call SETUSV('IG',1)
call SETUSV('IB',0)
call SETUSV('IN',10000)
do jdct=1,idct
call line(xduct1,1.,xduct1,yline)
enddo
do jmst=1,imst
call line(1.,yduct1,xline,yduct1)
enddo
c w:
call SETUSV('IR',60)
call SETUSV('IG',0)
call SETUSV('IB',40)
call SETUSV('IN',10000)
call POINTS(xpow,ypow,1,ichar('W'),0)
call line(x1,wikwngrg,x2,wikwngrg)
call pwrity(wikwngcr,wikwngrg,'*',1,1,0,0)
call line(wikwngcr,1.,wikwngcr,wikwngrg)
do jsts=1,ists
call pwrity(strsctcr(jsts),strsctrg(jsts),'O',1,1,0,0)
enddo
do jwmes=1,iwmes
call pwrity(weng_cr(jwmes),weng_rg(jwmes),'E',1,1,0,0)
enddo
c LABELS:
call SETUSV('IR',1)
call SETUSV('IG',1)
call SETUSV('IB',1)
call SETUSV('IN',10000)
call pwrity(.........)
call pwrity(.........)
call pwrity(.........)
call pwrity(.........)
call pwrity(.........)
call pwrity(.........)
call pwrity(.........)
call SETUSV('IR',0)
call SETUSV('IG',1)
call SETUSV('IB',0)
call SETUSV('IN',10000)
do 60 i=1,npksplt
if (pk_cr(i).ne.0. .and. pk_rg(i).ne.0.) then
call POINTS(pk_cr(i),pk_rg(i),1,ichar('o'),0)
end if
60 continue
call SETUSV('IR',0)
call SETUSV('IG',1)
call SETUSV('IB',0)
call SETUSV('IN',10000)
do 75 i=1,nws
if (mod(nint_ws(i),2) .eq. 0)
# call POINTS(ws_cr(i),ws_rg(i),1,ichar('+'),0)
75 continue
call SETUSV('IR',1)
call SETUSV('IG',0)
call SETUSV('IB',0)
call SETUSV('IN',10000)
do 80 i=1,nws
if (mod(nint_ws(i),2) .eq. 1)
# call POINTS(ws_cr(i),ws_rg(i),1,ichar('-'),0)
80 continue
call FRAME
return
end
c
c=============================================================
This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:40:25 MDT