File "copyil"

Full Path: /home/analogde/www/SKILL/copyil
File size: 574 bytes
MIME-type: text/plain
Charset: utf-8

procedure(copy_wire()

	id = car(geGetSelSet())
	cv = geGetWindowCellView()

	w = id~>width
	lpp = id~>lpp
	points = id~>points

	x1=car(car(points))
	y1=cadr(car(points))
	x2=car(cadr(points))
	y2=cadr(cadr(points))

	if(sens == "gauche" then
	   delta = 0.5
	)
	if(sens == "droite" then
	   delta = -0.5
	)
	if(sens == "bas" then
	   delta = -0.5
	)
	if(sens == "haut" then
	   delta = 0.5
	)

	if( x1 == x2 then

	    x1 = x1 + delta
	    x2 = x2 + delta
	else
		 y1 = y1 + delta
	         y2 = y2 + delta
	)

	coord= list(x1:y1 x2:y2)	
	dbCreatePath(cv lpp coord w)

)