graphsubs.f

来自「su 的源代码库」· F 代码 · 共 48 行

* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.

	subroutine initgraph()
*
*	initializes graphics operations
*
	return
	end

	subroutine endgraph()
*
*	ends graphics operations
*
	return
	end

	subroutine setcol(col)
	integer col
*
*	sets drawing color: col must be strictly 
*	positive.
*
	return
	end

	subroutine move(x,y)
	real x, y
*
*	moves cursor location to x, y: x and y are 
*	the plotting coordinates in inches from the 
*	lower left corner of the graphic device, with 
*	x horizontal positive and y vertical positive.
*
	return
	end

	subroutine draw(x,y)
	real x, y
*
*	draws from current cursor location to x, y: x and y are 
*	the plotting coordinates in inches from the 
*	lower left corner of the graphic device, with 
*	x horizontal positive and y vertical positive.
*
	return
	end