2005-03-25 03:35:39 -05:00
|
|
|
|
{
|
|
|
|
|
Apophysis Copyright (C) 2001-2004 Mark Townsend
|
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
}
|
|
|
|
|
//{$D-,L-,O+,Q-,R-,Y-,S-}
|
|
|
|
|
unit Editor;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
|
|
|
ExtCtrls, StdCtrls, ComCtrls, Math, Menus, ToolWin, Registry, MyTypes,
|
2005-09-15 10:23:32 -04:00
|
|
|
|
ControlPoint, Render, cmap, Grids, ValEdit, Buttons, ImgList, CustomDrawControl;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
|
|
|
|
const
|
|
|
|
|
// PixelCountMax = 32768;
|
|
|
|
|
WM_PTHREAD_COMPLETE = WM_APP + 5438;
|
|
|
|
|
|
2005-09-26 08:07:57 -04:00
|
|
|
|
crEditArrow = 20;
|
|
|
|
|
crEditMove = 21;
|
|
|
|
|
crEditRotate = 22;
|
|
|
|
|
crEditScale = 23;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
type
|
|
|
|
|
TEditForm = class(TForm)
|
|
|
|
|
GrphPnl: TPanel;
|
|
|
|
|
StatusBar: TStatusBar;
|
|
|
|
|
ControlPanel: TPanel;
|
|
|
|
|
lblTransform: TLabel;
|
|
|
|
|
PrevPnl: TPanel;
|
|
|
|
|
PreviewImage: TImage;
|
|
|
|
|
EditPopup: TPopupMenu;
|
|
|
|
|
MenuItem1: TMenuItem;
|
|
|
|
|
mnuDelete: TMenuItem;
|
|
|
|
|
mnuDuplicate: TMenuItem;
|
|
|
|
|
MenuItem2: TMenuItem;
|
|
|
|
|
mnuAdd: TMenuItem;
|
|
|
|
|
mnuAutoZoom: TMenuItem;
|
|
|
|
|
N1: TMenuItem;
|
|
|
|
|
mnuUndo: TMenuItem;
|
|
|
|
|
mnuRedo: TMenuItem;
|
|
|
|
|
QualityPopup: TPopupMenu;
|
|
|
|
|
mnuLowQuality: TMenuItem;
|
|
|
|
|
mnuMediumQuality: TMenuItem;
|
|
|
|
|
mnuHighQuality: TMenuItem;
|
|
|
|
|
N3: TMenuItem;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
mnuResetLoc: TMenuItem;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
N4: TMenuItem;
|
|
|
|
|
mnuFlipVertical: TMenuItem;
|
|
|
|
|
mnuFlipHorizontal: TMenuItem;
|
|
|
|
|
cbTransforms: TComboBox;
|
|
|
|
|
PageControl: TPageControl;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
TriangleTab: TTabSheet;
|
|
|
|
|
tabXForm: TTabSheet;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
lbla: TLabel;
|
|
|
|
|
Label1: TLabel;
|
|
|
|
|
Label2: TLabel;
|
|
|
|
|
Label3: TLabel;
|
|
|
|
|
Label4: TLabel;
|
|
|
|
|
Label5: TLabel;
|
|
|
|
|
Label6: TLabel;
|
|
|
|
|
Label29: TLabel;
|
|
|
|
|
txtA: TEdit;
|
|
|
|
|
txtB: TEdit;
|
|
|
|
|
txtC: TEdit;
|
|
|
|
|
txtD: TEdit;
|
|
|
|
|
txtE: TEdit;
|
|
|
|
|
txtF: TEdit;
|
|
|
|
|
txtP: TEdit;
|
|
|
|
|
txtSymmetry: TEdit;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
tabVariations: TTabSheet;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
VEVars: TValueListEditor;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
tabColors: TTabSheet;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
GroupBox1: TGroupBox;
|
|
|
|
|
scrlXFormColor: TScrollBar;
|
|
|
|
|
pnlXFormColor: TPanel;
|
|
|
|
|
txtXFormColor: TEdit;
|
|
|
|
|
GroupBox2: TGroupBox;
|
|
|
|
|
Label20: TLabel;
|
|
|
|
|
Label21: TLabel;
|
|
|
|
|
pnlBackColor: TPanel;
|
|
|
|
|
chkUseXFormColor: TCheckBox;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
chkHelpers: TCheckBox;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
pnlReference: TPanel;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
TriangleScrollBox: TScrollBox;
|
|
|
|
|
TrianglePanel: TPanel;
|
|
|
|
|
txtCy: TEdit;
|
|
|
|
|
txtCx: TEdit;
|
|
|
|
|
txtBy: TEdit;
|
|
|
|
|
txtBx: TEdit;
|
|
|
|
|
txtAy: TEdit;
|
|
|
|
|
txtAx: TEdit;
|
|
|
|
|
Label9: TLabel;
|
|
|
|
|
Label7: TLabel;
|
|
|
|
|
Label11: TLabel;
|
|
|
|
|
chkPreserve: TCheckBox;
|
|
|
|
|
btTrgRotateRight: TSpeedButton;
|
|
|
|
|
btTrgRotateLeft: TSpeedButton;
|
|
|
|
|
btTrgMoveUp: TSpeedButton;
|
|
|
|
|
btTrgMoveRight: TSpeedButton;
|
|
|
|
|
btTrgMoveLeft: TSpeedButton;
|
|
|
|
|
btTrgMoveDown: TSpeedButton;
|
2005-06-28 16:06:46 -04:00
|
|
|
|
btTrgScaleUp: TSpeedButton;
|
|
|
|
|
btTrgScaleDown: TSpeedButton;
|
2005-07-03 17:18:07 -04:00
|
|
|
|
rgPivot: TRadioGroup;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
btTrgRotateRight90: TSpeedButton;
|
|
|
|
|
btTrgRotateLeft90: TSpeedButton;
|
|
|
|
|
txtTrgMoveValue: TComboBox;
|
|
|
|
|
txtTrgRotateValue: TComboBox;
|
|
|
|
|
txtTrgScaleValue: TComboBox;
|
|
|
|
|
Splitter1: TSplitter;
|
|
|
|
|
Splitter2: TSplitter;
|
|
|
|
|
EditorToolBar: TToolBar;
|
|
|
|
|
tbAdd: TToolButton;
|
|
|
|
|
tbDuplicate: TToolButton;
|
|
|
|
|
tbDelete: TToolButton;
|
|
|
|
|
ToolButton4: TToolButton;
|
|
|
|
|
tbMove: TToolButton;
|
|
|
|
|
tbRotate: TToolButton;
|
|
|
|
|
ToolButton1: TToolButton;
|
|
|
|
|
tbUndo: TToolButton;
|
|
|
|
|
tbRedo: TToolButton;
|
|
|
|
|
ToolButton5: TToolButton;
|
|
|
|
|
tbScale: TToolButton;
|
|
|
|
|
tbFlipHorz: TToolButton;
|
|
|
|
|
tbFlipVert: TToolButton;
|
|
|
|
|
tbFlipAllHorz: TToolButton;
|
|
|
|
|
tbFlipAllVert: TToolButton;
|
|
|
|
|
tbSelect: TToolButton;
|
|
|
|
|
btTrgMoveLU: TSpeedButton;
|
|
|
|
|
btTrgMoveLD: TSpeedButton;
|
|
|
|
|
btTrgMoveRU: TSpeedButton;
|
|
|
|
|
btTrgMoveRD: TSpeedButton;
|
|
|
|
|
EditorTB: TImageList;
|
|
|
|
|
Label8: TLabel;
|
|
|
|
|
pnlGridColor1: TPanel;
|
|
|
|
|
pnlGridColor2: TPanel;
|
|
|
|
|
PreviewToolBar: TToolBar;
|
|
|
|
|
tbFullView: TToolButton;
|
|
|
|
|
tbLowQ: TToolButton;
|
|
|
|
|
tbMedQ: TToolButton;
|
|
|
|
|
ToolButton7: TToolButton;
|
|
|
|
|
tbResetLoc: TToolButton;
|
|
|
|
|
tbHiQ: TToolButton;
|
|
|
|
|
ToolButton9: TToolButton;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
TabSheet4: TTabSheet;
|
|
|
|
|
vleVariables: TValueListEditor;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
mnuReset: TMenuItem;
|
|
|
|
|
mnuResetAll: TMenuItem;
|
|
|
|
|
tbResetAll: TToolButton;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Label10: TLabel;
|
|
|
|
|
pnlHelpersColor: TPanel;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
procedure ValidateVariable;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
procedure vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
|
|
|
|
|
procedure vleVariablesKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure vleVariablesExit(Sender: TObject);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure FormCreate(Sender: TObject);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TriangleViewMouseMove(Sender: TObject; Shift: TShiftState; X,
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Y: integer);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TriangleViewMouseDown(Sender: TObject; Button: TMouseButton;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Shift: TShiftState; X, Y: integer);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TriangleViewMouseUp(Sender: TObject; Button: TMouseButton;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Shift: TShiftState; X, Y: integer);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TriangleViewMouseWheel(Sender: TObject; Shift: TShiftState;
|
|
|
|
|
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
|
|
|
|
|
procedure TriangleViewDblClick(Sender: TObject);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure TriangleViewKeyDown(Sender: TObject; var Key: Word;
|
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
procedure TriangleViewKeyUp(Sender: TObject; var Key: Word;
|
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
procedure TriangleViewExit(Sender: TObject);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
procedure TriangleViewMouseLeave(Sender: TObject);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
|
|
procedure mnuDeleteClick(Sender: TObject);
|
|
|
|
|
procedure mnuAddClick(Sender: TObject);
|
|
|
|
|
procedure mnuDupClick(Sender: TObject);
|
|
|
|
|
procedure mnuAutoZoomClick(Sender: TObject);
|
|
|
|
|
procedure btnCloseClick(Sender: TObject);
|
|
|
|
|
procedure FormResize(Sender: TObject);
|
|
|
|
|
procedure txtPKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure CornerEditKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure CornerEditExit(Sender: TObject);
|
|
|
|
|
procedure txtPExit(Sender: TObject);
|
|
|
|
|
procedure DrawPreview;
|
|
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
|
|
procedure mnuUndoClick(Sender: TObject);
|
|
|
|
|
procedure mnuRedoClick(Sender: TObject);
|
|
|
|
|
procedure FormDestroy(Sender: TObject);
|
|
|
|
|
procedure mnuLowQualityClick(Sender: TObject);
|
|
|
|
|
procedure mnuHighQualityClick(Sender: TObject);
|
|
|
|
|
procedure mnuMediumQualityClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure mnuResetLocClick(Sender: TObject);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure mnuVerticalFlipAllClick(Sender: TObject);
|
|
|
|
|
procedure mnuHorizintalFlipAllClick(Sender: TObject);
|
|
|
|
|
procedure mnuFlipVerticalClick(Sender: TObject);
|
|
|
|
|
procedure mnuFlipHorizontalClick(Sender: TObject);
|
|
|
|
|
procedure cbTransformsChange(Sender: TObject);
|
|
|
|
|
procedure CoefKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure CoefExit(Sender: TObject);
|
|
|
|
|
procedure scrlXFormColorScroll(Sender: TObject;
|
|
|
|
|
ScrollCode: TScrollCode; var ScrollPos: Integer);
|
|
|
|
|
procedure scrlXFormColorChange(Sender: TObject);
|
|
|
|
|
procedure chkUseXFormColorClick(Sender: TObject);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
procedure chkHelpersClick(Sender: TObject);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure pnlBackColorClick(Sender: TObject);
|
|
|
|
|
procedure pnlReferenceClick(Sender: TObject);
|
|
|
|
|
procedure txtXFormColorExit(Sender: TObject);
|
|
|
|
|
procedure txtXFormColorKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure txtSymmetryExit(Sender: TObject);
|
|
|
|
|
procedure txtSymmetryKeyPress(Sender: TObject; var Key: Char);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-06-01 15:26:55 -04:00
|
|
|
|
procedure btTrgRotateLeftClick(Sender: TObject);
|
|
|
|
|
procedure btTrgRotateRightClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure btTrgRotateLeft90Click(Sender: TObject);
|
|
|
|
|
procedure btTrgRotateRight90Click(Sender: TObject);
|
|
|
|
|
procedure TrgMove(dx, dy: double);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
procedure btTrgMoveLeftClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveRightClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveUpClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveDownClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure btTrgMoveLUClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveLDClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveRUClick(Sender: TObject);
|
|
|
|
|
procedure btTrgMoveRDClick(Sender: TObject);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure btTrgScaleUpClick(Sender: TObject);
|
|
|
|
|
procedure btTrgScaleDownClick(Sender: TObject);
|
|
|
|
|
procedure splitterMoved(Sender: TObject);
|
|
|
|
|
procedure tbSelectClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure PreviewImageDblClick(Sender: TObject);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure EditKeyPress(Sender: TObject; var Key: Char);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure rgPivotClicked(Sender: TObject);
|
|
|
|
|
procedure tbEditModeClick(Sender: TObject);
|
|
|
|
|
procedure pnlGridColor1Click(Sender: TObject);
|
|
|
|
|
procedure pnlGridColor2Click(Sender: TObject);
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
procedure ValidateVariation;
|
|
|
|
|
// procedure ValidateValue(Sender: TObject);
|
|
|
|
|
procedure VEVarsKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
procedure VEVarsChange(Sender: TObject);
|
|
|
|
|
procedure VEVarsValidate(Sender: TObject; ACol, ARow: Integer;
|
|
|
|
|
const KeyName, KeyValue: String);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure VEVarsMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
procedure VEVarsMouseMove(Sender: TObject; Shift: TShiftState; X,
|
|
|
|
|
Y: Integer);
|
|
|
|
|
procedure VEVarsMouseUp(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
procedure VEVarsDblClick(Sender: TObject);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
// procedure VEVarsDrawCell(Sender: TObject; ACol, ARow: Integer;
|
|
|
|
|
// Rect: TRect; State: TGridDrawState);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
procedure cbTransformsDrawItem(Control: TWinControl; Index: Integer;
|
|
|
|
|
Rect: TRect; State: TOwnerDrawState);
|
|
|
|
|
|
|
|
|
|
procedure tbFullViewClick(Sender: TObject);
|
2005-09-11 07:28:26 -04:00
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
{
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure ColorImageMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
procedure ColorImageMouseMove(Sender: TObject; Shift: TShiftState; X,
|
|
|
|
|
Y: Integer);
|
|
|
|
|
procedure ColorImageMouseUp(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
}
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure EditKeyDown(Sender: TObject; var Key: Word;
|
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
procedure txtValidateValue(Sender: TObject);
|
|
|
|
|
procedure txtValKeyPress(Sender: TObject; var Key: Char);
|
2005-09-26 08:07:57 -04:00
|
|
|
|
procedure mnuResetClick(Sender: TObject);
|
|
|
|
|
procedure mnuResetAllClick(Sender: TObject);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
procedure pnlHelpersColorClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
private
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView: TCustomDrawControl;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cmap: TColorMap;
|
|
|
|
|
// cp1: TControlPoint;
|
|
|
|
|
PreviewDensity: double;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
// --Z--
|
2005-09-15 10:23:32 -04:00
|
|
|
|
viewDragMode, viewDragged: boolean;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
editMode, oldMode: (modeNone, modeMove, modeRotate, modeScale);
|
2005-09-28 11:40:33 -04:00
|
|
|
|
modeKey: word;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
key_handled: boolean;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
MousePos: TPoint; // in screen coordinates
|
2005-09-21 09:42:24 -04:00
|
|
|
|
mouseOverTriangle, mouseOverCorner: integer;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
varDragMode: boolean;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
varDragIndex :integer;
|
|
|
|
|
varDragValue: double;
|
|
|
|
|
varDragPos, varDragOld: integer;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
varMM: boolean; //hack?
|
|
|
|
|
|
|
|
|
|
// --Z-- variables moved from outside
|
|
|
|
|
GraphZoom: double;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
TriangleCaught, CornerCaught: boolean;
|
|
|
|
|
LocalAxisLocked: boolean;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
// SelectedTriangle: integer; // outside only for scripting (??)
|
2005-09-11 03:03:02 -04:00
|
|
|
|
SelectedCorner: integer;
|
|
|
|
|
SelectMode: boolean;
|
|
|
|
|
HasChanged: boolean;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
oldx, oldy, olddist: double;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Pivot: TSPoint;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
VarsCache: array[0..64] of double; // hack: to prevent slow valuelist redraw
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
colorDrag, colorChanged: boolean;
|
|
|
|
|
colorDragX, colorOldX: integer;
|
|
|
|
|
|
|
|
|
|
{ Options }
|
|
|
|
|
UseFlameBackground, UseTransformColors: boolean;
|
|
|
|
|
BackGroundColor, ReferenceTrianglecolor: integer;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
GridColor1, GridColor2, HelpersColor: integer;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
procedure UpdateFlameX;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure UpdateFlame(DrawMain: boolean);
|
|
|
|
|
procedure DeleteTriangle(t: integer);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
function GetPivot: TSPoint; overload;
|
|
|
|
|
function GetPivot(n: integer): TSPoint; overload;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
function GetTriangleColor(n: integer): TColor;
|
|
|
|
|
|
2005-09-11 07:28:26 -04:00
|
|
|
|
// --Z-- functions moved from outside (?)
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure ShowSelectedInfo;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure Scale(var fx, fy: double; x, y: integer);
|
2005-09-29 10:11:29 -04:00
|
|
|
|
// procedure ReadjustWeights(var cp: TControlPoint);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
public
|
|
|
|
|
cp: TControlPoint;
|
|
|
|
|
Render: TRenderer;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
SelectedTriangle: integer;
|
|
|
|
|
|
|
|
|
|
procedure UpdateDisplay(preview_only: boolean = false);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure AutoZoom;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TriangleViewPaint(Sender: TObject);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
const
|
2005-09-16 09:26:45 -04:00
|
|
|
|
TrgColors: array[-1..13] of TColor = (clGray,
|
2005-09-18 02:05:44 -04:00
|
|
|
|
$0000ff, $00ffff, $00ff00, $ffff00, $ff0000, $ff00ff, $007fff,
|
|
|
|
|
$7f00ff, $55ffff, $ccffcc, $ffffaa, $ff7f7f, $ffaaff, $55ccff );
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
EditForm: TEditForm;
|
2005-09-16 09:26:45 -04:00
|
|
|
|
// pcenterx, pcentery, pscale: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
|
|
|
|
function ColorValToColor(c: TColorMap; index: double): TColor;
|
|
|
|
|
function FlipTriangleVertical(t: TTriangle): TTriangle;
|
|
|
|
|
function FlipTriangleHorizontal(t: TTriangle): TTriangle;
|
|
|
|
|
function RotateTriangle(t: TTriangle; rad: double): TTriangle;
|
|
|
|
|
function OffsetTriangle(t: TTriangle; range: double): TTriangle;
|
|
|
|
|
function ScaleTriangle(t: TTriangle; scale: double): TTriangle;
|
|
|
|
|
function RotateTriangleCenter(t: TTriangle; rad: double): TTriangle;
|
|
|
|
|
function RotateTrianglePoint(t: TTriangle; x, y, rad: double): TTriangle;
|
|
|
|
|
function Centroid(t: TTriangle): TSPoint;
|
|
|
|
|
function OffsetTriangleRandom(t: TTriangle): TTriangle;
|
|
|
|
|
function ScaleTriangleCenter(t: TTriangle; scale: double): TTriangle;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
function ScaleTrianglePoint(t: TTriangle; x, y, scale: double): TTriangle;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure ScaleAll;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
2005-04-02 05:53:22 -05:00
|
|
|
|
uses
|
2005-09-11 06:30:54 -04:00
|
|
|
|
Main, Global, Adjust, Mutate, XformMan;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
|
|
|
|
const
|
|
|
|
|
SUB_BATCH_SIZE = 1000;
|
|
|
|
|
SC_MyMenuItem1 = WM_USER + 1;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
oldTriangle: TTriangle;
|
|
|
|
|
gCenterX: double;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
gCenterY: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
HelpersEnabled: boolean = true;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
{$R *.DFM}
|
|
|
|
|
|
|
|
|
|
{ Triangle transformations }
|
|
|
|
|
|
|
|
|
|
function OffsetTriangleRandom(t: TTriangle): TTriangle;
|
|
|
|
|
var
|
|
|
|
|
r: integer;
|
|
|
|
|
begin
|
|
|
|
|
r := random(3);
|
|
|
|
|
Result.x[r] := t.x[r] + random - 0.5;
|
|
|
|
|
Result.y[r] := t.y[r] + random - 0.5;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function FlipTriangleVertical(t: TTriangle): TTriangle;
|
|
|
|
|
begin
|
|
|
|
|
Result := t;
|
|
|
|
|
Result.y[0] := -t.y[0];
|
|
|
|
|
Result.y[1] := -t.y[1];
|
|
|
|
|
Result.y[2] := -t.y[2];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function FlipTriangleHorizontal(t: TTriangle): TTriangle;
|
|
|
|
|
begin
|
|
|
|
|
Result := t;
|
|
|
|
|
Result.x[0] := -t.x[0];
|
|
|
|
|
Result.x[1] := -t.x[1];
|
|
|
|
|
Result.x[2] := -t.x[2];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function ScaleTriangle(t: TTriangle; scale: double): TTriangle;
|
|
|
|
|
begin
|
|
|
|
|
Result.y[0] := scale * t.y[0];
|
|
|
|
|
Result.y[1] := scale * t.y[1];
|
|
|
|
|
Result.y[2] := scale * t.y[2];
|
|
|
|
|
Result.x[0] := scale * t.x[0];
|
|
|
|
|
Result.x[1] := scale * t.x[1];
|
|
|
|
|
Result.x[2] := scale * t.x[2];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function Centroid(t: TTriangle): TSPoint;
|
|
|
|
|
begin
|
|
|
|
|
Result.x := (t.x[0] + t.x[1] + t.x[2]) / 3;
|
|
|
|
|
Result.y := (t.y[0] + t.y[1] + t.y[2]) / 3;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function ScaleTriangleCenter(t: TTriangle; scale: double): TTriangle;
|
|
|
|
|
var
|
|
|
|
|
xr, yr: double;
|
|
|
|
|
z: TSPoint;
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(scale <> 0);
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
z := Centroid(t);
|
|
|
|
|
xr := z.x;
|
|
|
|
|
yr := z.y;
|
|
|
|
|
Result.y[0] := scale * (t.y[0] - yr) + yr;
|
|
|
|
|
Result.y[1] := scale * (t.y[1] - yr) + yr;
|
|
|
|
|
Result.y[2] := scale * (t.y[2] - yr) + yr;
|
|
|
|
|
Result.x[0] := scale * (t.x[0] - xr) + xr;
|
|
|
|
|
Result.x[1] := scale * (t.x[1] - xr) + xr;
|
|
|
|
|
Result.x[2] := scale * (t.x[2] - xr) + xr;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
function ScaleTrianglePoint(t: TTriangle; x, y, scale: double): TTriangle;
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(scale <> 0);
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Result.y[0] := scale * (t.y[0] - y) + y;
|
|
|
|
|
Result.y[1] := scale * (t.y[1] - y) + y;
|
|
|
|
|
Result.y[2] := scale * (t.y[2] - y) + y;
|
|
|
|
|
Result.x[0] := scale * (t.x[0] - x) + x;
|
|
|
|
|
Result.x[1] := scale * (t.x[1] - x) + x;
|
|
|
|
|
Result.x[2] := scale * (t.x[2] - x) + x;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
function RotateTriangle(t: TTriangle; rad: double): TTriangle; //rad in Radians
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
Result.x[i] := t.x[i] * cos(rad) - t.y[i] * sin(rad);
|
|
|
|
|
Result.y[i] := t.x[i] * sin(rad) + t.y[i] * cos(rad);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function OffsetTriangle(t: TTriangle; range: double): TTriangle;
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
r: double;
|
|
|
|
|
begin
|
|
|
|
|
r := (random * 2 * range) - range;
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
Result.x[i] := t.x[i] + r;
|
|
|
|
|
Result.y[i] := t.y[i] + r;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure ScaleAll;
|
|
|
|
|
var
|
|
|
|
|
i, j: integer;
|
|
|
|
|
begin
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
MainTriangles[-1].y[i] := MainTriangles[-1].y[i] * 0.2;
|
|
|
|
|
MainTriangles[-1].x[i] := MainTriangles[-1].x[i] * 0.2;
|
|
|
|
|
end;
|
|
|
|
|
for j := 0 to Transforms - 1 do
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
MainTriangles[j].y[i] := MainTriangles[j].y[i] * 0.2;
|
|
|
|
|
MainTriangles[j].x[i] := MainTriangles[j].x[i] * 0.2;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function RotateTriangleCenter(t: TTriangle; rad: double): TTriangle;
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
xr, yr: double;
|
|
|
|
|
z: TSPoint;
|
|
|
|
|
begin
|
|
|
|
|
z := Centroid(t);
|
|
|
|
|
xr := z.x;
|
|
|
|
|
yr := z.y;
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
Result.x[i] := xr + (t.x[i] - xr) * cos(rad) -
|
|
|
|
|
(t.y[i] - yr) * sin(rad);
|
|
|
|
|
Result.y[i] := yr + (t.x[i] - xr) * sin(rad) +
|
|
|
|
|
(t.y[i] - yr) * cos(rad);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function RotateTrianglePoint(t: TTriangle; x, y, rad: double): TTriangle;
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
xr, yr: double;
|
|
|
|
|
begin
|
|
|
|
|
xr := x;
|
|
|
|
|
yr := y;
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
Result.x[i] := xr + (t.x[i] - xr) * cos(rad) -
|
|
|
|
|
(t.y[i] - yr) * sin(rad);
|
|
|
|
|
Result.y[i] := yr + (t.x[i] - xr) * sin(rad) +
|
|
|
|
|
(t.y[i] - yr) * cos(rad);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function ColorValToColor(c: TColorMap; index: double): TColor;
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
i := Trunc(Index * 255);
|
|
|
|
|
result := c[i][2] shl 16 + c[i][1] shl 8 + c[i][0];
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.UpdateDisplay(preview_only: boolean = false);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
pw, ph: integer;
|
|
|
|
|
r: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
// currently EditForm does not really know if we selected another
|
|
|
|
|
// flame in the Main Window - which is kinda not good...
|
|
|
|
|
if NumXForms(cp) <> NumXForms(MainCp) then
|
|
|
|
|
begin
|
|
|
|
|
SelectedTriangle := 0;
|
|
|
|
|
mouseOverTriangle := -1;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.copy(MainCp);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
pw := PrevPnl.Width - 2;
|
|
|
|
|
ph := PrevPnl.Height - 2;
|
|
|
|
|
if (cp.width / cp.height) > (PrevPnl.Width / PrevPnl.Height) then
|
|
|
|
|
begin
|
|
|
|
|
PreviewImage.Width := pw;
|
|
|
|
|
r := cp.width / PreviewImage.Width;
|
|
|
|
|
PreviewImage.height := round(cp.height / r);
|
|
|
|
|
PreviewImage.Left := 1;
|
|
|
|
|
PreviewImage.Top := (ph - PreviewImage.Height) div 2;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
PreviewImage.Height := ph;
|
|
|
|
|
r := cp.height / PreviewImage.height;
|
|
|
|
|
PreviewImage.Width := round(cp.Width / r);
|
|
|
|
|
PreviewImage.Top := 1;
|
|
|
|
|
PreviewImage.Left := (pw - PreviewImage.Width) div 2;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
AdjustScale(cp, PreviewImage.Width, PreviewImage.Height);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
DrawPreview;
|
|
|
|
|
if preview_only then exit;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.cmap := MainCp.cmap;
|
|
|
|
|
cmap := MainCp.cmap;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cbTransforms.Clear;
|
|
|
|
|
for i := 0 to Transforms - 1 do
|
|
|
|
|
cbTransforms.Items.Add(IntToStr(i + 1));
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
ShowSelectedInfo;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
AutoZoom;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.DrawPreview;
|
|
|
|
|
begin
|
|
|
|
|
//Render.Stop;
|
|
|
|
|
cp.sample_density := PreviewDensity;
|
|
|
|
|
cp.spatial_oversample := defOversample;
|
|
|
|
|
cp.spatial_filter_radius := defFilterRadius;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if mnuResetLoc.checked then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
cp.zoom := 0;
|
|
|
|
|
cp.CalcBoundbox;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
cp.zoom := MainCp.zoom;
|
|
|
|
|
cp.center[0] := MainCp.Center[0];
|
|
|
|
|
cp.center[1] := MainCp.Center[1];
|
|
|
|
|
end;
|
|
|
|
|
cp.cmap := MainCp.cmap;
|
|
|
|
|
Render.Compatibility := compatibility;
|
|
|
|
|
Render.SetCP(cp);
|
|
|
|
|
Render.Render;
|
|
|
|
|
PreviewImage.Picture.Bitmap.Assign(Render.GetImage);
|
|
|
|
|
PreviewImage.refresh;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-29 10:11:29 -04:00
|
|
|
|
(*
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.ReadjustWeights(var cp: TControlPoint);
|
2005-09-29 10:11:29 -04:00
|
|
|
|
{ Thanks to Rudy...code from Chaos }
|
|
|
|
|
// --Z-- and thanks to me for removing this! ;-)
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
total, othertotals, excess: double;
|
|
|
|
|
t, i: integer;
|
|
|
|
|
begin
|
|
|
|
|
t := NumXForms(cp);
|
|
|
|
|
{ /* First determine the excess. */ }
|
|
|
|
|
total := 0.0;
|
|
|
|
|
othertotals := 0.0;
|
|
|
|
|
for i := 0 to T - 1 do
|
|
|
|
|
if cp.xform[i].density <> 0.0 then
|
|
|
|
|
begin
|
|
|
|
|
total := total + cp.xform[i].density;
|
|
|
|
|
if (i <> SelectedTriangle) then
|
|
|
|
|
othertotals := othertotals + cp.xform[i].density;
|
|
|
|
|
end;
|
|
|
|
|
{ /* Now we need to fix'em */ }
|
2005-09-11 03:03:02 -04:00
|
|
|
|
//z excess := total - 1.0;
|
|
|
|
|
excess := 1.0 - (total - 1.0)/othertotals; // --Z--
|
2005-03-25 03:35:39 -05:00
|
|
|
|
for i := 0 to T - 1 do
|
|
|
|
|
if (i <> SelectedTriangle) and (cp.xform[i].density <> 0) then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
//z cp.xform[i].density := cp.xform[i].density - cp.xform[i].density / othertotals * excess;
|
|
|
|
|
cp.xform[i].density := cp.xform[i].density * excess; // --Z--
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
*)
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.ShowSelectedInfo;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
t: integer;
|
|
|
|
|
i: integer;
|
|
|
|
|
a, b, c, d, e, f: double;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
v: double;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
strval: string;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
t := SelectedTriangle; // why 't' ?
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if (t >= Transforms) then t := Transforms - 1;
|
|
|
|
|
//if EditForm.cbTransforms.ItemIndex <> t then EditForm.cbTransforms.ItemIndex := t;
|
|
|
|
|
EditForm.cbTransforms.ItemIndex := t;
|
|
|
|
|
//select combobox item
|
|
|
|
|
EditForm.txtAx.text := Format('%.6g', [MainTriangles[t].x[0]]);
|
|
|
|
|
EditForm.txtAy.text := Format('%.6g', [MainTriangles[t].y[0]]);
|
|
|
|
|
EditForm.txtBx.text := Format('%.6g', [MainTriangles[t].x[1]]);
|
|
|
|
|
EditForm.txtBy.text := Format('%.6g', [MainTriangles[t].y[1]]);
|
|
|
|
|
EditForm.txtCx.text := Format('%.6g', [MainTriangles[t].x[2]]);
|
|
|
|
|
EditForm.txtCy.text := Format('%.6g', [MainTriangles[t].y[2]]);
|
|
|
|
|
EditForm.lblTransform.Refresh;
|
|
|
|
|
EditForm.txtAx.Refresh;
|
|
|
|
|
EditForm.txtAy.Refresh;
|
|
|
|
|
EditForm.txtBx.Refresh;
|
|
|
|
|
EditForm.txtBy.Refresh;
|
|
|
|
|
EditForm.txtCx.Refresh;
|
|
|
|
|
EditForm.txtCy.Refresh;
|
|
|
|
|
a := EditForm.cp.xform[t].c[0][0];
|
|
|
|
|
b := EditForm.cp.xform[t].c[1][0];
|
|
|
|
|
c := EditForm.cp.xform[t].c[0][1];
|
|
|
|
|
d := EditForm.cp.xform[t].c[1][1];
|
|
|
|
|
e := EditForm.cp.xform[t].c[2][0];
|
|
|
|
|
f := EditForm.cp.xform[t].c[2][1];
|
|
|
|
|
|
|
|
|
|
EditForm.txtA.text := Format('%.6g', [a]);
|
|
|
|
|
EditForm.txtB.text := Format('%.6g', [b]);
|
|
|
|
|
EditForm.txtC.text := Format('%.6g', [c]);
|
|
|
|
|
EditForm.txtD.text := Format('%.6g', [d]);
|
|
|
|
|
EditForm.txtE.text := Format('%.6g', [e]);
|
|
|
|
|
EditForm.txtF.text := Format('%.6g', [f]);
|
|
|
|
|
|
|
|
|
|
EditForm.txtP.text := Format('%.6g', [EditForm.cp.xform[t].density]);
|
|
|
|
|
EditForm.txtSymmetry.text := Format('%.6g', [EditForm.cp.xform[t].symmetry]);
|
|
|
|
|
EditForm.txtA.Refresh;
|
|
|
|
|
EditForm.txtB.Refresh;
|
|
|
|
|
EditForm.txtC.Refresh;
|
|
|
|
|
EditForm.txtD.Refresh;
|
|
|
|
|
EditForm.txtE.Refresh;
|
|
|
|
|
EditForm.txtF.Refresh;
|
|
|
|
|
EditForm.txtP.Refresh;
|
|
|
|
|
EditForm.pnlXFormColor.Color := ColorValToColor(EditForm.cp.cmap, EditForm.cp.xform[t].color);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
EditForm.txtXFormColor.Text := Format('%1.3f', [cp.xform[t].color]);//FloatToStr(EditForm.cp.xform[t].color);
|
|
|
|
|
EditForm.scrlXFormcolor.Position := Trunc(EditForm.cp.xform[t].color * scrlXFormColor.Max);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-11 06:30:54 -04:00
|
|
|
|
for i := 0 to NRVAR-1 do begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
v:=EditForm.cp.xform[SelectedTriangle].vars[i];
|
|
|
|
|
if v <> VarsCache[i] then
|
|
|
|
|
begin
|
|
|
|
|
VarsCache[i]:=v;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
EditForm.VEVars.Values[VarNames(i)] := Format('%.6g', [v]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 06:30:54 -04:00
|
|
|
|
for i:= 0 to GetNrVariableNames - 1 do begin
|
2005-09-16 06:28:44 -04:00
|
|
|
|
cp.xform[SelectedTriangle].GetVariable(GetVariableNameAt(i), v);
|
|
|
|
|
strval := Format('%.6g', [v]);
|
|
|
|
|
// kinda funny, but it's really helped...
|
|
|
|
|
if vleVariables.Values[GetVariableNameAt(i)] <> strval then
|
|
|
|
|
vleVariables.Values[GetVariableNameAt(i)] := strval;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.Scale(var fx, fy: double; x, y: integer);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
sc: double;
|
|
|
|
|
begin
|
|
|
|
|
sc := 50 * GraphZoom;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
fx := (x - (TriangleView.Width / 2)) / sc + gCenterX;
|
|
|
|
|
fy := -((y - (TriangleView.Height / 2)) / sc - gCentery);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.AutoZoom;
|
|
|
|
|
var
|
|
|
|
|
i, j: integer;
|
|
|
|
|
xminz, yminz, xmaxz, ymaxz: double;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
gxlength, gylength: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
xminz := 0;
|
|
|
|
|
yminz := 0;
|
|
|
|
|
xmaxz := 0;
|
|
|
|
|
ymaxz := 0;
|
|
|
|
|
for i := -1 to Transforms - 1 do
|
|
|
|
|
begin
|
|
|
|
|
for j := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
if MainTriangles[i].x[j] < xminz then xminz := MainTriangles[i].x[j];
|
|
|
|
|
if MainTriangles[i].y[j] < yminz then yminz := MainTriangles[i].y[j];
|
|
|
|
|
if MainTriangles[i].x[j] > xmaxz then xmaxz := MainTriangles[i].x[j];
|
|
|
|
|
if MainTriangles[i].y[j] > ymaxz then ymaxz := MainTriangles[i].y[j];
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
gxlength := xmaxz - xminz;
|
|
|
|
|
gylength := ymaxz - yminz;
|
|
|
|
|
gCenterX := xminz + gxlength / 2;
|
|
|
|
|
gCentery := yminz + gylength / 2;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if gxlength >= gylength then
|
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
GraphZoom := TriangleView.Width / 60 / gxlength;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
GraphZoom := TriangleView.Height / 60 / gylength;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-09-26 08:07:57 -04:00
|
|
|
|
TriangleView.Invalidate;//Refresh;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.UpdateFlameX;
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
for i := 0 to transforms - 1 do
|
|
|
|
|
begin
|
|
|
|
|
// CP_compute(cp1, Triangles[i], Triangles[-1], i);
|
|
|
|
|
solve3(MainTriangles[-1].x[0], MainTriangles[-1].y[0], MainTriangles[i].x[0],
|
|
|
|
|
MainTriangles[-1].x[1], MainTriangles[-1].y[1], MainTriangles[i].x[1],
|
|
|
|
|
MainTriangles[-1].x[2], MainTriangles[-1].y[2], MainTriangles[i].x[2],
|
|
|
|
|
cp.xform[i].c[0][0], cp.xform[i].c[1][0], cp.xform[i].c[2][0]);
|
|
|
|
|
|
|
|
|
|
solve3(MainTriangles[-1].x[0], MainTriangles[-1].y[0], MainTriangles[i].y[0],
|
|
|
|
|
MainTriangles[-1].x[1], MainTriangles[-1].y[1], MainTriangles[i].y[1],
|
|
|
|
|
MainTriangles[-1].x[2], MainTriangles[-1].y[2], MainTriangles[i].y[2],
|
|
|
|
|
cp.xform[i].c[0][1], cp.xform[i].c[1][1], cp.xform[i].c[2][1]);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-29 10:11:29 -04:00
|
|
|
|
cp.GetFromTriangles(MainTriangles, transforms);
|
|
|
|
|
// if not chkPreserve.checked then ComputeWeights(cp, MainTriangles, transforms);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
DrawPreview;
|
|
|
|
|
ShowSelectedInfo;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Refresh;;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.UpdateFlame(DrawMain: boolean);
|
|
|
|
|
begin
|
|
|
|
|
//; MainForm.StopThread;
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
2005-09-29 10:11:29 -04:00
|
|
|
|
cp.GetFromTriangles(MainTriangles, transforms);
|
|
|
|
|
// if not chkPreserve.Checked then ComputeWeights(cp, MainTriangles, transforms);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
DrawPreview;
|
|
|
|
|
ShowSelectedInfo;
|
2005-09-18 02:05:44 -04:00
|
|
|
|
TriangleView.Refresh;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if DrawMain then begin
|
|
|
|
|
MainForm.StopThread;
|
|
|
|
|
MainCp.Copy(cp);
|
|
|
|
|
MainCp.cmap := cmap;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if mnuResetLoc.checked then begin
|
2005-03-25 03:35:39 -05:00
|
|
|
|
MainCp.zoom := 0;
|
|
|
|
|
MainForm.center[0] := cp.center[0];
|
|
|
|
|
MainForm.center[1] := cp.center[1];
|
|
|
|
|
end;
|
|
|
|
|
// if AdjustForm.Visible then AdjustForm.UpdateDisplay;
|
|
|
|
|
if MutateForm.Visible then MutateForm.UpdateDisplay;
|
|
|
|
|
MainForm.RedrawTimer.enabled := true;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.DeleteTriangle(t: integer);
|
|
|
|
|
var
|
|
|
|
|
i, j: integer;
|
|
|
|
|
begin
|
|
|
|
|
if Transforms > 2 then
|
|
|
|
|
{ Can't have less than 2 transofms}
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
if t = (Transforms - 1) then
|
|
|
|
|
{ Last triangle...just reduce number}
|
|
|
|
|
begin
|
|
|
|
|
Transforms := Transforms - 1;
|
|
|
|
|
SelectedTriangle := Transforms - 1;
|
|
|
|
|
cp.xform[transforms].density := 0;
|
|
|
|
|
cbTransforms.Clear;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
for i := t to Transforms - 2 do
|
|
|
|
|
begin
|
|
|
|
|
{ copy higher transforms down }
|
|
|
|
|
MainTriangles[i] := MainTriangles[i + 1];
|
|
|
|
|
cp.xform[i].density := cp.xform[i + 1].density;
|
|
|
|
|
cp.xform[i].color := cp.xform[i + 1].color;
|
|
|
|
|
cp.xform[i].symmetry := cp.xform[i + 1].symmetry;
|
2005-06-19 01:47:55 -04:00
|
|
|
|
for j := 0 to NRVAR - 1 do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.xform[i].vars[j] := cp.xform[i + 1].vars[j];
|
|
|
|
|
end;
|
|
|
|
|
Transforms := Transforms - 1;
|
|
|
|
|
cp.xform[transforms].density := 0;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
cbTransforms.clear;
|
|
|
|
|
for i := 0 to Transforms - 1 do
|
|
|
|
|
cbTransforms.Items.Add(IntToStr(i + 1));
|
|
|
|
|
cbTransforms.ItemIndex := SelectedTriangle;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function InsideTriangle(x, y: double): integer;
|
|
|
|
|
var
|
|
|
|
|
i, j, k: integer;
|
|
|
|
|
inside: boolean;
|
|
|
|
|
begin
|
|
|
|
|
{ is x, y inside a triangle }
|
|
|
|
|
Result := -1;
|
|
|
|
|
inside := False;
|
|
|
|
|
j := 2;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
for k := Transforms - 1 downto 0 do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
for i := 0 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
if (((MainTriangles[k].y[i] <= y) and
|
|
|
|
|
(y < MainTriangles[k].y[j])) or
|
|
|
|
|
((MainTriangles[k].y[j] <= y) and
|
|
|
|
|
(y < MainTriangles[k].y[i]))) and
|
|
|
|
|
(x < (MainTriangles[k].x[j] - MainTriangles[k].x[i]) *
|
|
|
|
|
(y - MainTriangles[k].y[i]) /
|
|
|
|
|
(MainTriangles[k].y[j] - MainTriangles[k].y[i]) +
|
|
|
|
|
MainTriangles[k].x[i]) then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Inside := not Inside;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
j := i
|
|
|
|
|
end;
|
|
|
|
|
if inside then break;
|
|
|
|
|
end;
|
|
|
|
|
if inside then Result := k;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
function TEditForm.GetTriangleColor(n: integer): TColor;
|
|
|
|
|
begin
|
|
|
|
|
if chkUseXFormColor.checked then
|
|
|
|
|
Result := ColorValToColor(MainCp.cmap, cp.xform[n].color)
|
2005-09-16 09:26:45 -04:00
|
|
|
|
else Result := TrgColors[n mod 14];
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewPaint(Sender: TObject);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
const
|
|
|
|
|
foc_ofs = 4;
|
|
|
|
|
foc_size = 32;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
ix, iy, sc: double;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
|
|
|
|
function ToScreen(fx, fy: double): TPoint;
|
|
|
|
|
begin
|
|
|
|
|
Result.x := integer(round(ix + (fx - gCenterX) * sc));
|
|
|
|
|
Result.y := integer(round(iy - (fy - gCenterY) * sc));
|
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
dx, dy: double;
|
|
|
|
|
Width, Height: integer;
|
|
|
|
|
BitMap: TBitMap;
|
|
|
|
|
|
|
|
|
|
procedure LineDxDy;
|
|
|
|
|
var
|
|
|
|
|
k: double;
|
|
|
|
|
begin
|
|
|
|
|
if (dx <> 0) and (dy <> 0) then with Bitmap.Canvas do
|
|
|
|
|
begin
|
|
|
|
|
k := dy / dx;
|
|
|
|
|
if abs(k) < 1 then begin
|
|
|
|
|
MoveTo(0, round(iy - sc*(Pivot.y - ( ix/sc-GCenterX+Pivot.x)*k - GCenterY)));
|
|
|
|
|
LineTo(Width, round(iy - sc*(Pivot.y - (-ix/sc-GCenterX+Pivot.x)*k - GCenterY)));
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
MoveTo(round(ix + sc*(Pivot.x - (-iy/sc-GCenterY+Pivot.y)/k - GCenterX)), 0);
|
|
|
|
|
LineTo(round(ix + sc*(Pivot.x - ( iy/sc-GCenterY+Pivot.y)/k - GCenterX)), Height);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
d, d1: double;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
tx, ty: double;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
ax, ay: integer;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
a, b, c: TPoint;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
gridX1, gridX2, gridY1, gridY2, gi, gstep: double;
|
|
|
|
|
gp: TRoundToRange;
|
|
|
|
|
label DrawCorner;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
assert(SelectedTriangle >= 0);
|
|
|
|
|
assert(TCustomDrawControl(Sender) = TriangleView);
|
|
|
|
|
if SelectedTriangle >= Transforms then SelectedTriangle := Transforms-1;
|
|
|
|
|
|
|
|
|
|
BitMap := TBitMap.Create;
|
|
|
|
|
Width := TriangleView.Width;
|
|
|
|
|
Height := TriangleView.Height;
|
|
|
|
|
Bitmap.Width := Width;
|
|
|
|
|
Bitmap.Height := Height;
|
|
|
|
|
ix := Width / 2;
|
|
|
|
|
iy := Height / 2;
|
|
|
|
|
sc := 50 * GraphZoom;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
try
|
2005-09-15 10:23:32 -04:00
|
|
|
|
with Bitmap.Canvas do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
brush.Color := pnlBackColor.Color;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
FillRect(Rect(0, 0, Width, Height));
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Pen.Style := psSolid;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
Pen.Width := 1;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
|
|
|
|
|
// draw grid
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Pen.Color := GridColor2;
|
|
|
|
|
gridX1:=gCenterX-ix/sc;
|
|
|
|
|
gridX2:=gCenterX+(Width-ix)/sc;
|
|
|
|
|
gridY1:=gCenterY-iy/sc;
|
|
|
|
|
gridY2:=gCenterY+(Height-iy)/sc;
|
|
|
|
|
try // who knows... ;)
|
2005-09-21 09:42:24 -04:00
|
|
|
|
gp:=round(log10(max(Width, Height)/sc))-1;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
gstep:=power(10.0, gp);
|
|
|
|
|
except
|
|
|
|
|
gp:=0;
|
|
|
|
|
gstep:=1.0;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
gi:=RoundTo(gridX1, gp);
|
|
|
|
|
while gi <= gridX2 do
|
|
|
|
|
begin
|
|
|
|
|
ax:=integer(round(ix + (gi - gCenterX)*sc));
|
|
|
|
|
MoveTo(ax, 0);
|
|
|
|
|
LineTo(ax, Height);
|
|
|
|
|
gi:=gi+gstep;
|
|
|
|
|
end;
|
|
|
|
|
gi:=RoundTo(gridY1, gp);
|
|
|
|
|
while gi <= gridY2 do
|
|
|
|
|
begin
|
|
|
|
|
ay:=integer(round(iy - (gi - gCenterY)*sc));
|
|
|
|
|
MoveTo(0, ay);
|
|
|
|
|
LineTo(Width, ay);
|
|
|
|
|
gi:=gi+gstep;
|
|
|
|
|
end;
|
|
|
|
|
// draw axis
|
|
|
|
|
Pen.Color := GridColor1;
|
|
|
|
|
ax := integer(round(ix - gCenterX*sc));
|
|
|
|
|
ay := integer(round(iy + gCentery*sc));
|
|
|
|
|
MoveTo(ax, 0);
|
|
|
|
|
LineTo(ax, Height-1);
|
|
|
|
|
MoveTo(0, ay);
|
|
|
|
|
LineTo(Width-1, ay);
|
|
|
|
|
|
|
|
|
|
{Reference Triangle}
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Pen.Style := psDot;
|
|
|
|
|
Pen.color := pnlReference.Color;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
brush.Color := gridColor1 shr 1 and $7f7f7f;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
a := ToScreen(MainTriangles[-1].x[0], MainTriangles[-1].y[0]);
|
|
|
|
|
b := ToScreen(MainTriangles[-1].x[1], MainTriangles[-1].y[1]);
|
|
|
|
|
c := ToScreen(MainTriangles[-1].x[2], MainTriangles[-1].y[2]);
|
|
|
|
|
Polyline([a, b, c, a]);
|
|
|
|
|
|
2005-09-29 10:11:29 -04:00
|
|
|
|
brush.Color := pnlBackColor.Color;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Font.color := Pen.color;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
TextOut(c.x-9, c.y-12, 'C');
|
|
|
|
|
TextOut(b.x-8, b.y+1, 'B');
|
2005-09-25 12:16:44 -04:00
|
|
|
|
TextOut(a.x+2, a.y+1, 'A');
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
Pen.Style := psSolid;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
{Transforms}
|
|
|
|
|
for i := 0 to Transforms - 1 do
|
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
a := ToScreen(MainTriangles[i].x[0], MainTriangles[i].y[0]);
|
|
|
|
|
b := ToScreen(MainTriangles[i].x[1], MainTriangles[i].y[1]);
|
|
|
|
|
c := ToScreen(MainTriangles[i].x[2], MainTriangles[i].y[2]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
Pen.Color := GetTriangleColor(i);
|
|
|
|
|
if i <> SelectedTriangle then Pen.Style := psDot;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Polyline([a, b, c, a]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Pen.Style := psSolid;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Ellipse(a.x - 4, a.y - 4, a.x + 4, a.y + 4);
|
|
|
|
|
Ellipse(b.x - 4, b.y - 4, b.x + 4, b.y + 4);
|
|
|
|
|
Ellipse(c.x - 4, c.y - 4, c.x + 4, c.y + 4);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Font.color := Pen.color;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
TextOut(c.x+2, c.y+1, 'C');
|
|
|
|
|
TextOut(b.x+2, b.y+1, 'B');
|
|
|
|
|
TextOut(a.x+2, a.y+1, 'A');
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
|
|
|
|
|
if (TriangleCaught or CornerCaught) then // if dragging, draw pivot axis
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
mouseOverTriangle := SelectedTriangle;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if HelpersEnabled then
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
pen.Color := HelpersColor;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
//pen.Color := 0;
|
|
|
|
|
//brush.Color := $808080;
|
|
|
|
|
pen.Mode := pmMerge;
|
|
|
|
|
pen.Style := psSolid;//psDot;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
a := ToScreen(Pivot.x, Pivot.y);
|
|
|
|
|
MoveTo(a.x, 0);
|
|
|
|
|
LineTo(a.x, Height);
|
|
|
|
|
MoveTo(0, a.y);
|
|
|
|
|
LineTo(Width, a.y);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
|
|
|
|
if (editMode = modeRotate) then // draw circle
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if CornerCaught then begin
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[SelectedCorner] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[SelectedCorner] - Pivot.y;
|
|
|
|
|
d := Hypot(dx, dy);
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[0] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[0] - Pivot.y;
|
|
|
|
|
d := Hypot(dx, dy);
|
|
|
|
|
for i := 1 to 2 do
|
|
|
|
|
begin
|
|
|
|
|
d1 := Hypot(tx, ty);
|
|
|
|
|
d1 := dist(Pivot.x, Pivot.y, MainTriangles[SelectedTriangle].x[i], MainTriangles[SelectedTriangle].y[i]);
|
|
|
|
|
if d1 > d then begin
|
|
|
|
|
d := d1;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
d1 := Hypot(dx, dy);
|
|
|
|
|
if (d1 <> d) and (d1 <> 0) then
|
|
|
|
|
begin
|
|
|
|
|
dx := dx/d1 * d;
|
|
|
|
|
dy := dy/d1 * d;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
//i := min( min(Width, Height), integer(round(dmax * sc)));
|
|
|
|
|
i := integer(round(d * sc));
|
|
|
|
|
if i > 4 then begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
pen.Color := HelpersColor;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
brush.Style := bsClear;
|
|
|
|
|
Ellipse(a.x - i, a.y - i, a.x + i, a.y + i);
|
|
|
|
|
|
|
|
|
|
a := ToScreen(Pivot.x - dy, Pivot.y + dx);
|
|
|
|
|
b := ToScreen(Pivot.x + dy, Pivot.y - dx);
|
2005-09-26 08:07:57 -04:00
|
|
|
|
c := ToScreen(Pivot.x, Pivot.y);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
MoveTo(a.x, a.y);
|
2005-09-26 08:07:57 -04:00
|
|
|
|
LineTo(c.X, c.y); // not necessary but it looks better with it...
|
2005-09-25 12:16:44 -04:00
|
|
|
|
LineTo(b.X, b.y);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
// rotated axis
|
2005-10-06 11:51:20 -04:00
|
|
|
|
LineDxDy;
|
|
|
|
|
{
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if (dx <> 0) and (dy <> 0) then
|
|
|
|
|
begin
|
|
|
|
|
k := dy / dx;
|
|
|
|
|
if abs(k) < 1 then begin
|
|
|
|
|
MoveTo(0, round(iy - sc*(Pivot.y - ( ix/sc-GCenterX+Pivot.x)*k - GCenterY)));
|
|
|
|
|
LineTo(Width, round(iy - sc*(Pivot.y - (-ix/sc-GCenterX+Pivot.x)*k - GCenterY)));
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
MoveTo(round(ix + sc*(Pivot.x - (-iy/sc-GCenterY+Pivot.y)/k - GCenterX)), 0);
|
|
|
|
|
LineTo(round(ix + sc*(Pivot.x - ( iy/sc-GCenterY+Pivot.y)/k - GCenterX)), Height);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
}
|
|
|
|
|
end
|
|
|
|
|
else if (editMode = modeScale) then // draw lines
|
|
|
|
|
begin
|
|
|
|
|
if CornerCaught then begin
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[SelectedCorner] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[SelectedCorner] - Pivot.y;
|
|
|
|
|
LineDxDy;
|
|
|
|
|
end
|
|
|
|
|
else begin // hmmm...
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[0] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[0] - Pivot.y;
|
|
|
|
|
LineDxDy;
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[1] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[1] - Pivot.y;
|
|
|
|
|
LineDxDy;
|
|
|
|
|
dx := MainTriangles[SelectedTriangle].x[2] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[SelectedTriangle].y[2] - Pivot.y;
|
|
|
|
|
LineDxDy;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
2005-09-25 12:16:44 -04:00
|
|
|
|
else //if editMode = modeMove then // draw target axis
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Pen.Color := HelpersColor;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
Pen.Mode := pmMerge;//Xor;
|
|
|
|
|
brush.Color := 0;
|
|
|
|
|
if CornerCaught then
|
|
|
|
|
a := ToScreen(MainTriangles[SelectedTriangle].x[SelectedCorner],
|
|
|
|
|
MainTriangles[SelectedTriangle].y[SelectedCorner])
|
|
|
|
|
else
|
|
|
|
|
a := ToScreen(GetPivot.x, GetPivot.y);
|
|
|
|
|
MoveTo(a.x, 0);
|
|
|
|
|
LineTo(a.x, Height);
|
|
|
|
|
MoveTo(0, a.y);
|
|
|
|
|
LineTo(Width, a.y);
|
|
|
|
|
Pen.Mode := pmCopy;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
end; // endif HelpersEnabled
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
if (mouseOverTriangle >= 0) then // highlight triangle under cursor
|
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
a := ToScreen(MainTriangles[mouseOverTriangle].x[0], MainTriangles[mouseOverTriangle].y[0]);
|
|
|
|
|
b := ToScreen(MainTriangles[mouseOverTriangle].x[1], MainTriangles[mouseOverTriangle].y[1]);
|
|
|
|
|
c := ToScreen(MainTriangles[mouseOverTriangle].x[2], MainTriangles[mouseOverTriangle].y[2]);
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
pen.Width:=2;
|
|
|
|
|
Pen.Color:=GetTriangleColor(mouseOverTriangle) shr 1 and $7f7f7f;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Pen.Mode:=pmMerge;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
brush.Color:=Pen.Color shr 1 and $7f7f7f;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
|
|
|
|
if SelectMode or (mouseOverTriangle = SelectedTriangle) then
|
|
|
|
|
Polygon([a, b, c])
|
|
|
|
|
else
|
|
|
|
|
PolyLine([a, b, c, a]);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
pen.width:=4;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Ellipse(a.x - 3, a.y - 3, a.x + 3, a.y + 3);
|
|
|
|
|
Ellipse(b.x - 3, b.y - 3, b.x + 3, b.y + 3);
|
|
|
|
|
Ellipse(c.x - 3, c.y - 3, c.x + 3, c.y + 3);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
pen.width:=1;
|
|
|
|
|
pen.mode:=pmCopy;
|
2005-09-18 02:05:44 -04:00
|
|
|
|
|
|
|
|
|
if not (CornerCaught or TriangleCaught) then // show used variations
|
|
|
|
|
begin
|
|
|
|
|
font.Color := GetTriangleColor(mouseOverTriangle);
|
|
|
|
|
brush.Style := bsClear;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
ay := Height-foc_ofs*2 + font.Height; // font.height < 0
|
2005-09-18 02:05:44 -04:00
|
|
|
|
for i:= NRVAR - 1 downto 0 do
|
|
|
|
|
if cp.xform[mouseOverTriangle].vars[i] <> 0 then
|
|
|
|
|
begin
|
2005-09-25 12:16:44 -04:00
|
|
|
|
ax := Width-foc_ofs*2 - TextWidth(Varnames(i));
|
2005-09-18 02:05:44 -04:00
|
|
|
|
TextOut(ax, ay, Varnames(i));
|
|
|
|
|
Inc(ay, font.Height);
|
|
|
|
|
end;
|
|
|
|
|
// brush.Style := bsSolid;
|
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
pen.color := clWhite;
|
|
|
|
|
if CornerCaught then // draw selected corner
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
brush.Color:=clSilver;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a := ToScreen(MainTriangles[SelectedTriangle].x[SelectedCorner], MainTriangles[SelectedTriangle].y[SelectedCorner]);
|
|
|
|
|
Ellipse(a.x - 4, a.y - 4, a.x + 4, a.y + 4);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
|
|
|
|
else if (mouseOverTriangle>=0) and (mouseOverCorner >= 0) then // highlight corner under cursor
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
brush.Color:=clSilver;
|
|
|
|
|
{
|
|
|
|
|
case mouseOverCorner of
|
|
|
|
|
0: brush.Color:=clRed;
|
|
|
|
|
2: brush.Color:=clGreen;
|
|
|
|
|
else brush.Color:=clYellow;
|
|
|
|
|
end;
|
|
|
|
|
}
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a := ToScreen(MainTriangles[mouseOverTriangle].x[mouseOverCorner], MainTriangles[mouseOverTriangle].y[mouseOverCorner]);
|
|
|
|
|
Ellipse(a.x - 4, a.y - 4, a.x + 4, a.y + 4);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
|
|
|
|
// hmm... TODO: optimize
|
|
|
|
|
if HelpersEnabled then begin
|
|
|
|
|
pen.Color := HelpersColor;
|
|
|
|
|
pen.Mode := pmMerge;
|
|
|
|
|
pen.Style := psDot;
|
|
|
|
|
brush.Style := bsClear;
|
|
|
|
|
if (editMode = modeRotate) then
|
|
|
|
|
begin
|
|
|
|
|
i := integer(round(olddist * sc));
|
|
|
|
|
if i > 4 then begin
|
|
|
|
|
a := ToScreen(pivot.x, pivot.y);
|
|
|
|
|
Ellipse(a.x - i, a.y - i, a.x + i, a.y + i);
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else if editMode = modeScale then
|
|
|
|
|
begin
|
|
|
|
|
dx := MainTriangles[mouseOverTriangle].x[mouseOverCorner] - Pivot.x;
|
|
|
|
|
dy := MainTriangles[mouseOverTriangle].y[mouseOverCorner] - Pivot.y;
|
|
|
|
|
LineDxDy;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
// draw pivot point
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a := ToScreen(GetPivot.x, GetPivot.y);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Pen.Style := psSolid;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
pen.Color := clWhite;
|
|
|
|
|
brush.Color := clSilver;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
Ellipse(a.x - 2, a.y - 2, a.x + 2, a.y + 2);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
|
|
|
|
|
if TWinControl(Sender).Focused then
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
pen.Color := HelpersColor;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
pen.Mode := pmXor;
|
|
|
|
|
MoveTo(foc_ofs, foc_size);
|
|
|
|
|
LineTo(foc_ofs, foc_ofs);
|
|
|
|
|
LineTo(foc_size, foc_ofs);
|
|
|
|
|
MoveTo(Width-1-foc_ofs, foc_size);
|
|
|
|
|
LineTo(Width-1-foc_ofs, foc_ofs);
|
|
|
|
|
LineTo(Width-1-foc_size, foc_ofs);
|
|
|
|
|
MoveTo(Width-1-foc_ofs, Height-1-foc_size);
|
|
|
|
|
LineTo(Width-1-foc_ofs, Height-1-foc_ofs);
|
|
|
|
|
LineTo(Width-1-foc_size, Height-1-foc_ofs);
|
|
|
|
|
MoveTo(foc_ofs, Height-1-foc_size);
|
|
|
|
|
LineTo(foc_ofs, Height-1-foc_ofs);
|
|
|
|
|
LineTo(foc_size, Height-1-foc_ofs);
|
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Canvas.Draw(0, 0, Bitmap);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
finally
|
2005-09-15 10:23:32 -04:00
|
|
|
|
BitMap.Free;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.FormCreate(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Screen.Cursors[crEditArrow] := LoadCursor(HInstance, 'ARROW_WHITE');
|
|
|
|
|
Screen.Cursors[crEditMove] := LoadCursor(HInstance, 'MOVE_WB');
|
|
|
|
|
Screen.Cursors[crEditRotate] := LoadCursor(HInstance, 'ROTATE_WB');
|
|
|
|
|
Screen.Cursors[crEditScale] := LoadCursor(HInstance, 'SCALE_WB');
|
2005-09-26 08:07:57 -04:00
|
|
|
|
|
|
|
|
|
// Custom control setup
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView := TCustomDrawControl.Create(self);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
TriangleView.TabStop := True;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.TabOrder := 0;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
TriangleView.Parent := GrphPnl;
|
|
|
|
|
TriangleView.Align := alClient;
|
|
|
|
|
TriangleView.Visible := True;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
|
|
|
|
TriangleView.OnPaint := TriangleViewPaint;
|
|
|
|
|
|
|
|
|
|
TriangleView.OnDblClick := TriangleViewDblClick;
|
|
|
|
|
TriangleView.OnMouseDown := TriangleViewMouseDown;
|
|
|
|
|
TriangleView.OnMouseMove := TriangleViewMouseMove;
|
|
|
|
|
TriangleView.OnMouseUp := TriangleViewMouseUp;
|
|
|
|
|
TriangleView.OnMouseWheel := TriangleViewMouseWheel;
|
|
|
|
|
TriangleView.OnKeyDown := TriangleViewKeyDown;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
TriangleView.OnKeyUp := TriangleViewKeyUp;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
TriangleView.OnEnter := rgPivotClicked; // hack: it's only Invalidate() in there :)
|
|
|
|
|
TriangleView.OnExit := TriangleViewExit;
|
|
|
|
|
TriangleView.OnMouseLeave := TriangleViewmouseLeave;
|
2005-09-11 12:03:15 -04:00
|
|
|
|
//
|
2005-09-11 06:30:54 -04:00
|
|
|
|
|
|
|
|
|
for i:= 0 to NRVAR - 1 do begin
|
|
|
|
|
VEVars.InsertRow(Varnames(i), '0', True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
for i:= 0 to GetNrVariableNames - 1 do begin
|
|
|
|
|
vleVariables.InsertRow(GetVariableNameAt(i), '0', True);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
GraphZoom := 1;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
case EditPrevQual of
|
|
|
|
|
0: begin
|
|
|
|
|
mnuLowQuality.Checked := true;
|
|
|
|
|
PreviewDensity := prevLowQuality;
|
|
|
|
|
end;
|
|
|
|
|
1: begin
|
|
|
|
|
mnuMediumQuality.Checked := true;
|
|
|
|
|
PreviewDensity := prevMediumQuality;
|
|
|
|
|
end;
|
|
|
|
|
2: begin
|
|
|
|
|
mnuHighQuality.Checked := true;
|
|
|
|
|
PreviewDensity := prevHighQuality;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
cp := TControlPoint.Create;
|
|
|
|
|
Render := TRenderer.Create;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
SelectMode := true;
|
|
|
|
|
editMode := modeMove;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
|
|
|
|
CornerCaught := False;
|
|
|
|
|
TriangleCaught := False;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
mouseOverTriangle := -1;
|
|
|
|
|
mouseOverCorner := -1;
|
|
|
|
|
|
2005-09-11 06:30:54 -04:00
|
|
|
|
for i := 0 to NRVAR-1 do
|
|
|
|
|
VarsCache[i] := MinDouble;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewMouseMove(Sender: TObject; Shift: TShiftState;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
X, Y: integer);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
vx, vy, fx, fy: double;
|
2005-09-18 09:26:14 -04:00
|
|
|
|
mt, mc: integer;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a, t: double;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
i, j: integer;
|
|
|
|
|
d: double;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
|
|
|
|
i0, i1: integer;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
label FoundCorner, Skip1, Skip2;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Scale(fx, fy, x, y);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
StatusBar.Panels[0].Text := Format('X: %f', [fx]);
|
|
|
|
|
StatusBar.Panels[1].Text := Format('Y: %f', [fy]);
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if viewDragMode then // graph panning
|
|
|
|
|
begin
|
|
|
|
|
viewDragged := true;
|
|
|
|
|
GcenterX := GcenterX - (fx - oldx);
|
|
|
|
|
GcenterY := GcenterY - (fy - oldy);
|
|
|
|
|
TriangleView.Refresh;
|
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
mt:=mouseOverTriangle;
|
|
|
|
|
mc:=MouseOverCorner;
|
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
if not (CornerCaught or TriangleCaught) then // look for a point under cursor
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if SelectMode then
|
|
|
|
|
begin
|
|
|
|
|
i0:=0;
|
|
|
|
|
i1:=Transforms-1;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
i0:=SelectedTriangle;
|
|
|
|
|
i1:=i0;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
for i := i1 downto i0 do
|
2005-09-11 09:28:04 -04:00
|
|
|
|
for j := 0 to 2 do
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-11 09:28:04 -04:00
|
|
|
|
d := dist(fx, fy, MainTriangles[i].x[j], MainTriangles[i].y[j]);
|
|
|
|
|
if (d * GraphZoom * 50) < 4 then
|
|
|
|
|
begin
|
|
|
|
|
mouseOverTriangle:=i;
|
|
|
|
|
mouseOverCorner:=j;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
// -- from MouseDown -- for highlighting:
|
|
|
|
|
// TODO: optimize...
|
|
|
|
|
if j = rgPivot.ItemIndex then
|
|
|
|
|
begin
|
|
|
|
|
Pivot.x := 0;
|
|
|
|
|
Pivot.y := 0;
|
|
|
|
|
|
|
|
|
|
LocalAxisLocked := true;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
Pivot := GetPivot(mouseOverTriangle);
|
|
|
|
|
LocalAxisLocked := false;
|
|
|
|
|
end;
|
|
|
|
|
oldx := MainTriangles[mouseOverTriangle].x[j] - Pivot.X;
|
|
|
|
|
oldy := MainTriangles[mouseOverTriangle].y[j] - Pivot.Y;
|
|
|
|
|
olddist := Hypot(oldx, oldy); //sqrt(oldx*oldx + oldy*oldy);
|
|
|
|
|
// --
|
|
|
|
|
|
2005-09-11 09:28:04 -04:00
|
|
|
|
goto FoundCorner;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
mouseOverCorner:=-1;
|
2005-09-11 09:28:04 -04:00
|
|
|
|
|
|
|
|
|
i := InsideTriangle(fx, fy);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if i >= 0 then mouseOverTriangle:=i
|
|
|
|
|
else mouseOverTriangle:=-2;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
FoundCorner:
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if (mouseOverTriangle >= 0) or (SelectMode = false) or (oldMode <> modeNone) then
|
|
|
|
|
case editMode of
|
|
|
|
|
modeMove:
|
|
|
|
|
TriangleView.Cursor := crEditMove;
|
|
|
|
|
modeRotate:
|
|
|
|
|
TriangleView.Cursor := crEditRotate;
|
|
|
|
|
modeScale:
|
|
|
|
|
TriangleView.Cursor := crEditScale;
|
|
|
|
|
end
|
2005-03-25 03:35:39 -05:00
|
|
|
|
else
|
2005-09-26 08:07:57 -04:00
|
|
|
|
TriangleView.Cursor := crEditArrow; //crDefault;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
Shift := Shift - [ssLeft];
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if CornerCaught then // Modify a point ///////////////////////////////////////
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if (editMode = modeRotate) then // rotate point
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin // rotate point around pivot
|
2005-09-21 09:42:24 -04:00
|
|
|
|
d := dist(Pivot.X, Pivot.Y, fx, fy);
|
|
|
|
|
if d<>0 then begin
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if ssShift in Shift then // angle snap
|
|
|
|
|
begin
|
|
|
|
|
try
|
|
|
|
|
t := StrToFloat(txtTrgRotateValue.Text)/180*PI;
|
|
|
|
|
//assert(t<>0);
|
|
|
|
|
except
|
|
|
|
|
t := 15.0*PI/180.0;
|
|
|
|
|
txtTrgRotateValue.Text := '15';
|
|
|
|
|
end;
|
|
|
|
|
if t = 0 then goto Skip1; //?
|
|
|
|
|
|
|
|
|
|
a := Round(arctan2(fy-Pivot.Y, fx-Pivot.X)/t)*t;
|
|
|
|
|
vx := olddist*cos(a);
|
|
|
|
|
vy := olddist*sin(a);
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
Skip1:
|
|
|
|
|
vx := (fx-Pivot.X)*olddist/d;
|
|
|
|
|
vy := (fy-Pivot.Y)*olddist/d;
|
|
|
|
|
a := arctan2(vy,vx) - arctan2(oldy,oldx);
|
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
|
|
|
|
if LocalAxisLocked then with MainTriangles[SelectedTriangle] do
|
|
|
|
|
begin
|
|
|
|
|
assert(SelectedCorner = 1);
|
|
|
|
|
x[0] := x[0] + vx-x[1];
|
|
|
|
|
y[0] := y[0] + vy-y[1];
|
|
|
|
|
x[2] := x[2] + vx-x[1];
|
|
|
|
|
y[2] := y[2] + vy-y[1];
|
|
|
|
|
end;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
MainTriangles[SelectedTriangle].x[SelectedCorner] := Pivot.X+vx;
|
|
|
|
|
MainTriangles[SelectedTriangle].y[SelectedCorner] := Pivot.Y+vy;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
2005-09-25 12:16:44 -04:00
|
|
|
|
else a := 0;
|
|
|
|
|
vy := abs(
|
|
|
|
|
arctan2(MainTriangles[SelectedTriangle].y[0]-MainTriangles[SelectedTriangle].y[1],
|
|
|
|
|
MainTriangles[SelectedTriangle].x[0]-MainTriangles[SelectedTriangle].x[1])
|
|
|
|
|
-arctan2(MainTriangles[SelectedTriangle].y[2]-MainTriangles[SelectedTriangle].y[1],
|
|
|
|
|
MainTriangles[SelectedTriangle].x[2]-MainTriangles[SelectedTriangle].x[1])
|
|
|
|
|
);
|
|
|
|
|
if vy > PI then vy := 2*PI - vy;
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Rotate: %3.2f<EFBFBD> <ABC: %3.2f<EFBFBD>', [a*180/PI, vy*180/PI]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
2005-09-21 09:42:24 -04:00
|
|
|
|
else if (editMode = modeScale) then
|
2005-09-25 12:16:44 -04:00
|
|
|
|
begin // move point along vector ("scale")
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if olddist<>0 then begin
|
|
|
|
|
vy := (oldx*(fx-Pivot.X) + oldy*(fy-Pivot.Y))/(olddist*olddist);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
|
|
|
|
if LocalAxisLocked then with MainTriangles[SelectedTriangle] do
|
|
|
|
|
begin
|
|
|
|
|
assert(SelectedCorner = 1);
|
|
|
|
|
x[0] := x[0] + oldx*vy-x[1];
|
|
|
|
|
y[0] := y[0] + oldy*vy-y[1];
|
|
|
|
|
x[2] := x[2] + oldx*vy-x[1];
|
|
|
|
|
y[2] := y[2] + oldy*vy-y[1];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
MainTriangles[SelectedTriangle].x[SelectedCorner] := Pivot.X + oldx*vy;
|
|
|
|
|
MainTriangles[SelectedTriangle].y[SelectedCorner] := Pivot.Y + oldy*vy;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
StatusBar.Panels[2].Text := Format('Scale: %3.2f%%', [vy*100]);
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
MainTriangles[SelectedTriangle].x[SelectedCorner] := Pivot.X;
|
|
|
|
|
MainTriangles[SelectedTriangle].y[SelectedCorner] := Pivot.Y;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else begin // snap/move
|
2005-09-28 11:40:33 -04:00
|
|
|
|
if ssShift in Shift then // snap to axis
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
|
|
|
|
if abs(fx-Pivot.X) > abs(fy-Pivot.Y) then begin
|
2005-09-18 09:26:14 -04:00
|
|
|
|
vx := fx;
|
|
|
|
|
vy := Pivot.Y;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
|
|
|
|
else begin
|
2005-09-18 09:26:14 -04:00
|
|
|
|
vx := Pivot.x;
|
|
|
|
|
vy := fy;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else begin // just move
|
2005-09-18 09:26:14 -04:00
|
|
|
|
vx := fx;
|
|
|
|
|
vy := fy;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-09-18 09:26:14 -04:00
|
|
|
|
MainTriangles[SelectedTriangle].x[SelectedCorner] := vx;
|
|
|
|
|
MainTriangles[SelectedTriangle].y[SelectedCorner] := vy;
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Move: %3.3f ; %3.3f', [vx-(Pivot.X+oldx), vy-(Pivot.Y+oldy)]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
// --
|
2005-03-25 03:35:39 -05:00
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlameX;
|
|
|
|
|
// UpdateFlame(False);
|
2005-09-11 09:28:04 -04:00
|
|
|
|
StatusBar.Refresh;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
exit;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end
|
2005-09-25 12:16:44 -04:00
|
|
|
|
else if TriangleCaught then // Modify a whole triangle ///////////////////////
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if (editMode = modeRotate) then // rotate triangle
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a := arctan2(fy-Pivot.Y, fx-Pivot.X) - arctan2(oldy, oldx);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if ssShift in Shift then // angle snap
|
2005-09-21 09:42:24 -04:00
|
|
|
|
begin
|
|
|
|
|
try
|
|
|
|
|
t := StrToFloat(txtTrgRotateValue.Text)/180*PI;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
//assert(t<>0);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
except
|
|
|
|
|
t := 15.0*PI/180.0;
|
|
|
|
|
txtTrgRotateValue.Text := '15';
|
|
|
|
|
end;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
if t = 0 then goto Skip2;
|
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
a := Round(a/t)*t
|
|
|
|
|
end;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
Skip2:
|
2005-09-11 03:03:02 -04:00
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
2005-10-06 11:51:20 -04:00
|
|
|
|
RotateTrianglePoint(OldTriangle, Pivot.X, Pivot.Y, a);
|
2005-09-25 12:16:44 -04:00
|
|
|
|
|
|
|
|
|
vx := MainTriangles[SelectedTriangle].x[0]-MainTriangles[SelectedTriangle].x[1];
|
|
|
|
|
vy := MainTriangles[SelectedTriangle].y[0]-MainTriangles[SelectedTriangle].y[1];
|
|
|
|
|
if abs(vx*(MainTriangles[SelectedTriangle].x[2]-MainTriangles[SelectedTriangle].x[1])+
|
|
|
|
|
vy*(MainTriangles[SelectedTriangle].y[2]-MainTriangles[SelectedTriangle].y[1])) < 0.001
|
|
|
|
|
then
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Rotate: %3.2f<EFBFBD> Local axis: %3.2f<EFBFBD>', [a*180/PI, arctan2(vy, vx)*180/PI])
|
|
|
|
|
else StatusBar.Panels[2].Text := Format('Rotate: %3.2f<EFBFBD>', [a*180/PI]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
2005-09-21 09:42:24 -04:00
|
|
|
|
else if (editMode = modeScale) then // scale
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if olddist<>0 then begin
|
|
|
|
|
vy := (oldx*(fx-Pivot.X) + oldy*(fy-Pivot.Y))/(olddist*olddist);
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
ScaleTrianglePoint(OldTriangle, Pivot.X, Pivot.Y, vy);
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Scale: %3.2f%%', [vy*100]);
|
|
|
|
|
end
|
|
|
|
|
else MainTriangles[SelectedTriangle] := OldTriangle;
|
|
|
|
|
end
|
|
|
|
|
else begin // snap/move
|
|
|
|
|
vx := fx - (Pivot.x + oldx);
|
|
|
|
|
vy := fy - (Pivot.y + oldy);
|
2005-09-28 11:40:33 -04:00
|
|
|
|
if ssShift in Shift then // snap to axis
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
|
|
|
|
if abs(vx) > abs(vy) then vy := 0
|
|
|
|
|
else vx := 0;
|
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
with MainTriangles[SelectedTriangle] do
|
|
|
|
|
begin
|
|
|
|
|
x[0] := OldTriangle.x[0] + vx;
|
|
|
|
|
y[0] := OldTriangle.y[0] + vy;
|
|
|
|
|
x[1] := OldTriangle.x[1] + vx;
|
|
|
|
|
y[1] := OldTriangle.y[1] + vy;
|
|
|
|
|
x[2] := OldTriangle.x[2] + vx;
|
|
|
|
|
y[2] := OldTriangle.y[2] + vy;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
StatusBar.Panels[2].Text := Format('Move: %3.3f ; %3.3f', [vx, vy]);
|
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlameX;
|
|
|
|
|
// UpdateFlame(False);
|
2005-09-11 09:28:04 -04:00
|
|
|
|
StatusBar.Refresh;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
exit;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if ((mt <> mouseOverTriangle) or (mc <> MouseOverCorner)) then
|
|
|
|
|
begin
|
|
|
|
|
if (mouseOverTriangle >= 0) then
|
|
|
|
|
StatusBar.Panels[2].Text := Format('Transform #%d', [mouseOverTriangle+1])
|
|
|
|
|
else StatusBar.Panels[2].Text := '';
|
2005-09-28 11:40:33 -04:00
|
|
|
|
TriangleView.Refresh;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewMouseDown(Sender: TObject; Button: TMouseButton;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Shift: TShiftState; X, Y: integer);
|
|
|
|
|
var
|
|
|
|
|
d, fx, fy: double;
|
|
|
|
|
i, j: integer;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
i0, i1: integer;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TWinControl(Sender).SetFocus;
|
|
|
|
|
|
|
|
|
|
viewDragged := false;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
Scale(fx, fy, x, y);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if Button = mbLeft then
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
Shift := Shift - [ssLeft];
|
|
|
|
|
if SelectMode then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
i0:=0;
|
|
|
|
|
i1:=Transforms-1;
|
|
|
|
|
end
|
|
|
|
|
else begin // Only check selected triangle
|
|
|
|
|
i0:=SelectedTriangle;
|
|
|
|
|
i1:=i0;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
// Find a corner
|
|
|
|
|
for i := i1 downto i0 do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
for j := 0 to 2 do
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
d := dist(fx, fy, MainTriangles[i].x[j], MainTriangles[i].y[j]);
|
|
|
|
|
if (d * GraphZoom * 50) < 4 then
|
|
|
|
|
begin
|
|
|
|
|
SelectedTriangle := i;
|
|
|
|
|
CornerCaught := True;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
SelectedCorner := j;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
// Pivot := GetPivot;
|
|
|
|
|
if j = rgPivot.ItemIndex then // hmm
|
|
|
|
|
begin
|
|
|
|
|
Pivot.x := 0;
|
|
|
|
|
Pivot.y := 0;
|
|
|
|
|
|
|
|
|
|
LocalAxisLocked := true;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
Pivot := GetPivot;
|
|
|
|
|
LocalAxisLocked := false;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
oldx := MainTriangles[SelectedTriangle].x[j] - Pivot.X;
|
|
|
|
|
oldy := MainTriangles[SelectedTriangle].y[j] - Pivot.Y;
|
|
|
|
|
olddist := sqrt(oldx*oldx + oldy*oldy);
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
MainForm.UpdateUndo;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
ShowSelectedInfo;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
exit;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
// so user hasn't selected any corners,
|
|
|
|
|
// let's check for triangles then!
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
if SelectMode then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
i := InsideTriangle(fx, fy);
|
|
|
|
|
if i >= 0 then SelectedTriangle := i
|
2005-03-25 03:35:39 -05:00
|
|
|
|
else
|
2005-10-06 11:51:20 -04:00
|
|
|
|
if (oldMode = modeNone) and not(ssShift in Shift) then exit;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
TriangleCaught := True;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
OldTriangle := MainTriangles[SelectedTriangle];
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
|
|
|
|
|
Pivot := GetPivot;
|
|
|
|
|
oldx := fx-Pivot.X;
|
|
|
|
|
oldy := fy-Pivot.Y;
|
|
|
|
|
olddist := sqrt(oldx*oldx + oldy*oldy);
|
|
|
|
|
|
|
|
|
|
ShowSelectedInfo;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
exit;
|
|
|
|
|
end
|
2005-09-25 12:16:44 -04:00
|
|
|
|
else if (Button = mbRight) and
|
2005-09-21 09:42:24 -04:00
|
|
|
|
not (TriangleCaught or CornerCaught) then // graph panning
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
SetCaptureControl(TriangleView);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Screen.Cursor := crSizeAll;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
viewDragMode := true;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
oldx := fx;
|
|
|
|
|
oldY := fy;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewMouseUp(Sender: TObject; Button: TMouseButton;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Shift: TShiftState; X, Y: integer);
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if Button = mbLeft then
|
|
|
|
|
begin
|
|
|
|
|
CornerCaught := False;
|
|
|
|
|
TriangleCaught := False;
|
|
|
|
|
if HasChanged then
|
|
|
|
|
begin
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
HasChanged := False;
|
|
|
|
|
end
|
|
|
|
|
else TriangleView.Invalidate;
|
|
|
|
|
end
|
2005-09-25 12:16:44 -04:00
|
|
|
|
else if (Button = mbRight) and viewDragMode then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
viewDragMode := false;
|
|
|
|
|
if viewDragged=false then // haven't dragged - popup menu then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
GetCursorPos(mousepos); // hmmm
|
|
|
|
|
EditPopup.Popup(mousepos.x, mousepos.y);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end
|
2005-09-15 10:23:32 -04:00
|
|
|
|
else viewDragged := false;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Screen.Cursor := crDefault;
|
|
|
|
|
SetCaptureControl(nil);
|
|
|
|
|
exit;
|
|
|
|
|
end
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.FormShow(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
Registry: TRegistry;
|
|
|
|
|
begin
|
|
|
|
|
Registry := TRegistry.Create;
|
|
|
|
|
try
|
|
|
|
|
Registry.RootKey := HKEY_CURRENT_USER;
|
|
|
|
|
if Registry.OpenKey('Software\' + APP_NAME + '\Forms\Editor', False) then
|
|
|
|
|
begin
|
|
|
|
|
{ Size and position }
|
|
|
|
|
if Registry.ValueExists('Left') then
|
|
|
|
|
EditForm.Left := Registry.ReadInteger('Left');
|
|
|
|
|
if Registry.ValueExists('Top') then
|
|
|
|
|
EditForm.Top := Registry.ReadInteger('Top');
|
|
|
|
|
if Registry.ValueExists('Width') then
|
|
|
|
|
EditForm.Width := Registry.ReadInteger('Width');
|
|
|
|
|
if Registry.ValueExists('Height') then
|
|
|
|
|
EditForm.Height := Registry.ReadInteger('Height');
|
|
|
|
|
{ Options }
|
|
|
|
|
if Registry.ValueExists('UseTransformColors') then
|
|
|
|
|
begin
|
|
|
|
|
UseTransformColors := Registry.ReadBool('UseTransformColors');
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
UseTransformColors := False;
|
|
|
|
|
end;
|
|
|
|
|
if Registry.ValueExists('UseFlameBackground') then
|
|
|
|
|
begin
|
|
|
|
|
UseFlameBackground := Registry.ReadBool('UseFlameBackground');
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
UseFlameBackground := False;
|
|
|
|
|
end;
|
|
|
|
|
if Registry.ValueExists('BackgroundColor') then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
BackgroundColor := Registry.ReadInteger('BackgroundColor')
|
2005-03-25 03:35:39 -05:00
|
|
|
|
else
|
|
|
|
|
BackgroundColor := integer(clBlack);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if Registry.ValueExists('GridColor1') then
|
|
|
|
|
GridColor1 := Registry.ReadInteger('GridColor1')
|
|
|
|
|
else
|
|
|
|
|
GridColor1 := $444444;
|
|
|
|
|
if Registry.ValueExists('GridColor2') then
|
|
|
|
|
GridColor2 := Registry.ReadInteger('GridColor2')
|
|
|
|
|
else
|
|
|
|
|
GridColor2 := $333333;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
if Registry.ValueExists('HelpersColor') then
|
|
|
|
|
HelpersColor := Registry.ReadInteger('HelpersColor')
|
|
|
|
|
else
|
|
|
|
|
HelpersColor := $808080;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if Registry.ValueExists('ReferenceTriangleColor') then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
ReferenceTriangleColor := Registry.ReadInteger('ReferenceTriangleColor')
|
2005-03-25 03:35:39 -05:00
|
|
|
|
else
|
2005-09-25 12:16:44 -04:00
|
|
|
|
ReferenceTriangleColor := $7f7f7f;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if Registry.ValueExists('ResetLocation') then
|
|
|
|
|
mnuResetLoc.checked := Registry.ReadBool('ResetLocation')
|
|
|
|
|
else mnuResetLoc.checked := true;
|
|
|
|
|
tbResetLoc.Down := mnuResetLoc.checked;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
UseTransformColors := False;
|
|
|
|
|
UseFlameBackground := False;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
BackgroundColor := $000000;
|
|
|
|
|
GridColor1 := $444444;
|
|
|
|
|
GridColor2 := $333333;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
HelpersColor := $808080;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
ReferenceTriangleColor := integer(clGray);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
mnuResetLoc.checked := true;
|
|
|
|
|
tbResetLoc.Down := true;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
Registry.CloseKey;
|
|
|
|
|
finally
|
|
|
|
|
Registry.Free;
|
|
|
|
|
end;
|
|
|
|
|
chkUseXFormColor.checked := UseTransformColors;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
// chkFlameBack.checked := UseFlameBackground;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
pnlBackColor.Color := TColor(BackgroundColor);
|
|
|
|
|
GrphPnl.Color := TColor(BackgroundColor);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
pnlGridColor1.Color := GridColor1;
|
|
|
|
|
pnlGridColor2.Color := GridColor2;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
pnlReference.color := TColor(ReferenceTriangleColor);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
UpdateDisplay;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuDeleteClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
if SelectedTriangle > -1 then DeleteTriangle(SelectedTriangle);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuAddClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
if Transforms < NXFORMS then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
Transforms := Transforms + 1;
|
|
|
|
|
MainTriangles[Transforms - 1] := MainTriangles[-1];
|
|
|
|
|
SelectedTriangle := Transforms - 1;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
// ComputeWeights(cp, MainTriangles, transforms);
|
|
|
|
|
cp.xform[Transforms - 1].density := 0.5;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.xform[Transforms - 1].vars[0] := 1;
|
2005-06-19 01:47:55 -04:00
|
|
|
|
for i := 1 to NRVAR - 1 do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.xform[Transforms - 1].vars[i] := 0;
|
|
|
|
|
cbTransforms.clear;
|
|
|
|
|
for i := 0 to Transforms - 1 do
|
|
|
|
|
cbTransforms.Items.Add(IntToStr(i + 1));
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuDupClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
if Transforms < NXFORMS then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
Transforms := Transforms + 1;
|
|
|
|
|
MainTriangles[Transforms - 1] := MainTriangles[SelectedTriangle];
|
2005-09-29 10:11:29 -04:00
|
|
|
|
// ComputeWeights(cp, MainTriangles, transforms);
|
|
|
|
|
cp.xform[Transforms - 1].density := cp.xform[SelectedTriangle].density;
|
2005-06-19 01:47:55 -04:00
|
|
|
|
for i := 0 to NRVAR - 1 do
|
2005-03-25 03:35:39 -05:00
|
|
|
|
cp.xform[Transforms - 1].vars[i] := cp.xform[SelectedTriangle].vars[i];
|
|
|
|
|
SelectedTriangle := Transforms - 1;
|
|
|
|
|
cbTransforms.clear;
|
|
|
|
|
for i := 0 to Transforms - 1 do
|
|
|
|
|
cbTransforms.Items.Add(IntToStr(i + 1));
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure TEditForm.mnuAutoZoomClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AutoZoom;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btnCloseClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
EditForm.Close;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.FormResize(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
AutoZoom;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.CornerEditExit(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
OldText: string;
|
|
|
|
|
Val: string;
|
|
|
|
|
begin
|
|
|
|
|
Allow := True;
|
|
|
|
|
if Sender = txtAx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[0]])
|
|
|
|
|
else if Sender = txtAy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[0]])
|
|
|
|
|
else if Sender = txtBx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[1]])
|
|
|
|
|
else if Sender = txtBy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[1]])
|
|
|
|
|
else if Sender = txtCx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[2]])
|
|
|
|
|
else if Sender = txtCy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[2]])
|
|
|
|
|
else if Sender = txtP then ;
|
|
|
|
|
val := Format('%.6f', [cp.xform[SelectedTriangle].density]);
|
|
|
|
|
OldText := Val;
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := OldText;
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
if (val <> TEdit(Sender).Text) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
if Sender = txtAx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[0] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtAy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[0] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtBx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[1] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtBy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[1] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtCx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[2] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtCy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[2] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtP then
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[SelectedTriangle].density := StrToFloat(TEdit(Sender).Text);
|
2005-09-29 10:11:29 -04:00
|
|
|
|
//ReadjustWeights(cp);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [cp.xform[SelectedTriangle].density]);
|
|
|
|
|
end;
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.CornerEditKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
OldText: string;
|
|
|
|
|
Val: string;
|
|
|
|
|
begin
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
Allow := True;
|
|
|
|
|
if Sender = txtAx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[0]])
|
|
|
|
|
else if Sender = txtAy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[0]])
|
|
|
|
|
else if Sender = txtBx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[1]])
|
|
|
|
|
else if Sender = txtBy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[1]])
|
|
|
|
|
else if Sender = txtCx then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].x[2]])
|
|
|
|
|
else if Sender = txtCy then
|
|
|
|
|
Val := Format('%.6f', [MainTriangles[SelectedTriangle].y[2]])
|
|
|
|
|
else if Sender = txtP then ;
|
|
|
|
|
val := Format('%.6f', [cp.xform[SelectedTriangle].density]);
|
|
|
|
|
OldText := Val;
|
|
|
|
|
{ Stop the beep }
|
|
|
|
|
Key := #0;
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := OldText;
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
if (val <> TEdit(Sender).Text) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
if Sender = txtAx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[0] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtAy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[0] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtBx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[1] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtBy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[1] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtCx then
|
|
|
|
|
MainTriangles[SelectedTriangle].x[2] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtCy then
|
|
|
|
|
MainTriangles[SelectedTriangle].y[2] := StrToFloat(TEdit(Sender).Text)
|
|
|
|
|
else if Sender = txtP then
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[SelectedTriangle].density := StrToFloat(TEdit(Sender).Text);
|
2005-09-29 10:11:29 -04:00
|
|
|
|
//ReadjustWeights(cp);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [cp.xform[SelectedTriangle].density]);
|
|
|
|
|
end;
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ ************************* Probability input ******************************** }
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtPKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
{ Stop the beep }
|
|
|
|
|
Key := #0;
|
|
|
|
|
Allow := True;
|
|
|
|
|
OldVal := Round6(cp.xform[SelectedTriangle].density);
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
|
|
|
|
if NewVal < 0 then NewVal := 0;
|
|
|
|
|
if NewVal > 0.99 then NewVal := 0.99;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
if (OldVal <> NewVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].density := NewVal;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
//ReadjustWeights(cp);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtPExit(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
Allow := True;
|
|
|
|
|
OldVal := Round6(cp.xform[SelectedTriangle].density);
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
|
|
|
|
if NewVal < 0 then NewVal := 0;
|
|
|
|
|
if NewVal > 0.99 then NewVal := 0.99;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
if (OldVal <> NewVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].density := NewVal;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
//ReadjustWeights(cp);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
{ **************************************************************************** }
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
|
|
var
|
|
|
|
|
Registry: TRegistry;
|
|
|
|
|
begin
|
|
|
|
|
{ Write position to registry }
|
|
|
|
|
Registry := TRegistry.Create;
|
|
|
|
|
try
|
|
|
|
|
Registry.RootKey := HKEY_CURRENT_USER;
|
|
|
|
|
{ Defaults }
|
|
|
|
|
if Registry.OpenKey('\Software\' + APP_NAME + '\Forms\Editor', True) then
|
|
|
|
|
begin
|
|
|
|
|
{ Options }
|
|
|
|
|
Registry.WriteBool('UseTransformColors', UseTransformColors);
|
|
|
|
|
Registry.WriteBool('UseFlameBackground', UseFlameBackground);
|
|
|
|
|
Registry.WriteInteger('BackgroundColor', BackgroundColor);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Registry.WriteInteger('GridColor1', GridColor1);
|
|
|
|
|
Registry.WriteInteger('GridColor2', GridColor2);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Registry.WriteInteger('HelpersColor', HelpersColor);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Registry.WriteInteger('ReferenceTriangleColor', ReferenceTriangleColor);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Registry.WriteBool('ResetLocation', mnuResetLoc.checked);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
{ Size and position }
|
|
|
|
|
if EditForm.WindowState <> wsMaximized then begin
|
|
|
|
|
Registry.WriteInteger('Top', EditForm.Top);
|
|
|
|
|
Registry.WriteInteger('Left', EditForm.Left);
|
|
|
|
|
Registry.WriteInteger('Width', EditForm.Width);
|
|
|
|
|
Registry.WriteInteger('Height', EditForm.Height);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
finally
|
|
|
|
|
Registry.Free;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuUndoClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.Undo;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuRedoClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.Redo;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.FormDestroy(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
cp.free;
|
|
|
|
|
Render.free;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuLowQualityClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
mnuLowQuality.Checked := True;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
tbLowQ.Down := true;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
PreviewDensity := prevLowQuality;
|
|
|
|
|
EditPrevQual := 0;
|
|
|
|
|
DrawPreview;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuHighQualityClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
mnuHighQuality.Checked := True;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
tbHiQ.Down := true;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
PreviewDensity := prevHighQuality;
|
|
|
|
|
EditPrevQual := 2;
|
|
|
|
|
DrawPreview;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuMediumQualityClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
mnuMediumQuality.Checked := True;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
tbMedQ.Down := true;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
PreviewDensity := prevMediumQuality;
|
|
|
|
|
EditPrevQual := 1;
|
|
|
|
|
DrawPreview;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.mnuResetLocClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
reset: boolean;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
reset:= not mnuResetLoc.Checked;
|
|
|
|
|
mnuResetLoc.Checked := reset;
|
|
|
|
|
tbResetLoc.Down := reset;
|
|
|
|
|
if reset then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
cp.width := MainCp.width;
|
|
|
|
|
cp.height := MainCp.height;
|
|
|
|
|
cp.pixels_per_unit := MainCp.pixels_per_unit;
|
|
|
|
|
AdjustScale(cp, PreviewImage.width, PreviewImage.Height);
|
|
|
|
|
cp.zoom := MainCp.zoom;
|
|
|
|
|
cp.center[0] := MainCp.center[0];
|
|
|
|
|
cp.center[1] := MainCp.center[1];
|
|
|
|
|
end;
|
|
|
|
|
DrawPreview;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuVerticalFlipAllClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
for i := -1 to Transforms - 1 do
|
|
|
|
|
begin
|
|
|
|
|
MainTriangles[i] := FlipTriangleVertical(MainTriangles[i]);
|
|
|
|
|
end;
|
|
|
|
|
AutoZoom;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuHorizintalFlipAllClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
for i := -1 to Transforms - 1 do
|
|
|
|
|
begin
|
|
|
|
|
MainTriangles[i] := FlipTriangleHorizontal(MainTriangles[i]);
|
|
|
|
|
end;
|
|
|
|
|
AutoZoom;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuFlipVerticalClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
var
|
|
|
|
|
p: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
with MainTriangles[SelectedTriangle] do // --Z--
|
|
|
|
|
begin
|
|
|
|
|
p := GetPivot.y * 2;
|
|
|
|
|
y[0] := p - y[0];
|
|
|
|
|
y[1] := p - y[1];
|
|
|
|
|
y[2] := p - y[2];
|
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
AutoZoom;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuFlipHorizontalClick(Sender: TObject);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
var
|
|
|
|
|
p: double;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
with MainTriangles[SelectedTriangle] do // --Z--
|
|
|
|
|
begin
|
|
|
|
|
p := GetPivot.x * 2;
|
|
|
|
|
x[0] := p - x[0];
|
|
|
|
|
x[1] := p - x[1];
|
|
|
|
|
x[2] := p - x[2];
|
|
|
|
|
end;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
AutoZoom;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewDblClick(Sender: TObject);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
AutoZoom;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.cbTransformsChange(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
if SelectedTriangle <> cbTransforms.ItemIndex then SelectedTriangle := cbTransforms.ItemIndex;
|
|
|
|
|
ShowSelectedInfo;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.cbTransformsDrawItem(Control: TWinControl;
|
|
|
|
|
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
|
|
|
|
var
|
|
|
|
|
h: integer;
|
|
|
|
|
ax,ay,bx,by: integer;
|
|
|
|
|
TrgColor: TColor;
|
|
|
|
|
begin
|
|
|
|
|
TrgColor := GetTriangleColor(Index);
|
|
|
|
|
with cbTransforms.Canvas do
|
|
|
|
|
begin
|
|
|
|
|
h := Rect.Bottom - Rect.Top;
|
|
|
|
|
|
|
|
|
|
brush.Color:=clBlack;
|
|
|
|
|
FillRect(Rect);
|
|
|
|
|
|
|
|
|
|
Font.Color := clWhite;
|
2005-09-18 09:26:14 -04:00
|
|
|
|
TextOut(Rect.Left+h+2, Rect.Top, IntToStr(Index+1));
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
pen.Color := TrgColor;
|
|
|
|
|
brush.Color := pen.Color shr 1 and $7f7f7f;
|
|
|
|
|
|
|
|
|
|
ax:=Rect.Left+h-2;
|
|
|
|
|
ay:=Rect.Top+1;
|
|
|
|
|
bx:=Rect.Left+2;
|
|
|
|
|
by:=Rect.Bottom-3;
|
|
|
|
|
Polygon([Point(ax, ay), Point(ax, by), Point(bx, by)]);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure TEditForm.CoefKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
i: integer;
|
|
|
|
|
OldVal, NewVal: double;
|
|
|
|
|
begin
|
|
|
|
|
i := 0; OldVal := 0;
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
key := #0;
|
|
|
|
|
Allow := True;
|
|
|
|
|
if Sender = txtA then
|
|
|
|
|
i := 0
|
|
|
|
|
else if Sender = txtB then
|
|
|
|
|
i := 1
|
|
|
|
|
else if Sender = txtC then
|
|
|
|
|
i := 2
|
|
|
|
|
else if Sender = txtD then
|
|
|
|
|
i := 3
|
|
|
|
|
else if Sender = txtE then
|
|
|
|
|
i := 4
|
|
|
|
|
else if Sender = txtF then
|
|
|
|
|
i := 5;
|
|
|
|
|
case i of
|
|
|
|
|
0: OldVal := Round6(cp.xform[SelectedTriangle].c[0][0]); //a
|
|
|
|
|
1: OldVal := Round6(cp.xform[SelectedTriangle].c[1][0]); //b
|
|
|
|
|
2: OldVal := Round6(cp.xform[SelectedTriangle].c[0][1]); //c
|
|
|
|
|
3: OldVal := Round6(cp.xform[SelectedTriangle].c[1][1]); //d
|
|
|
|
|
4: OldVal := Round6(cp.xform[SelectedTriangle].c[2][0]); //e
|
|
|
|
|
5: OldVal := Round6(cp.xform[SelectedTriangle].c[2][1]); //f
|
|
|
|
|
end;
|
|
|
|
|
// OldText := Val;
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
if (NewVal <> OldVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
case i of
|
|
|
|
|
0: cp.xform[SelectedTriangle].c[0][0] := NewVal; //a
|
|
|
|
|
1: cp.xform[SelectedTriangle].c[1][0] := NewVal; //b
|
|
|
|
|
2: cp.xform[SelectedTriangle].c[0][1] := NewVal; //c
|
|
|
|
|
3: cp.xform[SelectedTriangle].c[1][1] := NewVal; //d
|
|
|
|
|
4: cp.xform[SelectedTriangle].c[2][0] := NewVal; //e
|
|
|
|
|
5: cp.xform[SelectedTriangle].c[2][1] := NewVal; //f
|
|
|
|
|
end;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
cp.TrianglesFromCP(MainTriangles);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.CoefExit(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
i: integer;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
i := 0; OldVal := 0;
|
|
|
|
|
Allow := True;
|
|
|
|
|
if Sender = txtA then
|
|
|
|
|
i := 0
|
|
|
|
|
else if Sender = txtB then
|
|
|
|
|
i := 1
|
|
|
|
|
else if Sender = txtC then
|
|
|
|
|
i := 2
|
|
|
|
|
else if Sender = txtD then
|
|
|
|
|
i := 3
|
|
|
|
|
else if Sender = txtE then
|
|
|
|
|
i := 4
|
|
|
|
|
else if Sender = txtF then
|
|
|
|
|
i := 5;
|
|
|
|
|
case i of
|
|
|
|
|
0: OldVal := Round6(cp.xform[SelectedTriangle].c[0][0]); //a
|
|
|
|
|
1: OldVal := Round6(cp.xform[SelectedTriangle].c[1][0]); //b
|
|
|
|
|
2: OldVal := Round6(cp.xform[SelectedTriangle].c[0][1]); //c
|
|
|
|
|
3: OldVal := Round6(cp.xform[SelectedTriangle].c[1][1]); //d
|
|
|
|
|
4: OldVal := Round6(cp.xform[SelectedTriangle].c[2][0]); //e
|
|
|
|
|
5: OldVal := Round6(cp.xform[SelectedTriangle].c[2][1]); //f
|
|
|
|
|
end;
|
|
|
|
|
// OldText := Val;
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
if (NewVal <> OldVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
case i of
|
|
|
|
|
0: cp.xform[SelectedTriangle].c[0][0] := NewVal; //a
|
|
|
|
|
1: cp.xform[SelectedTriangle].c[1][0] := NewVal; //b
|
|
|
|
|
2: cp.xform[SelectedTriangle].c[0][1] := NewVal; //c
|
|
|
|
|
3: cp.xform[SelectedTriangle].c[1][1] := NewVal; //d
|
|
|
|
|
4: cp.xform[SelectedTriangle].c[2][0] := NewVal; //e
|
|
|
|
|
5: cp.xform[SelectedTriangle].c[2][1] := NewVal; //f
|
|
|
|
|
end;
|
2005-09-29 10:11:29 -04:00
|
|
|
|
cp.TrianglesFromCP(MainTriangles);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.scrlXFormColorScroll(Sender: TObject;
|
|
|
|
|
ScrollCode: TScrollCode; var ScrollPos: Integer);
|
|
|
|
|
begin
|
|
|
|
|
if ScrollCode = scEndScroll then UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.scrlXFormColorChange(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
cp.xform[SelectedTriangle].color := (scrlXFormColor.Position) / scrlXFormColor.Max;
|
|
|
|
|
txtXFormColor.Text := Format('%1.3f', [cp.xform[SelectedTriangle].color]);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
txtXFormColor.Refresh;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
pnlXFormColor.color := ColorValToColor(MainCp.cmap, cp.xform[SelectedTriangle].color);
|
2005-10-06 11:51:20 -04:00
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
DrawPreview;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.chkUseXFormColorClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
UseTransformColors := chkUseXFormColor.checked;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
procedure TEditForm.chkHelpersClick(Sender: TObject);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
2005-09-25 12:16:44 -04:00
|
|
|
|
HelpersEnabled := chkHelpers.checked;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.pnlBackColorClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AdjustForm.ColorDialog.Color := pnlBackColor.Color;
|
|
|
|
|
if AdjustForm.ColorDialog.Execute then
|
|
|
|
|
begin
|
|
|
|
|
pnlBackColor.Color := AdjustForm.ColorDialog.Color;
|
|
|
|
|
BackgroundColor := Integer(pnlBackColor.color);
|
|
|
|
|
GrphPnl.Color := BackgroundColor;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.pnlReferenceClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AdjustForm.ColorDialog.Color := pnlReference.Color;
|
|
|
|
|
if AdjustForm.ColorDialog.Execute then
|
|
|
|
|
begin
|
|
|
|
|
pnlReference.Color := AdjustForm.ColorDialog.Color;
|
|
|
|
|
ReferenceTriangleColor := Integer(pnlReference.color);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.pnlGridColor1Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AdjustForm.ColorDialog.Color := pnlGridColor1.Color;
|
|
|
|
|
if AdjustForm.ColorDialog.Execute then
|
|
|
|
|
begin
|
|
|
|
|
pnlGridColor1.Color := AdjustForm.ColorDialog.Color;
|
|
|
|
|
GridColor1 := Integer(pnlGridColor1.color);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.pnlGridColor2Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AdjustForm.ColorDialog.Color := pnlGridColor2.Color;
|
|
|
|
|
if AdjustForm.ColorDialog.Execute then
|
|
|
|
|
begin
|
|
|
|
|
pnlGridColor2.Color := AdjustForm.ColorDialog.Color;
|
|
|
|
|
GridColor2 := Integer(pnlGridColor2.color);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
procedure TEditForm.pnlHelpersColorClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
AdjustForm.ColorDialog.Color := pnlHelpersColor.Color;
|
|
|
|
|
if AdjustForm.ColorDialog.Execute then
|
|
|
|
|
begin
|
|
|
|
|
pnlHelpersColor.Color := AdjustForm.ColorDialog.Color;
|
|
|
|
|
HelpersColor := Integer(pnlHelpersColor.color);
|
|
|
|
|
TriangleView.Invalidate;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
procedure TEditForm.txtXFormColorExit(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
v: double;
|
|
|
|
|
begin
|
|
|
|
|
try
|
|
|
|
|
v := StrToFloat(txtXFormColor.Text);
|
|
|
|
|
except on EConvertError do
|
|
|
|
|
begin
|
2005-09-29 10:11:29 -04:00
|
|
|
|
txtXformColor.text := Format('%1.3f', [cp.xform[SelectedTriangle].color]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
if v > 1 then v := 1;
|
|
|
|
|
if v < 0 then v := 0;
|
|
|
|
|
if v <> cp.xform[SelectedTriangle].color then
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
scrlXFormColor.Position := round(v * scrlXFormColor.Max);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtXFormColorKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
var
|
|
|
|
|
v: double;
|
|
|
|
|
begin
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
key := #0;
|
|
|
|
|
try
|
|
|
|
|
v := StrToFloat(txtXFormColor.Text);
|
|
|
|
|
except on EConvertError do
|
|
|
|
|
begin
|
2005-09-29 10:11:29 -04:00
|
|
|
|
txtXformColor.text := Format('%1.3f', [cp.xform[SelectedTriangle].color]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
if v > 1 then v := 1;
|
|
|
|
|
if v < 0 then v := 0;
|
|
|
|
|
if v <> cp.xform[SelectedTriangle].color then
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
scrlXFormColor.Position := round(v * scrlXFormColor.Max);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtSymmetryExit(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
Allow := True;
|
|
|
|
|
OldVal := Round6(cp.xform[SelectedTriangle].symmetry);
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
2005-10-19 00:51:50 -04:00
|
|
|
|
if NewVal < -1 then NewVal := -1;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if NewVal > 1 then NewVal := 1;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
if (OldVal <> NewVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].symmetry := NewVal;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtSymmetryKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
{ Stop the beep }
|
|
|
|
|
Key := #0;
|
|
|
|
|
Allow := True;
|
|
|
|
|
OldVal := Round6(cp.xform[SelectedTriangle].symmetry);
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
|
|
|
|
StrToFloat(TEdit(Sender).Text);
|
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [OldVal]);
|
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
NewVal := Round6(StrToFloat(TEdit(Sender).Text));
|
2005-10-19 00:51:50 -04:00
|
|
|
|
if NewVal < -1 then NewVal := -1;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
if NewVal > 1 then NewVal := 1;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
TEdit(Sender).Text := Format('%.6g', [NewVal]);
|
|
|
|
|
if (OldVal <> NewVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].symmetry := NewVal;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
// -- Variation List Editor ----------------------------------------------------
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
procedure TEditForm.ValidateVariation;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
2005-09-16 06:28:44 -04:00
|
|
|
|
i := VEVars.Row - 1;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
OldVal := Round6(cp.xform[SelectedTriangle].vars[i]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
try
|
2005-09-26 08:07:57 -04:00
|
|
|
|
NewVal := Round6(StrToFloat(VEVars.Values[VarNames(i)]));
|
|
|
|
|
except
|
2005-09-11 06:30:54 -04:00
|
|
|
|
VEVars.Values[VarNames(i)] := Format('%.6g', [OldVal]);
|
2005-09-26 08:07:57 -04:00
|
|
|
|
exit;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if (NewVal <> OldVal) then
|
2005-03-25 03:35:39 -05:00
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].vars[i] := NewVal;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
VEVars.Values[VarNames(i)] := Format('%.6g', [NewVal]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
(*
|
|
|
|
|
|
|
|
|
|
// here's another way to do this -
|
|
|
|
|
// we could use it with variables value editor,
|
|
|
|
|
// only if we had an *array* of variables
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
TDblArray = array of double;
|
|
|
|
|
PDblArray = ^TDblArray;
|
|
|
|
|
|
|
|
|
|
procedure ValidateValue(Sender: TValueListEditor; values: PDblArray);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
var
|
|
|
|
|
Allow: boolean;
|
|
|
|
|
i: integer;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
Allow := True;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
i := Sender.Row - 1;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
OldVal := values^[i];
|
2005-03-25 03:35:39 -05:00
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
2005-09-16 06:28:44 -04:00
|
|
|
|
StrToFloat(Sender.Values[VarNames(i)]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
except on Exception do
|
|
|
|
|
begin
|
|
|
|
|
{ It's not, so we restore the old value }
|
2005-09-16 06:28:44 -04:00
|
|
|
|
Sender.Values[VarNames(i)] := Format('%.6g', [OldVal]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
Allow := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
NewVal := Round6(StrToFloat(Sender.Values[VarNames(i)]));
|
|
|
|
|
Sender.Values[VarNames(i)] := Format('%.6g', [NewVal]);
|
2005-03-25 03:35:39 -05:00
|
|
|
|
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
|
|
|
|
if (NewVal <> OldVal) and Allow then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
values^[i] := NewVal;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
Sender.Values[VarNames(i)] := Format('%.6g', [NewVal]);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
EditForm.ShowSelectedInfo;
|
|
|
|
|
EditForm.UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
begin
|
|
|
|
|
if key = #13 then
|
|
|
|
|
begin
|
|
|
|
|
key := #0;
|
|
|
|
|
ValidateVariation;
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
procedure TEditForm.VEVarsChange(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
ValidateVariation;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: String);
|
|
|
|
|
begin
|
|
|
|
|
ValidateVariation;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
// -- ValueList mouse stuff ----------------------------------------------------
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
var
|
|
|
|
|
cell: TGridCoord;
|
|
|
|
|
begin
|
|
|
|
|
if Button = mbLeft then begin
|
2005-09-25 12:16:44 -04:00
|
|
|
|
varDragOld:=x;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
cell := TValueListEditor(Sender).MouseCoord(x, y);
|
|
|
|
|
if (cell.y < 1) or (cell.y >= TValueListEditor(Sender).RowCount) or
|
|
|
|
|
(cell.x <> 0) then exit;
|
|
|
|
|
|
|
|
|
|
TValueListEditor(Sender).Row := cell.Y;
|
|
|
|
|
|
|
|
|
|
varDragIndex := cell.Y-1;
|
|
|
|
|
|
|
|
|
|
Screen.Cursor := crHSplit;
|
|
|
|
|
|
|
|
|
|
GetCursorPos(mousepos); // hmmm
|
|
|
|
|
|
|
|
|
|
varDragMode:=true;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
varDragPos:=0;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
SetCaptureControl(TValueListEditor(Sender));
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if Sender = VEVars then
|
|
|
|
|
varDragValue := cp.xform[SelectedTriangle].vars[varDragIndex]
|
|
|
|
|
else
|
|
|
|
|
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[varDragIndex+1], varDragValue);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
|
|
|
|
|
HasChanged := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsMouseMove(Sender: TObject; Shift: TShiftState; X,
|
|
|
|
|
Y: Integer);
|
|
|
|
|
var
|
|
|
|
|
v: double;
|
|
|
|
|
cell: TGridCoord;
|
|
|
|
|
begin
|
|
|
|
|
cell := TValueListEditor(Sender).MouseCoord(x, y);
|
|
|
|
|
if (cell.Y > 0) and (cell.X = 0) then TValueListEditor(Sender).Cursor := crHandPoint
|
|
|
|
|
else TValueListEditor(Sender).Cursor := crDefault;
|
|
|
|
|
|
2005-09-16 09:26:45 -04:00
|
|
|
|
if varMM then // hack: to skip MouseMove event
|
2005-09-16 06:28:44 -04:00
|
|
|
|
begin
|
|
|
|
|
varMM:=false;
|
|
|
|
|
end
|
|
|
|
|
else
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if varDragMode and (x <> varDragOld) then
|
2005-09-16 06:28:44 -04:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
Inc(varDragPos, x - varDragOld);
|
2005-09-28 11:40:33 -04:00
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_MENU) < 0 then v := 100000
|
|
|
|
|
else if GetKeyState(VK_CONTROL) < 0 then v := 10000
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then v := 100
|
|
|
|
|
else v := 1000;
|
|
|
|
|
|
|
|
|
|
v := Round6(varDragValue + varDragPos/v);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
|
|
|
|
|
SetCursorPos(MousePos.x, MousePos.y); // hmmm
|
2005-09-16 09:26:45 -04:00
|
|
|
|
// this Delphi is WEIRD!
|
|
|
|
|
// why GetCursorPos deals with TPoint,
|
2005-09-21 09:42:24 -04:00
|
|
|
|
// and SetCursorPos - with two integers? :)
|
2005-09-16 06:28:44 -04:00
|
|
|
|
varMM:=true;
|
|
|
|
|
|
|
|
|
|
//cp.xform[SelectedTriangle].vars[varDragIndex] := v;
|
|
|
|
|
if Sender = VEVars then
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[SelectedTriangle].vars[varDragIndex] := v;
|
|
|
|
|
TValueListEditor(Sender).Values[VarNames(varDragIndex)] := Format('%.6g', [v]);
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
cp.xform[SelectedTriangle].SetVariable(vleVariables.Keys[varDragIndex+1], v);
|
|
|
|
|
vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := Format('%.6g', [v]);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlameX;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsMouseUp(Sender: TObject; Button: TMouseButton;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
begin
|
|
|
|
|
if Button <> mbLeft then exit;
|
|
|
|
|
SetCaptureControl(nil);
|
|
|
|
|
if varDragMode then
|
|
|
|
|
begin
|
|
|
|
|
varDragMode:=false;
|
|
|
|
|
Screen.Cursor := crDefault;
|
|
|
|
|
|
|
|
|
|
if HasChanged then
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
HasChanged := False;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.VEVarsDblClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
v: double;
|
|
|
|
|
begin
|
2005-09-16 09:26:45 -04:00
|
|
|
|
if (TValueListEditor(Sender).Values[VarNames(varDragIndex)] = '0') or
|
2005-09-25 12:16:44 -04:00
|
|
|
|
(varDragOld >= TValueListEditor(Sender).ColWidths[0]) then exit;
|
2005-09-16 06:28:44 -04:00
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
if Sender = VEVars then
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[SelectedTriangle].vars[varDragIndex] := 0;
|
|
|
|
|
VEVars.Values[VarNames(varDragIndex)] := '0';
|
|
|
|
|
end
|
|
|
|
|
else begin
|
2005-09-16 09:26:45 -04:00
|
|
|
|
v := 0; // <<<----- hey!!! why there is 'var' in SETvariable???
|
2005-09-16 06:28:44 -04:00
|
|
|
|
cp.xform[SelectedTriangle].SetVariable(vleVariables.Keys[varDragIndex+1], v);
|
|
|
|
|
vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := '0';
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-21 11:14:13 -04:00
|
|
|
|
UpdateFlame(true);
|
2005-09-16 06:28:44 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-06-01 15:26:55 -04:00
|
|
|
|
{ **************************************************************************** }
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
function TEditForm.GetPivot: TSPoint;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
begin
|
|
|
|
|
Result := GetPivot(SelectedTriangle);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
function TEditForm.GetPivot(n: integer): TSPoint;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
|
|
|
|
case (rgPivot.ItemIndex) of
|
|
|
|
|
0: begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Result.x:=MainTriangles[n].x[0];
|
|
|
|
|
Result.y:=MainTriangles[n].y[0];
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
1: begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Result.x:=MainTriangles[n].x[1];
|
|
|
|
|
Result.y:=MainTriangles[n].y[1];
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
2: begin
|
2005-10-06 11:51:20 -04:00
|
|
|
|
Result.x:=MainTriangles[n].x[2];
|
|
|
|
|
Result.y:=MainTriangles[n].y[2];
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
3: Result:=Centroid(MainTriangles[n]);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
else
|
|
|
|
|
Result.x:=0;
|
|
|
|
|
Result.y:=0;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-06-01 15:26:55 -04:00
|
|
|
|
procedure TEditForm.btTrgRotateLeftClick(Sender: TObject);
|
|
|
|
|
var
|
2005-09-21 09:42:24 -04:00
|
|
|
|
angle: double;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
begin
|
|
|
|
|
try
|
2005-09-21 09:42:24 -04:00
|
|
|
|
angle := StrToFloat(txtTrgRotateValue.Text);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
txtTrgRotateValue.ItemIndex := 1;
|
|
|
|
|
exit;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(angle <> 0);
|
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_CONTROL) < 0 then angle := angle/6.0
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then angle := angle*6.0;
|
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
RotateTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, (PI/180)*angle);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.btTrgRotateLeft90Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
RotateTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, PI/2);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-06-01 15:26:55 -04:00
|
|
|
|
procedure TEditForm.btTrgRotateRightClick(Sender: TObject);
|
|
|
|
|
var
|
2005-09-21 09:42:24 -04:00
|
|
|
|
angle: double;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
begin
|
|
|
|
|
try
|
2005-09-21 09:42:24 -04:00
|
|
|
|
angle := StrToFloat(txtTrgRotateValue.Text);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
txtTrgRotateValue.ItemIndex := 1;
|
|
|
|
|
exit;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(angle <> 0);
|
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_CONTROL) < 0 then angle := angle/6.0
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then angle := angle*6.0;
|
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
RotateTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, -(PI/180)*angle);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.btTrgRotateRight90Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
RotateTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, -PI/2);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.TrgMove(dx, dy: double);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
offset: double;
|
|
|
|
|
begin
|
|
|
|
|
try
|
|
|
|
|
offset := StrToFloat(txtTrgMoveValue.Text);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(offset <> 0);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
txtTrgMoveValue.ItemIndex := 1;
|
|
|
|
|
exit;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_CONTROL) < 0 then offset := offset/10.0
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then offset := offset*10.0;
|
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
for i := 0 to 2 do begin
|
|
|
|
|
MainTriangles[SelectedTriangle].x[i] :=
|
|
|
|
|
MainTriangles[SelectedTriangle].x[i] + dx*offset;
|
|
|
|
|
MainTriangles[SelectedTriangle].y[i] :=
|
|
|
|
|
MainTriangles[SelectedTriangle].y[i] + dy*offset;
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
// HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
procedure TEditForm.btTrgMoveLeftClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
TrgMove(-1,0);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-06-01 15:26:55 -04:00
|
|
|
|
procedure TEditForm.btTrgMoveRightClick(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
TrgMove(1,0);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveUpClick(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
TrgMove(0,1);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveDownClick(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-11 03:03:02 -04:00
|
|
|
|
TrgMove(0,-1);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveLUClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
TrgMove(-1,1);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveLDClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
TrgMove(-1,-1);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveRUClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
TrgMove(1,1);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgMoveRDClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
TrgMove(1,-1);
|
2005-06-01 15:26:55 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-06-28 16:06:46 -04:00
|
|
|
|
procedure TEditForm.btTrgScaleUpClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
scale: double;
|
|
|
|
|
begin
|
|
|
|
|
try
|
2005-09-21 09:42:24 -04:00
|
|
|
|
scale := StrToFloat(txtTrgScaleValue.Text) / 100.0;
|
2005-06-28 16:06:46 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
txtTrgScaleValue.ItemIndex := 1;
|
|
|
|
|
exit;
|
2005-06-28 16:06:46 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(scale <> 0);
|
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_CONTROL) < 0 then scale := sqrt(scale)
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then scale := scale*scale;
|
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
ScaleTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, scale);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
2005-06-28 16:06:46 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.btTrgScaleDownClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
scale: double;
|
|
|
|
|
begin
|
|
|
|
|
try
|
2005-09-21 09:42:24 -04:00
|
|
|
|
scale := 100.0 / StrToFloat(txtTrgScaleValue.Text);
|
2005-06-28 16:06:46 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
txtTrgScaleValue.ItemIndex := 1;
|
|
|
|
|
exit;
|
2005-06-28 16:06:46 -04:00
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
assert(scale <> 0);
|
|
|
|
|
|
|
|
|
|
if GetKeyState(VK_CONTROL) < 0 then scale := sqrt(scale)
|
|
|
|
|
else if GetKeyState(VK_SHIFT) < 0 then scale := scale*scale;
|
|
|
|
|
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] :=
|
|
|
|
|
ScaleTrianglePoint(MainTriangles[SelectedTriangle], GetPivot.x, GetPivot.y, scale);
|
|
|
|
|
HasChanged := True;
|
|
|
|
|
UpdateFlame(true);
|
2005-06-28 16:06:46 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewKeyDown(Sender: TObject; var Key: Word;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if (oldMode = modeNone) and
|
2005-09-28 11:40:33 -04:00
|
|
|
|
(key in [{VK_SHIFT,} VK_MENU, VK_CONTROL]) then
|
2005-09-21 09:42:24 -04:00
|
|
|
|
begin
|
|
|
|
|
oldMode := editMode;
|
2005-09-28 11:40:33 -04:00
|
|
|
|
modeKey := key;
|
|
|
|
|
|
|
|
|
|
if key = VK_MENU then
|
|
|
|
|
if editMode <> modeRotate then
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeRotate;
|
|
|
|
|
TriangleView.Cursor := crEditRotate;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
editMode := modeMove;
|
|
|
|
|
TriangleView.Cursor := crEditMove;
|
|
|
|
|
end
|
|
|
|
|
else {if key = VK_CONTROL then}
|
|
|
|
|
begin
|
|
|
|
|
if editMode <> modeScale then
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeScale;
|
|
|
|
|
TriangleView.Cursor := crEditScale;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
editMode := modeMove;
|
|
|
|
|
TriangleView.Cursor := crEditMove;
|
|
|
|
|
end
|
|
|
|
|
end;
|
|
|
|
|
{
|
2005-09-21 09:42:24 -04:00
|
|
|
|
case key of
|
|
|
|
|
VK_MENU:
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeRotate;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
// tbRotate.Down := true;
|
|
|
|
|
TriangleView.Cursor := crEditRotate;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
VK_CONTROL:
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeScale;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
// tbScale.Down := true;
|
|
|
|
|
TriangleView.Cursor := crEditScale;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
else //VK_SHIFT:
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeMove;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
// tbMove.Down := true;
|
|
|
|
|
TriangleView.Cursor := crEditMove;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-28 11:40:33 -04:00
|
|
|
|
// EditorToolBar.Refresh;
|
|
|
|
|
}
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end
|
|
|
|
|
else
|
2005-09-11 03:03:02 -04:00
|
|
|
|
case key of
|
2005-09-15 10:23:32 -04:00
|
|
|
|
VK_LEFT:
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if Shift = [ssAlt] then btTrgRotateLeftClick(Sender)
|
|
|
|
|
else TrgMove(-1,0);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
VK_RIGHT:
|
|
|
|
|
if Shift = [ssAlt] then btTrgRotateRightClick(Sender)
|
2005-09-21 09:42:24 -04:00
|
|
|
|
else TrgMove(1,0);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
VK_UP:
|
|
|
|
|
if Shift = [ssAlt] then btTrgScaleUpClick(Sender)
|
2005-09-21 09:42:24 -04:00
|
|
|
|
else TrgMove(0,1);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
VK_DOWN:
|
|
|
|
|
if Shift = [ssAlt] then btTrgScaleDownClick(Sender)
|
2005-09-21 09:42:24 -04:00
|
|
|
|
else TrgMove(0,-1);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
VK_PRIOR: btTrgRotateLeftClick(Sender);
|
|
|
|
|
VK_NEXT: btTrgRotateRightClick(Sender);
|
|
|
|
|
VK_HOME: btTrgScaleUpClick(Sender);
|
|
|
|
|
VK_END: btTrgScaleDownClick(Sender);
|
|
|
|
|
VK_INSERT: mnuDupClick(Sender);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
VK_DELETE: mnuDeleteClick(Sender);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-09-15 10:23:32 -04:00
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure TEditForm.TriangleViewKeyUp(Sender: TObject; var Key: Word;
|
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
begin
|
2005-09-28 11:40:33 -04:00
|
|
|
|
if (oldMode <> modeNone) and (key = modeKey) then
|
2005-09-21 09:42:24 -04:00
|
|
|
|
begin
|
2005-09-28 11:40:33 -04:00
|
|
|
|
assert(key in [VK_MENU, VK_CONTROL]);
|
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
editMode := oldMode;
|
|
|
|
|
oldMode := modeNone;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
// tbMove.Down := (editMode = modeMove);
|
|
|
|
|
// tbRotate.Down := (editMode = modeRotate);
|
|
|
|
|
// tbScale.Down := (editMode = modeScale);
|
|
|
|
|
|
|
|
|
|
// hack: to generate MouseMove event
|
|
|
|
|
GetCursorPos(MousePos);
|
|
|
|
|
SetCursorPos(MousePos.x, MousePos.y);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.TriangleViewExit(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
if oldMode <> modeNone then
|
|
|
|
|
begin
|
|
|
|
|
editMode := oldMode;
|
|
|
|
|
oldMode := modeNone;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
// tbMove.Down := (editMode = modeMove);
|
|
|
|
|
// tbRotate.Down := (editMode = modeRotate);
|
|
|
|
|
// tbScale.Down := (editMode = modeScale);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
mouseOverTriangle := -1;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
TriangleView.Invalidate;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
procedure TEditForm.TriangleViewMouseLeave(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
if viewDragMode = false then
|
|
|
|
|
begin
|
|
|
|
|
mouseOverTriangle := -1;
|
|
|
|
|
TriangleView.Invalidate;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure TEditForm.EditKeyDown(Sender: TObject; var Key: Word;
|
|
|
|
|
Shift: TShiftState);
|
|
|
|
|
begin
|
|
|
|
|
case key of
|
2005-09-11 03:03:02 -04:00
|
|
|
|
VK_ADD:
|
|
|
|
|
if SelectedTriangle < Transforms-1 then begin
|
|
|
|
|
Inc(SelectedTriangle);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
end;
|
|
|
|
|
VK_SUBTRACT:
|
|
|
|
|
if SelectedTriangle > 0 then begin
|
|
|
|
|
Dec(SelectedTriangle);
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
end;
|
2005-09-28 11:40:33 -04:00
|
|
|
|
{ // these keys are not so good, must think about it...
|
2005-09-25 12:16:44 -04:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
VK_SPACE: EditForm.tbSelectClick(Sender);
|
2005-09-11 12:03:15 -04:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Ord('Q'): EditForm.tbEditModeClick(tbMove);
|
|
|
|
|
Ord('W'): EditForm.tbEditModeClick(tbRotate);
|
|
|
|
|
Ord('E'): EditForm.tbEditModeClick(tbScale);
|
|
|
|
|
|
|
|
|
|
Ord('A'): PageControl.TabIndex := 0;
|
|
|
|
|
Ord('S'): PageControl.TabIndex := 1;
|
|
|
|
|
Ord('D'): PageControl.TabIndex := 2;
|
|
|
|
|
Ord('F'): PageControl.TabIndex := 3;
|
|
|
|
|
|
|
|
|
|
Ord('Z'): EditForm.rgPivot.ItemIndex:=0;
|
|
|
|
|
Ord('X'): EditForm.rgPivot.ItemIndex:=1;
|
|
|
|
|
Ord('C'): EditForm.rgPivot.ItemIndex:=2;
|
|
|
|
|
Ord('V'): EditForm.rgPivot.ItemIndex:=3;
|
|
|
|
|
Ord('B'): EditForm.rgPivot.ItemIndex:=4;
|
2005-09-25 12:16:44 -04:00
|
|
|
|
}
|
2005-09-11 03:03:02 -04:00
|
|
|
|
else
|
2005-09-21 09:42:24 -04:00
|
|
|
|
key_handled := false;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
exit;
|
|
|
|
|
end;
|
2005-09-21 09:42:24 -04:00
|
|
|
|
key_handled := true;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
key := 0;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure TEditForm.EditKeyPress(Sender: TObject; var Key: Char);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
if key_handled or (key in ['A'..'z']) then key := #0; // hmmm...
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.splitterMoved(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
UpdateDisplay;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.tbSelectClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
SelectMode := not SelectMode;
|
|
|
|
|
tbSelect.Down := SelectMode;
|
|
|
|
|
|
|
|
|
|
if SelectMode then
|
|
|
|
|
begin
|
|
|
|
|
StatusBar.Panels[2].Text := 'Select ON'
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
mouseOverTriangle := SelectedTriangle;
|
|
|
|
|
StatusBar.Panels[2].Text := 'Select OFF';
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-25 12:16:44 -04:00
|
|
|
|
// hack: to generate MouseMove event
|
2005-09-11 03:03:02 -04:00
|
|
|
|
GetCursorPos(MousePos);
|
|
|
|
|
SetCursorPos(MousePos.x, MousePos.y);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
procedure TEditForm.TriangleViewMouseWheel(Sender: TObject; Shift: TShiftState;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
|
|
|
|
|
begin
|
|
|
|
|
if WheelDelta > 0 then GraphZoom := GraphZoom * 1.25
|
|
|
|
|
else GraphZoom := GraphZoom * 0.8;
|
|
|
|
|
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
|
|
|
|
|
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
Handled := true;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.PreviewImageDblClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainForm.ResetLocation;
|
|
|
|
|
MainForm.RedrawTimer.enabled := true;
|
|
|
|
|
MainForm.UpdateWindows;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.rgPivotClicked(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-15 10:23:32 -04:00
|
|
|
|
TriangleView.Invalidate;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.tbEditModeClick(Sender: TObject);
|
|
|
|
|
begin
|
2005-09-21 09:42:24 -04:00
|
|
|
|
{
|
2005-09-11 03:03:02 -04:00
|
|
|
|
if Sender = tbRotate then editMode := modeRotate
|
|
|
|
|
else if Sender = tbScale then editMode := modeScale
|
|
|
|
|
else editMode := modeMove;
|
|
|
|
|
tbMove.Down := (editMode = modeMove);
|
|
|
|
|
tbRotate.Down := (editMode = modeRotate);
|
|
|
|
|
tbScale.Down := (editMode = modeScale);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
}
|
|
|
|
|
if Sender = tbRotate then
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeRotate;
|
|
|
|
|
tbRotate.Down := true;
|
|
|
|
|
end
|
|
|
|
|
else if Sender = tbScale then
|
|
|
|
|
begin
|
|
|
|
|
editMode := modeScale;
|
|
|
|
|
tbScale.Down := true;
|
|
|
|
|
end
|
|
|
|
|
else begin
|
|
|
|
|
editMode := modeMove;
|
|
|
|
|
tbMove.Down := true;
|
|
|
|
|
end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.tbFullViewClick(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
MainForm.mnuFullScreenClick(Sender);
|
|
|
|
|
end;
|
|
|
|
|
|
2005-10-06 11:51:20 -04:00
|
|
|
|
(*
|
2005-09-11 07:28:26 -04:00
|
|
|
|
// --Z-- // transform color scroller - TODO
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
|
|
|
|
procedure TEditForm.ColorImageMouseDown(Sender: TObject;
|
|
|
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
begin
|
|
|
|
|
if Button = mbLeft then
|
|
|
|
|
begin
|
2005-09-26 08:07:57 -04:00
|
|
|
|
SetCaptureControl(ColorImage);
|
|
|
|
|
colorDragX:=0;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
colorOldX:=x;
|
|
|
|
|
colorDrag:=true;
|
|
|
|
|
colorChanged:=false;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.ColorImageMouseMove(Sender: TObject;
|
|
|
|
|
Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
var
|
|
|
|
|
i, offset: integer;
|
|
|
|
|
begin
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if colorDrag and (OldX<>x) then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
2005-09-26 08:07:57 -04:00
|
|
|
|
{ oldX:=x;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
offset := ( ((x - colorDragX) shl 8) div ColorImage.Width ) mod 256;
|
|
|
|
|
colorChanged := true;
|
2005-09-11 07:28:26 -04:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
for i := 0 to 255 do
|
|
|
|
|
begin
|
|
|
|
|
Palette[i][0] := BackupPal[(255 + i - offset) and $FF][0];
|
|
|
|
|
Palette[i][1] := BackupPal[(255 + i - offset) and $FF][1];
|
|
|
|
|
Palette[i][2] := BackupPal[(255 + i - offset) and $FF][2];
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
cp.CmapIndex := cmbPalette.ItemIndex;
|
|
|
|
|
cp.cmap := Palette;
|
2005-09-11 07:28:26 -04:00
|
|
|
|
|
2005-09-11 03:03:02 -04:00
|
|
|
|
colorImage.Refresh;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
} end;
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.ColorImageMouseUp(Sender: TObject;
|
|
|
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
|
|
|
begin
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if (Button = mbLeft) and colorDrag then
|
2005-09-11 03:03:02 -04:00
|
|
|
|
begin
|
|
|
|
|
colorDrag := false;
|
|
|
|
|
|
|
|
|
|
if colorChanged then begin
|
|
|
|
|
// MainForm.UpdateUndo;
|
|
|
|
|
// cp.xxx := xxx;
|
|
|
|
|
// MainCP.copy(cp);
|
|
|
|
|
// UpdateXXXX;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
SetCaptureControl(nil);
|
2005-09-11 03:03:02 -04:00
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
2005-10-06 11:51:20 -04:00
|
|
|
|
*)
|
2005-09-11 03:03:02 -04:00
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
//-- Variable List -------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
// --Z-- hmmmm!
|
|
|
|
|
// this procedure is EXACT copy of ValidateVariation,
|
|
|
|
|
// the only difference is Set/Get-Variable instead of array access,
|
|
|
|
|
// which kinda is not good! :-\
|
|
|
|
|
// I think we should make an array of variables, maybe just for the editor...
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.ValidateVariable;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
NewVal, OldVal: double;
|
|
|
|
|
begin
|
|
|
|
|
i := vleVariables.Row;
|
|
|
|
|
|
|
|
|
|
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[i], OldVal);
|
|
|
|
|
{ Test that it's a valid floating point number }
|
|
|
|
|
try
|
2005-09-26 08:07:57 -04:00
|
|
|
|
NewVal := Round6(StrToFloat(vleVariables.Values[vleVariables.Keys[i]]));
|
|
|
|
|
except
|
2005-09-11 06:30:54 -04:00
|
|
|
|
{ It's not, so we restore the old value }
|
2005-09-26 08:07:57 -04:00
|
|
|
|
vleVariables.Values[vleVariables.Keys[i]] := Format('%.6g', [OldVal]);
|
|
|
|
|
exit;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
end;
|
|
|
|
|
{ If it's not the same as the old value and it was valid }
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if (NewVal <> OldVal) then
|
2005-09-11 06:30:54 -04:00
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
cp.xform[SelectedTriangle].SetVariable(vleVariables.Keys[i], NewVal);
|
|
|
|
|
vleVariables.Values[vleVariables.Keys[i]] := Format('%.6g', [NewVal]);
|
|
|
|
|
ShowSelectedInfo;
|
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
procedure TEditForm.vleVariablesExit(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
ValidateVariable;
|
|
|
|
|
end;
|
|
|
|
|
|
2005-09-11 06:30:54 -04:00
|
|
|
|
procedure TEditForm.vleVariablesKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
begin
|
2005-09-16 06:28:44 -04:00
|
|
|
|
if key <> #13 then Exit;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
key := #0;
|
|
|
|
|
|
2005-09-16 06:28:44 -04:00
|
|
|
|
ValidateVariable;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
|
|
|
|
|
begin
|
2005-09-16 06:28:44 -04:00
|
|
|
|
ValidateVariable;
|
2005-09-11 06:30:54 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-09-21 09:42:24 -04:00
|
|
|
|
procedure TEditForm.txtValidateValue(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
t: double;
|
|
|
|
|
begin
|
|
|
|
|
try
|
|
|
|
|
t := StrToFloat(TComboBox(Sender).Text);
|
|
|
|
|
if t <> 0 then exit;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
except
|
2005-09-21 09:42:24 -04:00
|
|
|
|
TComboBox(Sender).ItemIndex := 1;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.txtValKeyPress(Sender: TObject; var Key: Char);
|
|
|
|
|
begin
|
2005-09-26 08:07:57 -04:00
|
|
|
|
if key <> #13 then exit;
|
|
|
|
|
key := #0;
|
|
|
|
|
txtValidateValue(Sender);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuResetClick(Sender: TObject);
|
2005-09-28 11:40:33 -04:00
|
|
|
|
var
|
|
|
|
|
i: integer;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
MainTriangles[SelectedTriangle] := MainTriangles[-1];
|
2005-09-28 11:40:33 -04:00
|
|
|
|
cp.xform[SelectedTriangle].vars[0] := 1;
|
|
|
|
|
for i := 1 to NRVAR - 1 do
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[SelectedTriangle].vars[i] := 0;
|
|
|
|
|
end;
|
2005-09-26 08:07:57 -04:00
|
|
|
|
UpdateFlame(True);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TEditForm.mnuResetAllClick(Sender: TObject);
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
begin
|
|
|
|
|
MainForm.UpdateUndo;
|
|
|
|
|
for i := 2 to Transforms-1 do cp.xform[i].density := 0;
|
|
|
|
|
|
|
|
|
|
Transforms := 2;
|
|
|
|
|
SelectedTriangle := 1;
|
|
|
|
|
MainTriangles[0] := MainTriangles[-1];
|
|
|
|
|
cp.xform[0].density := 0.5;
|
|
|
|
|
cp.xform[0].vars[0] := 1;
|
|
|
|
|
MainTriangles[1] := MainTriangles[-1];
|
|
|
|
|
cp.xform[1].density := 0.5;
|
|
|
|
|
cp.xform[1].vars[0] := 1;
|
|
|
|
|
for i := 1 to NRVAR - 1 do
|
|
|
|
|
begin
|
|
|
|
|
cp.xform[0].vars[i] := 0;
|
|
|
|
|
cp.xform[1].vars[i] := 0;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
cbTransforms.clear;
|
|
|
|
|
cbTransforms.Items.Add('1');
|
|
|
|
|
cbTransforms.Items.Add('2');
|
|
|
|
|
AutoZoom;
|
|
|
|
|
UpdateFlame(True);
|
2005-09-21 09:42:24 -04:00
|
|
|
|
end;
|
|
|
|
|
|
2005-03-25 03:35:39 -05:00
|
|
|
|
end.
|
|
|
|
|
|