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 c
00020 c X-window calls used by mcdraw:
00021 c -----------------------------
00022 c
00023 c Initialization (ierr = 0 on success):
00024 c
00025 subroutine mcdxinit(ierr)
00026 save
00027 c
00028 c Set line width:
00029 c
00030 entry mcdxlinew(iw)
00031 c
00032 c Set line color:
00033 c
00034 entry mcdxcolor(ic)
00035 c
00036 c Set background color:
00037 c
00038 entry mcdxbackg(ic)
00039 c
00040 c Move "cursor" to (r,s):
00041 c
00042 entry mcdxmove(r,s)
00043 c
00044 c Draw from current cursor location to (r,s):
00045 c
00046 entry mcdxdraw(r,s)
00047 c
00048 c Plot a point (pixel) at (r,s):
00049 c
00050 entry mcdxpoint(r,s)
00051 c
00052 c Get graphics input -- mouse clicked at (r,s):
00053 c
00054 entry mcdxgin(r,s)
00055 c
00056 c Draw a filled polygon (points {(r(i),s(i)), i=1,..,n}, fill color if):
00057 c
00058 entry mcdxpolyf(r,s,n,if)
00059 c
00060 c Erase a polygon (points {(r(i),s(i)), i=1,..,n}):
00061 c
00062 entry mcdxpolyc(r,s,n)
00063 c
00064 c Draw a text string at (r,s), height = h, angle = a:
00065 c
00066 entry mcdxtext(r,s,h,a,string)
00067 c
00068 c Clear the display:
00069 c
00070 entry mcdxclear
00071 c
00072 c Reset (reinitialize) the display:
00073 c
00074 entry mcdxreset
00075 c
00076 c Quit the X-display:
00077 c
00078 entry mcdxquit
00079 c
00080 c X-idle modes:
00081 c
00082 entry mcdxidle
00083 entry mcdxread_line
00084 c
00085 entry mcdxnopen
00086 c
00087 c Return number of open X windows.
00088 c
00089 entry mcdxcurrwin
00090 c
00091 c Return ID of current X window.
00092 c
00093 entry mcdxsetwin
00094 c
00095 c Set current X window.
00096 c
00097 entry mcdxkillwin
00098 c
00099 c Kill an X window.
00100 c
00101 end
00102
