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 lognum(xi,yi,ht1,expt,theta,ll)
00022 save
00023 c
00024 c Plots the number 10**(expt)
00025 c Leaves xi,yi unchanged.
00026 c For integer values of the exponent, set ll = -1
00027 c
00028 common/dev status/idevon,idevpen,idevwt
00029 common/fr int/iframe/fr wts/iwts(4)/fr plain/iplain/fr bare/ibare
00030 common/fr pens/ipens(3)
00031 c
00032 if((iwts(2).lt.0.or.iwts(3).lt.0).and.iframe.eq.1)return
00033 c
00034 if(iframe.eq.1.and.ipens(2).gt.0)then
00035 jpen=idevpen
00036 call pen(ipens(2))
00037 end if
00038 c
00039 if(iplain.eq.0)then
00040 call simbol(xi,yi,ht1,'10',theta,2)
00041 else
00042 if(ibare.eq.0)then
00043 call simbol(xi,yi,ht1,'@1@0',theta,4)
00044 else
00045 jfr=iframe
00046 iframe=0
00047 call fr numbr(xi,yi,ht1,10.,theta,-1)
00048 iframe=jfr
00049 end if
00050 end if
00051 c
00052 call simwhe(xp,yp)
00053 ht2=0.53333333*ht1
00054 thetr=0.01745329*theta
00055 xe=xp-.75*ht1*sin(thetr)
00056 ye=yp+.75*ht1*cos(thetr)
00057 if(iwts(3).gt.0.and.iframe.eq.1)then
00058 jwt=idevwt
00059 call weight(iwts(3))
00060 end if
00061 jframe=iframe
00062 iframe=0 ! don't want centered symbol.
00063 call fr numbr(xe,ye,ht2,expt,theta,ll)
00064 iframe=jframe
00065 if(iwts(3).gt.0.and.iframe.eq.1)call weight(jwt)
00066 if(ipens(2).gt.0.and.iframe.eq.1)call pen(jpen)
00067 c
00068 end
