blob: ee34652764d04a66be47b03c659348f7c42d4bfc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GLINE -- Draw a line connecting two points.
procedure gline (gp, x1, y1, x2, y2)
pointer gp # graphics descriptor
real x1, y1 # first point
real x2, y2 # second point
begin
call gamove (gp, x1, y1)
call gadraw (gp, x2, y2)
end
|
