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 c Routines to set and get the left-hand and bottom boundaries.
00021 c The boundaries are specified in standard units relative to
00022 c the CURRENT origin.
00023
00024 subroutine setlhe(rl)
00025 save
00026 c
00027 common /plot sizes/ xsize,ysize
00028 c
00029 common /lhlimit/ rlhe
00030 common /lowlimit/ sbot
00031 c
00032 data rlhe/0./
00033 data sbot/0./
00034 c
00035 rlhe = rl
00036 return
00037 c
00038 entry getlhe(r1)
00039 r1 = rlhe
00040 return
00041 c
00042 entry getrhe(r2)
00043 r2 = rlhe + xsize
00044 return
00045 c
00046 entry setbot(sb)
00047 sbot = sb
00048 return
00049 c
00050 entry getbot(s1)
00051 s1 = sbot
00052 return
00053 c
00054 entrygettop(s2)
00055 s2 = sbot + ysize
00056 c
00057 end
