degraph.pro

来自「IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。」· PRO 代码 · 共 57 行

; $Id: degraph.pro,v 1.2 2002/03/14 11:49:11 riccardi Exp $

;+
;    DEGRAPH
;
;    DEGRAPH, N, X, Y
;
;    Recovers X,Y coordinates from image of a graph previously
;    displayed.
;    INPUT: N nuber of points to recover
;    OUTPUT: X, Y vectors of coordinates of recovered points.
;
;    Procedure prompts for ...
;-
pro degraph, n, x, y
	x1=0.0
	x2=0.0
	y1=0.0
	y2=0.0

	print, 'fai click su x1'
	cursor, xd1, dummy, /down, /device
	print, xd1
	read, x1, prompt='valore di x1: '
	print, x1

	print, 'fai click su x2'
	cursor, xd2, dummy, /down, /device
	print, xd2
	read, x2, prompt='valore di x2: '
	print, x2

	print, 'fai click su y1'
	cursor, dummy, yd1, /down, /device
	print, yd1
	read, y1, prompt='valore di y1: '

	print, 'fai click su y2'
	cursor, dummy, yd2, /down, /device
	print, yd2
	read, y2, prompt='valore di y2: '

	x=fltarr(n)
	y=fltarr(n)
	
	for i=0,n-1 do begin
		print, 'punto:',i+1
		cursor, xd, yd, /down, /device
		x(i)=float(xd-xd1)/(xd2-xd1)*(x2-x1)+x1
		y(i)=float(yd-yd1)/(yd2-yd1)*(y2-y1)+y1
		print, xd, yd, '-->', x(i), y(i)
	endfor

	return
end