DRAG ELEM

DRAG ELEM From,To;Dx,Dy,Angle,Scale,Sy,[Rep]

Cette instruction permet le déplacement interactif sur l'écran d'un ensemble d'entités. Les entités déplacées sont celles comprises entre les valeurs From et To. Les conditions initiales sont définies par les paramètres d'entrées suivants:

Paramètres d'entrée

From	:	Numéro de la première entité à déplacer
To	:	Numéro de la dernière entité à déplacer
Dx,Dy	:	Point d'origine du déplacement
Angle	:	Angle avant le déplacement exprimé dans l'unité angulaire préalablement définie par l'une des instructions DEG, RAD ou GRAD
Scale	:	Echelle avant le déplacement

Paramètres de sortie

Dx,Dy	:	Déplacement effectué
Angle	:	Angle avant le déplacement
Scale	:	Echelle avant le déplacement
Sy	:	0 = Pas de symétrie
		1 = Symétrie selon l'axe X
Rep	:	Si le paramètre optionnel est utilisé, la variable Rep est affectée par le numéro de la case du menu si l'on digitalise dans le menu, sinon Rep vaut zéro. Le numéro de la case est compris entre 1 et 16. Si le paramètre optionnel n'est pas utilisé et une fonction du menu est demandée, le programme est interrompu et le contrôle est rendu au dessin.

Exemple

DIGITIZE Org_x,Org_y
From=1
To=NB_ELEM
Dx=Org_x
Dy=Org_y
Angle=0
Scale=1
Sy=0
ERASE ELEM From,To
DRAG ELEM From,To;Dx,Dy,Angle,Scale,Sy
GRAPHICS OFF
IF Angle THEN TRANSFORM ELEM From,To ROTATE Org_x,Org_y,Angle
IF Scale<>1 THEN TRANSFORM ELEM From,To SCALE Org_x,Org_y,Scale
IF Sy THEN TRANSFORM ELEM From,To SYMETRY Org_x,Org_y,0
TRANSFORM ELEM From,To MOVE Dx,Dy
GRAPHICS ON
PLOT ELEM From,To
END
END MACRO

Rubriques connexes
DRAG ELEM ERASE