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 block data plot set init
00021 save
00022 c
00023 common /dev status/ idevon,idevpen,idevwt
00024 common /plot sizes/ xsize,ysize
00025 common /plot invert/ inv,ipensto
00026 common /numbr on/ inumbr
00027 c
00028 common /dev details/ itek,ivers
00029 common /hp plot/ ivdef
00030 common /sunscreen/ isun
00031 common /findex/ index
00032 c
00033 data idevon/-1/idevpen/-1/idevwt/-1/xsize/-1./inv/-1/
00034 data ipensto/-1/inumbr/-1/itek/-1/ivers/-1/ivdef/5/isun/-1/
00035 c
00036 end
00037
00038
00039 subroutine plot setup
00040 save
00041 c
00042 c Initialize ALL package variables, so mcinit always (re)starts in
00043 c a standard state.
00044 c
00045 common /dev status/ idevon,idevpen,idevwt
00046 common /plot sizes/ xsize,ysize
00047 common /plot invert/ inv,ipensto
00048 common /numbr on/ inumbr
00049 c
00050 common /dev details/ itek,ivers
00051 common /hp plot/ ivdef
00052 common /sunscreen/ isun
00053 common /findex/ index
00054 c
00055 logical set
00056 c
00057 c Set/reset plot parameters...
00058 c
00059 if (idevon.lt.0) idevon = 0
00060 if (idevpen.lt.0) idevpen = 1
00061 if (idevwt.lt.0) idevwt = 1
00062 if (xsize.lt.0.) xsize = 10.
00063 if (inv.lt.0) inv = 0
00064 if (ipensto.lt.0) ipensto = 1
00065 if (inumbr.lt.0) inumbr = 0
00066 c
00067 call setorigin(0.,0.)
00068 call setlhe(0.)
00069 call setbot(0.)
00070 call bounded
00071 c
00072 if (itek.lt.0) itek = 0
00073 if (ivers.lt.0) ivers = 0
00074 ivdef = 5
00075 if (isun.lt.0) isun = 0
00076 index = -1
00077 c
00078 c ...and frame parameters...
00079 c
00080 c BE CAREFUL setting up default "frame" options, as these
00081 c may reset the graphics in an unwanted manner.
00082 c
00083 call gethset(set)
00084 if (.not.set) call sethts(.25,.2)
00085 c
00086 call getmset(set)
00087 if (.not.set) call setmod(0,1,0,0,0)
00088 c
00089 call getwset(set)
00090 if (.not.set) call setwts(0,0,0,0)
00091 c
00092 call getpset(set)
00093 if (.not.set) call setpens(0,0,0)
00094 c
00095 call clrstars
00096 c
00097 end
