home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgLangD.iso
/
Fortran.51
/
DISK6
/
FGRAPH.FI$
/
FGRAPH.bin
Wrap
Text File
|
1991-04-02
|
13KB
|
486 lines
***
*fgraph.fi - declare constants and functions for graphics library
*
* Copyright (c) 1987-1991 Microsoft Corporation. All rights reserved.
*
*Purpose:
* This file declares the graphics library functions and
* the manifest constants that are used with them.
*
*******************************************************************************
$NOTRUNCATE
$NOTSTRICT
* user-visible declarations for FORTRAN Graphics Library
INTERFACE TO FUNCTION arc(x1,y1,x2,y2,x3,y3,x4,y4)
INTEGER*2 arc[FAR,C,ALIAS:"__arc"],x1,y1,x2,y2,x3,y3,x4,y4
END
INTERFACE TO FUNCTION arc_w(wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4)
INTEGER*2 arc_w[FAR,C,ALIAS:"__arc_w"]
DOUBLE PRECISION wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
END
INTERFACE TO FUNCTION getarcinfo(lpstart,lpend,lppaint)
INTEGER*2 getarcinfo[FAR,C,ALIAS:"__getarcinfo"]
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/lpstart[FAR,REFERENCE]
RECORD/xycoord/lpend[FAR,REFERENCE]
RECORD/xycoord/lppaint[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ clearscreen[FAR,C,ALIAS:"__clearscreen"](area)
INTEGER*2 area
END
INTERFACE TO FUNCTION displaycursor(toggle)
INTEGER*2 displaycursor[FAR,C,ALIAS:"__displaycursor"],toggle
END
INTERFACE TO FUNCTION ellipse(control,x1,y1,x2,y2)
INTEGER*2 ellipse[FAR,C,ALIAS:"__ellipse"],control,x1,y1,x2,y2
END
INTERFACE TO FUNCTION ellipse_w(control,wx1,wy1,wx2,wy2)
INTEGER*2 ellipse_w[FAR,C,ALIAS:"__ellipse_w"],control
DOUBLE PRECISION wx1,wy1,wx2,wy2
END
INTERFACE TO FUNCTION floodfill(x,y,boundary)
INTEGER*2 floodfill[FAR,C,ALIAS:"__floodfill"],x,y,boundary
END
INTERFACE TO FUNCTION floodfill_w(wx1,wy1,boundary)
INTEGER*2 floodfill_w[FAR,C,ALIAS:"__floodfill_w"],boundary
DOUBLE PRECISION wx1,wy1
END
INTERFACE TO FUNCTION getactivepage()
INTEGER*2 getactivepage[FAR,C,ALIAS:"__getactivepage"]
END
INTERFACE TO FUNCTION getbkcolor()
INTEGER*4 getbkcolor[FAR,C,ALIAS:"__getbkcolor"]
END
INTERFACE TO FUNCTION getcolor()
INTEGER*2 getcolor[FAR,C,ALIAS:"__getcolor"]
END
INTERFACE TO SUBROUTINE
+ getcurrentposition[FAR,C,ALIAS:"__f_getcurrentposition"](s)
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getcurrentposition_w[FAR,C,ALIAS:"__f_getcurrentposition_wxy"](s)
STRUCTURE/wxycoord/
DOUBLE PRECISION wx
DOUBLE PRECISION wy
END STRUCTURE
RECORD/wxycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getfillmask[FAR,C,ALIAS:"__getfillmask"](mask)
INTEGER*1 mask[FAR,REFERENCE](8)
END
INTERFACE TO SUBROUTINE
+ getimage[FAR,C,ALIAS:"__getimage"](x1,y1,x2,y2,image)
INTEGER*2 x1,y1,x2,y2
INTEGER*1 image[FAR,REFERENCE](*)
END
INTERFACE TO SUBROUTINE
+ getimage_w[FAR,C,ALIAS:"__getimage_w"](wx1,wy1,wx2,wy2,image)
DOUBLE PRECISION wx1,wy1,wx2,wy2
INTEGER*1 image[FAR,REFERENCE](*)
END
INTERFACE TO FUNCTION getlinestyle()
INTEGER*2 getlinestyle[FAR,C,ALIAS:"__getlinestyle"]
END
INTERFACE TO SUBROUTINE
+ getphyscoord[FAR,C,ALIAS:"__f_getphyscoord"](x,y,s)
INTEGER*2 x,y
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO FUNCTION getpixel(x,y)
INTEGER*2 getpixel[FAR,C,ALIAS:"__getpixel"],x,y
END
INTERFACE TO FUNCTION getpixel_w(wx,wy)
INTEGER*2 getpixel_w[FAR,C,ALIAS:"__getpixel_w"]
DOUBLE PRECISION wx,wy
END
INTERFACE TO FUNCTION gettextcolor()
INTEGER*2 gettextcolor[FAR,C,ALIAS:"__gettextcolor"]
END
INTERFACE TO FUNCTION gettextcursor()
INTEGER*2 gettextcursor[FAR,C,ALIAS:"__gettextcursor"]
END
INTERFACE TO SUBROUTINE
+ gettextposition[FAR,C,ALIAS:"__f_gettextposition"](s)
STRUCTURE/rccoord/
INTEGER*2 row
INTEGER*2 col
END STRUCTURE
RECORD/rccoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ gettextwindow[FAR,C,ALIAS:"__gettextwindow"](r1,c1,r2,c2)
INTEGER*2 r1[FAR,REFERENCE],c1[FAR,REFERENCE]
INTEGER*2 r2[FAR,REFERENCE],c2[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getvideoconfig[FAR,C,ALIAS:"__getvideoconfig"](s)
STRUCTURE/videoconfig/
INTEGER*2 numxpixels ! number of pixels on X axis
INTEGER*2 numypixels ! number of pixels on Y axis
INTEGER*2 numtextcols ! number of text columns available
INTEGER*2 numtextrows ! number of text rows available
INTEGER*2 numcolors ! number of actual colors
INTEGER*2 bitsperpixel ! number of bits per pixel
INTEGER*2 numvideopages ! number of available video pages
INTEGER*2 mode ! current video mode
INTEGER*2 adapter ! active display adapter
INTEGER*2 monitor ! active display monitor
INTEGER*2 memory ! adapter video memory in K bytes
END STRUCTURE
RECORD/videoconfig/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getviewcoord[FAR,C,ALIAS:"__f_getviewcoord"](x,y,s)
INTEGER*2 x,y
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getviewcoord_w[FAR,C,ALIAS:"__f_getviewcoord_w"](wx,wy,s)
DOUBLE PRECISION wx,wy
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO FUNCTION getvisualpage()
INTEGER*2 getvisualpage[FAR,C,ALIAS:"__getvisualpage"]
END
INTERFACE TO SUBROUTINE
+ getwindowcoord[FAR,C,ALIAS:"__f_getwindowcoord"](x,y,s)
INTEGER*2 x,y
STRUCTURE/wxycoord/
DOUBLE PRECISION wx
DOUBLE PRECISION wy
END STRUCTURE
RECORD/wxycoord/s[FAR,REFERENCE]
END
INTERFACE TO FUNCTION getwritemode()
INTEGER*2 getwritemode[FAR,C,ALIAS:"__getwritemode"]
END
INTERFACE TO FUNCTION grstatus()
INTEGER*2 grstatus[FAR,C,ALIAS:"__grstatus"]
END
INTERFACE TO FUNCTION imagesize(x1,y1,x2,y2)
INTEGER*4 imagesize[FAR,C,ALIAS:"__imagesize"]
INTEGER*2 x1,y1,x2,y2
END
INTERFACE TO FUNCTION imagesize_w(wx1,wy1,wx2,wy2)
INTEGER*4 imagesize_w[FAR,C,ALIAS:"__imagesize_w"]
DOUBLE PRECISION wx1,wy1,wx2,wy2
END
INTERFACE TO FUNCTION lineto(x,y)
INTEGER*2 lineto[FAR,C,ALIAS:"__lineto"],x,y
END
INTERFACE TO FUNCTION lineto_w(wx,wy)
INTEGER*2 lineto_w[FAR,C,ALIAS:"__lineto_w"]
DOUBLE PRECISION wx,wy
END
INTERFACE TO SUBROUTINE
+ moveto[FAR,C,ALIAS:"__f_moveto"](x,y,s)
INTEGER*2 x,y
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ moveto_w[FAR,C,ALIAS:"__f_moveto_w"](wx,wy,s)
DOUBLE PRECISION wx,wy
STRUCTURE/wxycoord/
DOUBLE PRECISION wx
DOUBLE PRECISION wy
END STRUCTURE
RECORD/wxycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ outtext[FAR,C,ALIAS:"__f_outtext"](text)
CHARACTER*(*) text[FAR,REFERENCE]
END
INTERFACE TO FUNCTION pie(i,x1,y1,x2,y2,x3,y3,x4,y4)
INTEGER*2 pie[FAR,C,ALIAS:"__pie"],i,x1,y1,x2,y2,x3,y3,x4,y4
END
INTERFACE TO FUNCTION pie_w(i,wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4)
INTEGER*2 pie_w[FAR,C,ALIAS:"__pie_w"],i
DOUBLE PRECISION wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4
END
INTERFACE TO FUNCTION polygon(control,lppoints,cpoints)
INTEGER*2 polygon[FAR,C,ALIAS:"__polygon"],control,cpoints
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/lppoints[FAR,REFERENCE](*)
END
INTERFACE TO FUNCTION polygon_w(control,lppoints,cpoints)
INTEGER*2 polygon_w[FAR,C,ALIAS:"__polygon_w"],control,cpoints
STRUCTURE/wxycoord/
DOUBLE PRECISION wx
DOUBLE PRECISION wy
END STRUCTURE
RECORD/wxycoord/lppoints[FAR,REFERENCE](*)
END
INTERFACE TO SUBROUTINE
+ putimage[FAR,C,ALIAS:"__putimage"](x,y,image,action)
INTEGER*2 x,y,action
INTEGER*1 image[FAR,REFERENCE](*)
END
INTERFACE TO SUBROUTINE
+ putimage_w[FAR,C,ALIAS:"__putimage_w"](wx,wy,image,action)
DOUBLE PRECISION wx,wy
INTEGER*1 image[FAR,REFERENCE](*)
INTEGER*2 action
END
INTERFACE TO FUNCTION rectangle(control,x1,y1,x2,y2)
INTEGER*2 rectangle[FAR,C,ALIAS:"__rectangle"]
INTEGER*2 control,x1,y1,x2,y2
END
INTERFACE TO FUNCTION rectangle_w(control,wx1,wy1,wx2,wy2)
INTEGER*2 rectangle_w[FAR,C,ALIAS:"__rectangle_w"],control
DOUBLE PRECISION wx1,wy1,wx2,wy2
END
INTERFACE TO FUNCTION remappalette(index,color)
INTEGER*4 remappalette[FAR,C,ALIAS:"__remappalette"],color
INTEGER*2 index
END
INTERFACE TO FUNCTION remapallpalette(colors)
INTEGER*2 remapallpalette[FAR,C,ALIAS:"__remapallpalette"]
INTEGER*4 colors[FAR,REFERENCE](*)
END
INTERFACE TO SUBROUTINE
+ scrolltextwindow[FAR,C,ALIAS:"__scrolltextwindow"](rows)
INTEGER*2 rows
END
INTERFACE TO FUNCTION selectpalette(number)
INTEGER*2 selectpalette[FAR,C,ALIAS:"__selectpalette"],number
END
INTERFACE TO FUNCTION setactivepage(page)
INTEGER*2 setactivepage[FAR,C,ALIAS:"__setactivepage"],page
END
INTERFACE TO FUNCTION setbkcolor(color)
INTEGER*4 setbkcolor[FAR,C,ALIAS:"__setbkcolor"],color
END
INTERFACE TO SUBROUTINE
+ setcliprgn[FAR,C,ALIAS:"__setcliprgn"](x1,y1,x2,y2)
INTEGER*2 x1,y1,x2,y2
END
INTERFACE TO FUNCTION setcolor(color)
INTEGER*2 setcolor[FAR,C,ALIAS:"__setcolor"]
INTEGER*2 color
END
INTERFACE TO SUBROUTINE
+ setfillmask[FAR,C,ALIAS:"__setfillmask"](mask)
INTEGER*1 mask[FAR,REFERENCE](8)
END
INTERFACE TO SUBROUTINE
+ setlinestyle[FAR,C,ALIAS:"__setlinestyle"](mask)
INTEGER*2 mask
END
INTERFACE TO FUNCTION setpixel(x,y)
INTEGER*2 setpixel[FAR,C,ALIAS:"__setpixel"],x,y
END
INTERFACE TO FUNCTION setpixel_w(wx,wy)
INTEGER*2 setpixel_w[FAR,C,ALIAS:"__setpixel_w"]
DOUBLE PRECISION wx,wy
END
INTERFACE TO FUNCTION settextcolor(index)
INTEGER*2 settextcolor[FAR,C,ALIAS:"__settextcolor"],index
END
INTERFACE TO FUNCTION settextcursor(attr)
INTEGER*2 settextcursor[FAR,C,ALIAS:"__settextcursor"],attr
END
INTERFACE TO SUBROUTINE
+ settextposition[FAR,C,ALIAS:"__f_settextposition"](row,col,s)
INTEGER*2 row,col
STRUCTURE/rccoord/
INTEGER*2 row
INTEGER*2 col
END STRUCTURE
RECORD/rccoord/s[FAR,REFERENCE]
END
INTERFACE TO FUNCTION settextrows(rows)
INTEGER*2 settextrows[FAR,C,ALIAS:"__settextrows"],rows
END
INTERFACE TO SUBROUTINE
+ settextwindow[FAR,C,ALIAS:"__settextwindow"](r1,c1,r2,c2)
INTEGER*2 r1,c1,r2,c2
END
INTERFACE TO FUNCTION setvideomode(mode)
INTEGER*2 setvideomode[FAR,C,ALIAS:"__setvideomode"],mode
END
INTERFACE TO FUNCTION setvideomoderows(mode,rows)
INTEGER*2 setvideomoderows[FAR,C,ALIAS:"__setvideomoderows"]
INTEGER*2 mode,rows
END
INTERFACE TO SUBROUTINE
+ setvieworg[FAR,C,ALIAS:"__f_setvieworg"](x,y,s)
INTEGER*2 x,y
STRUCTURE/xycoord/
INTEGER*2 xcoord
INTEGER*2 ycoord
END STRUCTURE
RECORD/xycoord/s[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ setviewport[FAR,C,ALIAS:"__setviewport"](x1,y1,x2,y2)
INTEGER*2 x1,y1,x2,y2
END
INTERFACE TO FUNCTION setvisualpage(page)
INTEGER*2 setvisualpage[FAR,C,ALIAS:"__setvisualpage"],page
END
INTERFACE TO FUNCTION setwindow(finvert,wx1,wy1,wx2,wy2)
INTEGER*2 setwindow[FAR,C,ALIAS:"__setwindow"]
LOGICAL*2 finvert
DOUBLE PRECISION wx1,wy1,wx2,wy2
END
INTERFACE TO FUNCTION setwritemode(wmode)
INTEGER*2 setwritemode[FAR,C,ALIAS:"__setwritemode"],wmode
END
INTERFACE TO FUNCTION wrapon(option)
INTEGER*2 wrapon[FAR,C,ALIAS:"__wrapon"],option
END
* FONTS
INTERFACE TO FUNCTION getfontinfo(fi)
INTEGER*2 getfontinfo[FAR,C,ALIAS:"__f_getfontinfo"]
STRUCTURE/fontinfo/
INTEGER*2 type ! b0 set = vector,clear = bit map
INTEGER*2 ascent ! pix dist from top to baseline
INTEGER*2 pixwidth ! character width in pixels, 0=prop
INTEGER*2 pixheight ! character height in pixels
INTEGER*2 avgwidth ! average character width in pixels
CHARACTER*81 filename ! file name including path
CHARACTER*32 facename ! font name
END STRUCTURE
RECORD/fontinfo/fi[FAR,REFERENCE]
END
INTERFACE TO FUNCTION getgtextextent(text)
INTEGER*2 getgtextextent[FAR,C,ALIAS:"__f_getgtextextent"]
CHARACTER*(*) text[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ getgtextvector[FAR,C,ALIAS:"__f_getgtextvector"](x,y)
INTEGER*2 x[FAR,REFERENCE],y[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ outgtext[FAR,C,ALIAS:"__f_outgtext"](text)
CHARACTER*(*) text[FAR,REFERENCE]
END
INTERFACE TO FUNCTION registerfonts(filename)
INTEGER*2 registerfonts[FAR,C,ALIAS:"__f_registerfonts"]
CHARACTER*(*) filename[FAR,REFERENCE]
END
INTERFACE TO FUNCTION setfont(options)
INTEGER*2 setfont[FAR,C,ALIAS:"__f_setfont"]
CHARACTER*(*) options[FAR,REFERENCE]
END
INTERFACE TO SUBROUTINE
+ setgtextvector[FAR,C,ALIAS:"__setgtextvector"](x,y)
INTEGER*2 x,y
END
INTERFACE TO SUBROUTINE
+ unregisterfonts[FAR,C,ALIAS:"__unregisterfonts"]()
END