00001
00002 c
00003 c Copyright (c) 1986,1987,1988,1989,1990,1991,1992,1993,
00004 c by Steve McMillan, Drexel University, Philadelphia, PA.
00005 c
00006 c All rights reserved.
00007 c
00008 c Redistribution and use in source and binary forms are permitted
00009 c provided that the above copyright notice and this paragraph are
00010 c duplicated in all such forms and that any documentation,
00011 c advertising materials, and other materials related to such
00012 c distribution and use acknowledge that the software was developed
00013 c by the author named above.
00014 c
00015 c THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
00016 c IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
00017 c WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
00018 c
00019
00020
00021 subroutine axes(yax,xax,id)
00022 save
00023 c
00024 c This routine draws an x-axis (y=yax) and/or a y-axis (x=xax).
00025 c It will not draw either axis outside the boundaries defined by
00026 c 'frame'. Axis is dashed for -ve id.
00027 c
00028 dimension xa(2),ya(2)
00029 common/scales/xl,xr,dinchx,ybot,ytop,dinchy,rlen,slen
00030 c
00031 iboth=1
00032 go to 10
00033 c
00034 entry xaxis(yax,id)
00035 iboth=-1
00036 10 if(sign(1.,(ybot-yax)).eq.sign(1.,(ytop-yax)))go to 20
00037 xa(1)=xl
00038 ya(1)=yax
00039 xa(2)=xr
00040 ya(2)=yax
00041 if(id.ge.0)call mline(xa,ya,2,0,0,0.)
00042 if(id.lt.0)call dline(xa,ya,2,0,0,0.)
00043 20 if(iboth.lt.0)return
00044 go to 25
00045 c
00046 entry yaxis(xax,id)
00047 25 if(sign(1.,(xl-xax)).eq.sign(1.,(xr-xax)))go to 30
00048 xa(1)=xax
00049 ya(1)=ybot
00050 xa(2)=xax
00051 ya(2)=ytop
00052 if(id.ge.0)call mline(xa,ya,2,0,0,0.)
00053 if(id.lt.0)call dline(xa,ya,2,0,0,0.)
00054 c
00055 30 return
00056 end
