mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Editor window now has controls for precise moving and rotating triangles.

Browse Source
This commit is contained in:
utak3r
2005-06-01 19:26:55 +00:00
parent 66381de71b
commit 4d31a7c21a
3 changed files with 528 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

187
2.10/Source/Editor.pas
View File

@ -23,7 +23,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Math, Menus, ToolWin, Registry, MyTypes,
ControlPoint, Render, cmap, Grids, ValEdit;
ControlPoint, Render, cmap, Grids, ValEdit, Buttons;
const
// PixelCountMax = 32768;
@ -65,19 +65,6 @@ type
N6: TMenuItem;
PageControl: TPageControl;
TabSheet1: TTabSheet;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
txtAx: TEdit;
txtAy: TEdit;
txtBx: TEdit;
txtBy: TEdit;
txtCx: TEdit;
txtCy: TEdit;
chkPreserve: TCheckBox;
XForm: TTabSheet;
lbla: TLabel;
Label1: TLabel;
@ -112,6 +99,31 @@ type
N2: TMenuItem;
mnuRotateRight: TMenuItem;
mnuRotateLeft: TMenuItem;
mnuScaleUp: TMenuItem;
mnuScaleDown: TMenuItem;
TriangleScrollBox: TScrollBox;
TrianglePanel: TPanel;
txtTrgRotateValue: TEdit;
txtTrgMoveValue: TEdit;
txtCy: TEdit;
txtCx: TEdit;
txtBy: TEdit;
txtBx: TEdit;
txtAy: TEdit;
txtAx: TEdit;
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label12: TLabel;
Label11: TLabel;
Label10: TLabel;
chkPreserve: TCheckBox;
btTrgRotateRight: TSpeedButton;
btTrgRotateLeft: TSpeedButton;
btTrgMoveUp: TSpeedButton;
btTrgMoveRight: TSpeedButton;
btTrgMoveLeft: TSpeedButton;
btTrgMoveDown: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure GraphImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: integer);
@ -167,6 +179,14 @@ type
const KeyName, KeyValue: String);
procedure mnuRotateRightClick(Sender: TObject);
procedure mnuRotateLeftClick(Sender: TObject);
procedure mnuScaleUpClick(Sender: TObject);
procedure mnuScaleDownClick(Sender: TObject);
procedure btTrgRotateLeftClick(Sender: TObject);
procedure btTrgRotateRightClick(Sender: TObject);
procedure btTrgMoveLeftClick(Sender: TObject);
procedure btTrgMoveRightClick(Sender: TObject);
procedure btTrgMoveUpClick(Sender: TObject);
procedure btTrgMoveDownClick(Sender: TObject);
private
bm: TBitmap;
cmap: TColorMap;
@ -1018,14 +1038,28 @@ procedure TEditForm.mnuRotateRightClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], -(PI / 20));
HasChanged := True;
UpdateFlame(False);
UpdateFlame(true);
end;
procedure TEditForm.mnuRotateLeftClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], PI / 20);
HasChanged := True;
UpdateFlame(False);
UpdateFlame(true);
end;
procedure TEditForm.mnuScaleUpClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := ScaleTriangleCenter(MainTriangles[SelectedTriangle], 1.1);
HasChanged := True;
UpdateFlame(true);
end;
procedure TEditForm.mnuScaleDownClick(Sender: TObject);
begin
MainTriangles[SelectedTriangle] := ScaleTriangleCenter(MainTriangles[SelectedTriangle], 0.9);
HasChanged := True;
UpdateFlame(true);
end;
procedure TEditForm.FormShow(Sender: TObject);
@ -1915,5 +1949,126 @@ begin
end;
end;
{ **************************************************************************** }
procedure TEditForm.btTrgRotateLeftClick(Sender: TObject);
var
offset: double;
begin
try
offset := StrToFloat(txtTrgRotateValue.Text);
except
offset := 0;
txtTrgRotateValue.Text := '0';
end;
if offset <> 0 then
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], (PI/180) * offset); HasChanged := True;
UpdateFlame(true);
end;
end;
procedure TEditForm.btTrgRotateRightClick(Sender: TObject);
var
offset: double;
begin
try
offset := StrToFloat(txtTrgRotateValue.Text);
except
offset := 0;
txtTrgRotateValue.Text := '0';
end;
if offset <> 0 then
begin
MainTriangles[SelectedTriangle] := RotateTriangleCenter(MainTriangles[SelectedTriangle], -((PI/180) * offset));
HasChanged := True;
UpdateFlame(true);
end;
end;
procedure TEditForm.btTrgMoveLeftClick(Sender: TObject);
var
i: integer;
offset: double;
begin
try
offset := StrToFloat(txtTrgMoveValue.Text);
except
offset := 0;
txtTrgMoveValue.Text := '0';
end;
if offset <> 0 then
begin
for i := 0 to 2 do
MainTriangles[SelectedTriangle].x[i] :=
MainTriangles[SelectedTriangle].x[i] - offset;
HasChanged := True;
UpdateFlame(true);
end;
end;
procedure TEditForm.btTrgMoveRightClick(Sender: TObject);
var
i: integer;
offset: double;
begin
try
offset := StrToFloat(txtTrgMoveValue.Text);
except
offset := 0;
txtTrgMoveValue.Text := '0';
end;
if offset <> 0 then
begin
for i := 0 to 2 do
MainTriangles[SelectedTriangle].x[i] :=
MainTriangles[SelectedTriangle].x[i] + offset;
HasChanged := True;
UpdateFlame(true);
end;
end;
procedure TEditForm.btTrgMoveUpClick(Sender: TObject);
var
i: integer;
offset: double;
begin
try
offset := StrToFloat(txtTrgMoveValue.Text);
except
offset := 0;
txtTrgMoveValue.Text := '0';
end;
if offset <> 0 then
begin
for i := 0 to 2 do
MainTriangles[SelectedTriangle].y[i] :=
MainTriangles[SelectedTriangle].y[i] + offset;
HasChanged := True;
UpdateFlame(true);
end;
end;
procedure TEditForm.btTrgMoveDownClick(Sender: TObject);
var
i: integer;
offset: double;
begin
try
offset := StrToFloat(txtTrgMoveValue.Text);
except
offset := 0;
txtTrgMoveValue.Text := '0';
end;
if offset <> 0 then
begin
for i := 0 to 2 do
MainTriangles[SelectedTriangle].y[i] :=
MainTriangles[SelectedTriangle].y[i] - offset;
HasChanged := True;
UpdateFlame(true);
end;
end;
end.