chaos table support in the editor
This commit is contained in:
zueuk
parent
39adb9f697
commit
76359a555d
@ -54,7 +54,7 @@ object EditForm: TEditForm
|
||||
TextHeight = 13
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 532
|
||||
Top = 527
|
||||
Width = 574
|
||||
Height = 15
|
||||
Panels = <
|
||||
@ -339,14 +339,14 @@ object EditForm: TEditForm
|
||||
Left = 0
|
||||
Top = 24
|
||||
Width = 574
|
||||
Height = 508
|
||||
Height = 503
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object Splitter1: TSplitter
|
||||
Left = 392
|
||||
Top = 1
|
||||
Width = 9
|
||||
Height = 506
|
||||
Height = 501
|
||||
Align = alRight
|
||||
AutoSnap = False
|
||||
Beveled = True
|
||||
@ -357,7 +357,7 @@ object EditForm: TEditForm
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 391
|
||||
Height = 506
|
||||
Height = 501
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Color = clAppWorkSpace
|
||||
@ -367,7 +367,7 @@ object EditForm: TEditForm
|
||||
Left = 401
|
||||
Top = 1
|
||||
Width = 172
|
||||
Height = 506
|
||||
Height = 501
|
||||
Align = alRight
|
||||
Alignment = taLeftJustify
|
||||
BevelOuter = bvNone
|
||||
@ -384,30 +384,11 @@ object EditForm: TEditForm
|
||||
MinSize = 130
|
||||
OnMoved = splitterMoved
|
||||
end
|
||||
object PrevPnl: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 172
|
||||
Height = 130
|
||||
Align = alTop
|
||||
BevelOuter = bvLowered
|
||||
Color = clAppWorkSpace
|
||||
TabOrder = 1
|
||||
object PreviewImage: TImage
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 170
|
||||
Height = 130
|
||||
Center = True
|
||||
PopupMenu = QualityPopup
|
||||
Proportional = True
|
||||
end
|
||||
end
|
||||
object ControlPanel: TPanel
|
||||
Left = 0
|
||||
Top = 138
|
||||
Width = 172
|
||||
Height = 368
|
||||
Height = 363
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object lblTransform: TLabel
|
||||
@ -438,10 +419,10 @@ object EditForm: TEditForm
|
||||
end
|
||||
object PageControl: TPageControl
|
||||
Left = 1
|
||||
Top = 36
|
||||
Top = 31
|
||||
Width = 170
|
||||
Height = 331
|
||||
ActivePage = tabVariations
|
||||
ActivePage = tabColors
|
||||
Align = alBottom
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
MultiLine = True
|
||||
@ -1428,58 +1409,6 @@ object EditForm: TEditForm
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object tabVariations: TTabSheet
|
||||
Caption = 'Variations'
|
||||
object VEVars: TValueListEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 162
|
||||
Height = 285
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TitleCaptions.Strings = (
|
||||
'Variation'
|
||||
'Value')
|
||||
OnDblClick = VEVarsDblClick
|
||||
OnDrawCell = VEVarsDrawCell
|
||||
OnExit = VEVarsChange
|
||||
OnKeyPress = VEVarsKeyPress
|
||||
OnMouseDown = VEVarsMouseDown
|
||||
OnMouseMove = VEVarsMouseMove
|
||||
OnMouseUp = VEVarsMouseUp
|
||||
OnValidate = VEVarsValidate
|
||||
ColWidths = (
|
||||
93
|
||||
63)
|
||||
end
|
||||
end
|
||||
object TabSheet4: TTabSheet
|
||||
Caption = 'Variables'
|
||||
ImageIndex = 4
|
||||
object vleVariables: TValueListEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 162
|
||||
Height = 285
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TitleCaptions.Strings = (
|
||||
'Variable'
|
||||
'Value')
|
||||
OnDblClick = VEVarsDblClick
|
||||
OnExit = vleVariablesExit
|
||||
OnKeyPress = vleVariablesKeyPress
|
||||
OnMouseDown = VEVarsMouseDown
|
||||
OnMouseMove = VEVarsMouseMove
|
||||
OnMouseUp = VEVarsMouseUp
|
||||
OnValidate = vleVariablesValidate
|
||||
ColWidths = (
|
||||
93
|
||||
63)
|
||||
end
|
||||
end
|
||||
object tabColors: TTabSheet
|
||||
Caption = 'Colors'
|
||||
ImageIndex = 3
|
||||
@ -1558,7 +1487,7 @@ object EditForm: TEditForm
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Top = 100
|
||||
Top = 182
|
||||
Width = 145
|
||||
Height = 77
|
||||
Caption = 'Variation preview'
|
||||
@ -1611,7 +1540,140 @@ object EditForm: TEditForm
|
||||
OnChange = trkVarPreviewDepthChange
|
||||
end
|
||||
end
|
||||
object GroupBox4: TGroupBox
|
||||
Left = 8
|
||||
Top = 104
|
||||
Width = 145
|
||||
Height = 73
|
||||
Caption = 'Transform visibility'
|
||||
TabOrder = 2
|
||||
object chkXformInvisible: TCheckBox
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 129
|
||||
Height = 17
|
||||
Caption = 'Invisible'
|
||||
TabOrder = 0
|
||||
OnClick = chkPlotModeClick
|
||||
end
|
||||
object chkXformSolo: TCheckBox
|
||||
Left = 8
|
||||
Top = 48
|
||||
Width = 129
|
||||
Height = 17
|
||||
Caption = 'Solo'
|
||||
TabOrder = 1
|
||||
OnClick = chkXformSoloClick
|
||||
end
|
||||
object chkRetrace: TCheckBox
|
||||
Left = 8
|
||||
Top = 32
|
||||
Width = 129
|
||||
Height = 17
|
||||
Caption = 'Retrace xform'
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
end
|
||||
object tabVariations: TTabSheet
|
||||
Caption = 'Variations'
|
||||
object VEVars: TValueListEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 162
|
||||
Height = 285
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TitleCaptions.Strings = (
|
||||
'Variation'
|
||||
'Value')
|
||||
OnDblClick = VEVarsDblClick
|
||||
OnDrawCell = VEVarsDrawCell
|
||||
OnExit = VEVarsChange
|
||||
OnKeyPress = VEVarsKeyPress
|
||||
OnMouseDown = VEVarsMouseDown
|
||||
OnMouseMove = VEVarsMouseMove
|
||||
OnMouseUp = VEVarsMouseUp
|
||||
OnValidate = VEVarsValidate
|
||||
ColWidths = (
|
||||
93
|
||||
63)
|
||||
end
|
||||
end
|
||||
object TabSheet4: TTabSheet
|
||||
Caption = 'Variables'
|
||||
ImageIndex = 4
|
||||
object vleVariables: TValueListEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 162
|
||||
Height = 285
|
||||
Align = alClient
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TitleCaptions.Strings = (
|
||||
'Variable'
|
||||
'Value')
|
||||
OnDblClick = VEVarsDblClick
|
||||
OnExit = vleVariablesExit
|
||||
OnKeyPress = vleVariablesKeyPress
|
||||
OnMouseDown = VEVarsMouseDown
|
||||
OnMouseMove = VEVarsMouseMove
|
||||
OnMouseUp = VEVarsMouseUp
|
||||
OnValidate = vleVariablesValidate
|
||||
ColWidths = (
|
||||
93
|
||||
63)
|
||||
end
|
||||
end
|
||||
object TabChaos: TTabSheet
|
||||
Caption = 'Xaos'
|
||||
ImageIndex = 5
|
||||
object vleChaos: TValueListEditor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 162
|
||||
Height = 285
|
||||
Align = alClient
|
||||
PopupMenu = ChaosPopup
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TitleCaptions.Strings = (
|
||||
'Path'
|
||||
'Weight modifier')
|
||||
OnDblClick = VEVarsDblClick
|
||||
OnDrawCell = VleChaosDrawCell
|
||||
OnExit = vleChaosExit
|
||||
OnKeyPress = vleChaosKeyPress
|
||||
OnMouseDown = VEVarsMouseDown
|
||||
OnMouseMove = VEVarsMouseMove
|
||||
OnMouseUp = VEVarsMouseUp
|
||||
OnValidate = vleChaosValidate
|
||||
ColWidths = (
|
||||
65
|
||||
91)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object PrevPnl: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 172
|
||||
Height = 130
|
||||
Align = alTop
|
||||
BevelOuter = bvLowered
|
||||
Color = clAppWorkSpace
|
||||
TabOrder = 1
|
||||
object PreviewImage: TImage
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 170
|
||||
Height = 130
|
||||
Center = True
|
||||
PopupMenu = QualityPopup
|
||||
Proportional = True
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -3016,4 +3078,37 @@ object EditForm: TEditForm
|
||||
OnClick = mnuResetTrgScaleClick
|
||||
end
|
||||
end
|
||||
object ChaosPopup: TPopupMenu
|
||||
Left = 353
|
||||
Top = 241
|
||||
object mnuChaosViewTo: TMenuItem
|
||||
Caption = 'View as "&to"'
|
||||
Checked = True
|
||||
RadioItem = True
|
||||
OnClick = mnuChaosViewToClick
|
||||
end
|
||||
object mnuChaosViewFrom: TMenuItem
|
||||
Caption = 'View as "&from"'
|
||||
RadioItem = True
|
||||
OnClick = mnuChaosViewFromClick
|
||||
end
|
||||
object N9: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object mnuChaosClearAll: TMenuItem
|
||||
Caption = '&Clear all'
|
||||
OnClick = mnuChaosClearAllClick
|
||||
end
|
||||
object mnuChaosSetAll: TMenuItem
|
||||
Caption = '&Set all'
|
||||
OnClick = mnuChaosSetAllClick
|
||||
end
|
||||
object N10: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object mnuLinkPostxform: TMenuItem
|
||||
Caption = 'Add linked xform'
|
||||
OnClick = mnuLinkPostxformClick
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
{
|
||||
Apophysis Copyright (C) 2001-2004 Mark Townsend
|
||||
Apophysis Copyright (C) 2005-2006 Ronald Hordijk, Piotr Borys, Peter Sdobnov
|
||||
Apophysis Copyright (C) 2007-2008 Piotr Borys, Peter Sdobnov
|
||||
|
||||
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
|
||||
@ -16,7 +17,9 @@
|
||||
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;
|
||||
|
||||
//{$define VAR_STR}
|
||||
@ -185,6 +188,21 @@ type
|
||||
oggleposttriangleediting1: TMenuItem;
|
||||
mnuCopyTriangle: TMenuItem;
|
||||
mnuPasteTriangle: TMenuItem;
|
||||
TabChaos: TTabSheet;
|
||||
vleChaos: TValueListEditor;
|
||||
ChaosPopup: TPopupMenu;
|
||||
mnuChaosViewTo: TMenuItem;
|
||||
mnuChaosViewFrom: TMenuItem;
|
||||
N9: TMenuItem;
|
||||
mnuChaosClearAll: TMenuItem;
|
||||
mnuChaosSetAll: TMenuItem;
|
||||
N10: TMenuItem;
|
||||
mnuLinkPostxform: TMenuItem;
|
||||
GroupBox4: TGroupBox;
|
||||
chkXformInvisible: TCheckBox;
|
||||
chkXformSolo: TCheckBox;
|
||||
chkRetrace: TCheckBox;
|
||||
|
||||
procedure ValidateVariable;
|
||||
procedure vleVariablesValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: string);
|
||||
procedure vleVariablesKeyPress(Sender: TObject; var Key: Char);
|
||||
@ -327,6 +345,21 @@ type
|
||||
procedure btnCopyTriangleClick(Sender: TObject);
|
||||
procedure btnPasteTriangleClick(Sender: TObject);
|
||||
|
||||
procedure ValidateChaos;
|
||||
procedure vleChaosExit(Sender: TObject);
|
||||
procedure vleChaosKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure vleChaosValidate(Sender: TObject; ACol, ARow: Integer;
|
||||
const KeyName, KeyValue: String);
|
||||
procedure VleChaosDrawCell(Sender: TObject; ACol, ARow: Integer;
|
||||
Rect: TRect; State: TGridDrawState);
|
||||
procedure mnuChaosViewToClick(Sender: TObject);
|
||||
procedure mnuChaosViewFromClick(Sender: TObject);
|
||||
procedure chkPlotModeClick(Sender: TObject);
|
||||
procedure mnuChaosClearAllClick(Sender: TObject);
|
||||
procedure mnuChaosSetAllClick(Sender: TObject);
|
||||
procedure mnuLinkPostxformClick(Sender: TObject);
|
||||
procedure chkXformSoloClick(Sender: TObject);
|
||||
|
||||
private
|
||||
TriangleView: TCustomDrawControl;
|
||||
cmap: TColorMap;
|
||||
@ -351,6 +384,7 @@ type
|
||||
varDragValue: double;
|
||||
varDragPos, varDragOld: integer;
|
||||
varMM: boolean; //hack?
|
||||
pDragValue: ^double;
|
||||
|
||||
SelectMode, ExtendedEdit, AxisLock: boolean;
|
||||
showVarPreview: boolean;
|
||||
@ -604,12 +638,21 @@ end;
|
||||
|
||||
procedure TEditForm.UpdateXformsList;
|
||||
var
|
||||
i: integer;
|
||||
i, n: integer;
|
||||
prefix: string;
|
||||
begin
|
||||
cbTransforms.Clear;
|
||||
for i := 1 to Transforms do cbTransforms.Items.Add(IntToStr(i));
|
||||
if EnableFinalXform or cp.HasFinalXForm then cbTransforms.Items.Add('Final');
|
||||
cbTransforms.ItemIndex := SelectedTriangle;
|
||||
|
||||
if mnuChaosViewTo.Checked then prefix := 'to %d'
|
||||
else prefix := 'from %d';
|
||||
n := Transforms + 1;
|
||||
while vleChaos.RowCount > n do
|
||||
vleChaos.DeleteRow(vleChaos.RowCount-1);
|
||||
while vleChaos.RowCount < n do
|
||||
vleChaos.InsertRow(Format(prefix, [vleChaos.RowCount]), '1', true);
|
||||
end;
|
||||
|
||||
procedure TEditForm.UpdateDisplay(PreviewOnly: boolean = false);
|
||||
@ -788,10 +831,29 @@ begin
|
||||
begin
|
||||
txtP.text := Format('%.6g', [density]);
|
||||
txtP.Enabled := true;
|
||||
vleChaos.Enabled := true;
|
||||
chkXformInvisible.Enabled := true;
|
||||
chkXformInvisible.Checked := noPlot;
|
||||
chkXformSolo.Enabled := true;
|
||||
chkRetrace.Enabled := not noPlot;
|
||||
if cp.soloXform >= 0 then begin
|
||||
chkXformSolo.Checked := true;
|
||||
chkXformSolo.Caption := Format('Solo transform #%d', [cp.soloXform + 1]);
|
||||
end
|
||||
else begin
|
||||
chkXformSolo.Checked := false;
|
||||
chkXformSolo.Caption := 'Solo';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
else begin // disable controls for FinalXform
|
||||
txtP.Enabled := false;
|
||||
txtP.Text := 'n/a';
|
||||
vleChaos.Enabled := false;
|
||||
chkXformInvisible.Enabled := false;
|
||||
chkXformInvisible.Checked := false;
|
||||
chkXformSolo.Enabled := false;
|
||||
chkRetrace.Checked := true;
|
||||
chkRetrace.Enabled := false;
|
||||
end;
|
||||
tbEnableFinalXform.Down := EnableFinalXform;
|
||||
|
||||
@ -821,6 +883,27 @@ begin
|
||||
if vleVariables.Values[GetVariableNameAt(i)] <> strval then
|
||||
vleVariables.Values[GetVariableNameAt(i)] := strval;
|
||||
end;
|
||||
|
||||
//Assert(vleChaos.RowCount = Transforms+1);
|
||||
if SelectedTriangle < Transforms then begin
|
||||
if mnuChaosViewTo.Checked then
|
||||
// view as "to" values
|
||||
for i := 1 to Transforms do begin
|
||||
strval := Format('%.6g', [modWeights[i - 1]]);
|
||||
if vleChaos.Cells[1, i] <> strval then
|
||||
vleChaos.Cells[1, i] := strval;
|
||||
end
|
||||
else
|
||||
// view as "from" values
|
||||
for i := 1 to Transforms do begin
|
||||
strval := Format('%.6g', [cp.xform[i - 1].modWeights[SelectedTriangle]]);
|
||||
if vleChaos.Cells[1, i] <> strval then
|
||||
vleChaos.Cells[1, i] := strval;
|
||||
end;
|
||||
end
|
||||
else
|
||||
for i := 1 to vleChaos.RowCount-1 do
|
||||
vleChaos.Cells[1, i] := 'n/a';
|
||||
end;
|
||||
|
||||
if PivotMode = pivotLocal then begin
|
||||
@ -954,7 +1037,7 @@ end;
|
||||
|
||||
procedure TEditForm.DeleteTriangle(t: integer);
|
||||
var
|
||||
i: integer;
|
||||
i, j: integer;
|
||||
begin
|
||||
if (t = Transforms) then
|
||||
begin
|
||||
@ -973,6 +1056,14 @@ begin
|
||||
if (Transforms <= 1) then exit
|
||||
else begin
|
||||
MainForm.UpdateUndo;
|
||||
// delete xform from all probability tables
|
||||
for i := 0 to Transforms-1 do
|
||||
with cp.xform[i] do begin
|
||||
for j := t to Transforms-1 do
|
||||
modWeights[j] := modWeights[j+1];
|
||||
modWeights[Transforms-1] := 1;
|
||||
end;
|
||||
//
|
||||
if t = (Transforms - 1) then
|
||||
begin
|
||||
MainTriangles[t] := MainTriangles[Transforms];
|
||||
@ -1110,6 +1201,7 @@ var
|
||||
tps: TPenStyle;
|
||||
tT: TTriangle;
|
||||
txx, txy, tyx, tyy: double;
|
||||
str: string;
|
||||
label DrawCorner;
|
||||
begin
|
||||
if (SelectedTriangle < 0) then begin
|
||||
@ -1439,8 +1531,10 @@ begin
|
||||
for i:= NRVAR - 1 downto 0 do
|
||||
if cp.xform[mouseOverTriangle].vars[i] <> 0 then
|
||||
begin
|
||||
ax := Width-foc_ofs*2 - TextWidth(Varnames(i));
|
||||
TextOut(ax, ay, Varnames(i));
|
||||
str := Varnames(i);
|
||||
if str='julian' then str := str + ' ' + cp.xform[mouseOverTriangle].GetVariableStr('julian_power'); // hack
|
||||
ax := Width-foc_ofs*2 - TextWidth(str);
|
||||
TextOut(ax, ay, str);
|
||||
Inc(ay, font.Height);
|
||||
end;
|
||||
// brush.Style := bsSolid;
|
||||
@ -1579,6 +1673,11 @@ begin
|
||||
vleVariables.InsertRow(GetVariableNameAt(i), '0', True);
|
||||
end;
|
||||
|
||||
// for i:= 0 to NXFORMS - 1 do begin
|
||||
// vleChaos.InsertRow(inttostr(i + 1), '1', True);
|
||||
// end;
|
||||
vleChaos.InsertRow('to 1', '1', true);
|
||||
|
||||
GraphZoom := 1;
|
||||
|
||||
case EditPrevQual of
|
||||
@ -2348,6 +2447,8 @@ begin
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuDupClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if Transforms < NXFORMS then
|
||||
begin
|
||||
@ -2358,6 +2459,9 @@ begin
|
||||
begin
|
||||
MainTriangles[Transforms] := MainTriangles[SelectedTriangle];
|
||||
cp.xform[Transforms].Assign(cp.xform[SelectedTriangle]);
|
||||
for i := 0 to Transforms-1 do
|
||||
cp.xform[i].modWeights[Transforms] := cp.xform[i].modWeights[SelectedTriangle];
|
||||
cp.xform[Transforms].modWeights[Transforms] := cp.xform[SelectedTriangle].modWeights[SelectedTriangle];
|
||||
SelectedTriangle := Transforms;
|
||||
end
|
||||
else cp.xform[Transforms].density := 0.5;
|
||||
@ -2547,6 +2651,7 @@ var
|
||||
Allow: boolean;
|
||||
NewVal, OldVal: double;
|
||||
begin
|
||||
if SelectedTriangle >= Transforms then exit;
|
||||
Allow := True;
|
||||
OldVal := Round6(cp.xform[SelectedTriangle].density);
|
||||
{ Test that it's a valid floating point number }
|
||||
@ -3110,8 +3215,16 @@ begin
|
||||
SetCaptureControl(TValueListEditor(Sender));
|
||||
if Sender = VEVars then
|
||||
varDragValue := cp.xform[SelectedTriangle].vars[varDragIndex]
|
||||
else
|
||||
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[varDragIndex+1], varDragValue);
|
||||
else if Sender = vleVariables then
|
||||
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[varDragIndex+1], varDragValue)
|
||||
else if Sender = vleChaos then begin
|
||||
if mnuChaosViewTo.Checked then
|
||||
pDragValue := @cp.xform[SelectedTriangle].modWeights[varDragIndex]
|
||||
else
|
||||
pDragValue := @cp.xform[varDragIndex].modWeights[SelectedTriangle];
|
||||
varDragValue := pDragValue^;
|
||||
end
|
||||
else Assert(false);
|
||||
|
||||
HasChanged := False;
|
||||
end;
|
||||
@ -3153,15 +3266,17 @@ begin
|
||||
if Sender = VEVars then
|
||||
begin
|
||||
cp.xform[SelectedTriangle].vars[varDragIndex] := v;
|
||||
TValueListEditor(Sender).Values[VarNames(varDragIndex)] := FloatToStr(v); //Format('%.6g', [v]);
|
||||
VEVars.Values[VarNames(varDragIndex)] := FloatToStr(v); //Format('%.6g', [v]);
|
||||
end
|
||||
else begin
|
||||
else if Sender = vleVariables then begin
|
||||
cp.xform[SelectedTriangle].SetVariable(vleVariables.Keys[varDragIndex+1], v);
|
||||
vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := FloatToStr(v);
|
||||
{
|
||||
vleVariables.Values[vleVariables.Keys[varDragIndex+1]] :=
|
||||
cp.xform[SelectedTriangle].GetVariableStr(vleVariables.Keys[varDragIndex+1]);
|
||||
}
|
||||
end
|
||||
else begin
|
||||
if v < 0 then v := 0;
|
||||
//cp.xform[SelectedTriangle].modWeights[varDragIndex] := v;
|
||||
pDragValue^ := v;
|
||||
vleChaos.Cells[1, varDragIndex+1] := FloatToStr(v);
|
||||
end;
|
||||
|
||||
HasChanged := True;
|
||||
@ -3208,13 +3323,27 @@ begin
|
||||
//VEVars.Values[VarNames(n)] := '0';
|
||||
changed := (cp.xform[SelectedTriangle].vars[n] <> v);
|
||||
end
|
||||
else begin
|
||||
else if Sender = vleVariables then begin
|
||||
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[n + 1], v);
|
||||
cp.xform[SelectedTriangle].ResetVariable(vleVariables.Keys[n + 1]);
|
||||
//vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := '0';
|
||||
cp.xform[SelectedTriangle].GetVariable(vleVariables.Keys[n + 1], v1);
|
||||
changed := (v1 <> v);
|
||||
end;
|
||||
end
|
||||
else if Sender = vleChaos then begin
|
||||
if mnuChaosViewTo.Checked then
|
||||
pDragValue := @cp.xform[SelectedTriangle].modWeights[varDragIndex]
|
||||
else
|
||||
pDragValue := @cp.xform[varDragIndex].modWeights[SelectedTriangle];
|
||||
v := pDragValue^;
|
||||
//v := cp.xform[SelectedTriangle].modWeights[n];
|
||||
v := ifthen(v = 1, 0, 1);
|
||||
//cp.xform[SelectedTriangle].modWeights[n] := v;
|
||||
pDragValue^ := v;
|
||||
vleChaos.Cells[1, n+1] := FloatToStr(v);
|
||||
changed := true;
|
||||
end
|
||||
else Assert(false);
|
||||
|
||||
if changed then MainForm.UpdateUndo;
|
||||
UpdateFlame(true);
|
||||
@ -4640,5 +4769,236 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
// --------------------------------------------------------------- Chaos Editor
|
||||
|
||||
procedure TEditForm.ValidateChaos;
|
||||
var
|
||||
i: integer;
|
||||
NewVal, OldVal: double;
|
||||
begin
|
||||
i := vleChaos.Row - 1;
|
||||
|
||||
if mnuChaosViewTo.Checked then
|
||||
OldVal := Round6(cp.xform[SelectedTriangle].modWeights[i])
|
||||
else
|
||||
OldVal := Round6(cp.xform[i].modWeights[SelectedTriangle]);
|
||||
|
||||
try
|
||||
NewVal := Round6(StrToFloat(vleChaos.Cells[1, i+1]));
|
||||
except
|
||||
vleChaos.Cells[1, i+1] := Format('%.6g', [OldVal]);
|
||||
exit;
|
||||
end;
|
||||
if (NewVal <> OldVal) then
|
||||
begin
|
||||
MainForm.UpdateUndo;
|
||||
|
||||
if mnuChaosViewTo.Checked then
|
||||
cp.xform[SelectedTriangle].modWeights[i] := NewVal
|
||||
else
|
||||
cp.xform[i].modWeights[SelectedTriangle] := NewVal;
|
||||
|
||||
vleChaos.Cells[1, i+1] := Format('%.6g', [NewVal]);
|
||||
ShowSelectedInfo;
|
||||
UpdateFlame(True);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditForm.vleChaosExit(Sender: TObject);
|
||||
begin
|
||||
ValidateChaos;
|
||||
end;
|
||||
|
||||
procedure TEditForm.vleChaosKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if key = #13 then
|
||||
begin
|
||||
key := #0;
|
||||
ValidateChaos;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditForm.vleChaosValidate(Sender: TObject; ACol, ARow: Integer;
|
||||
const KeyName, KeyValue: String);
|
||||
begin
|
||||
ValidateChaos;
|
||||
end;
|
||||
|
||||
procedure TEditForm.VleChaosDrawCell(Sender: TObject; ACol, ARow: Integer;
|
||||
Rect: TRect; State: TGridDrawState);
|
||||
var
|
||||
h,ax,ay,bx,by: integer;
|
||||
trgColor: TColor;
|
||||
begin
|
||||
if (ACol > 0) or (ARow = 0) then exit;
|
||||
|
||||
trgColor := GetTriangleColor(ARow - 1);
|
||||
with vleChaos.Canvas do begin
|
||||
h := Rect.Bottom - Rect.Top - 2;
|
||||
// TextOut(Rect.Left+h+2, Rect.Top+1, vleChaos.Cells[ACol, ARow]);
|
||||
|
||||
ax:=Rect.Right-3;
|
||||
ay:=Rect.Top+2;
|
||||
bx:=Rect.Right-h;
|
||||
by:=Rect.Bottom-3;
|
||||
|
||||
pen.Color := clBlack;
|
||||
Polyline([Point(ax+1, ay-2), Point(ax+1, by+1), Point(bx-2, by+1), Point(ax+1, ay-2)]);
|
||||
|
||||
pen.Color := trgColor;
|
||||
brush.Color := pen.Color shr 1 and $7f7f7f;
|
||||
Polygon([Point(ax, ay), Point(ax, by), Point(bx, by)]);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuChaosViewToClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
mnuChaosViewTo.Checked := true;
|
||||
for i := 1 to vleChaos.RowCount-1 do begin
|
||||
vleChaos.Cells[0, i] := Format('to %d', [i]);
|
||||
vleChaos.Cells[1, i] := FloatToStr(cp.xform[SelectedTriangle].modWeights[i-1]);
|
||||
end;
|
||||
//ShowSelectedInfo;
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuChaosViewFromClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
mnuChaosViewFrom.Checked := true;
|
||||
for i := 1 to vleChaos.RowCount-1 do begin
|
||||
vleChaos.Cells[0, i] := Format('from %d', [i]);
|
||||
vleChaos.Cells[1, i] := FloatToStr(cp.xform[i-1].modWeights[SelectedTriangle]);
|
||||
end;
|
||||
//ShowSelectedInfo;
|
||||
end;
|
||||
|
||||
procedure TEditForm.chkPlotModeClick(Sender: TObject);
|
||||
var
|
||||
newMode: boolean;
|
||||
begin
|
||||
if (SelectedTriangle < Transforms) then
|
||||
begin
|
||||
newMode := chkXformInvisible.Checked;
|
||||
if cp.xform[SelectedTriangle].noPlot <> newMode then begin
|
||||
MainForm.UpdateUndo;
|
||||
cp.xform[SelectedTriangle].noPlot := newMode;
|
||||
UpdateFlame(true);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuChaosClearAllClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
noEdit: boolean;
|
||||
begin
|
||||
noEdit := true;
|
||||
for i := 1 to cp.NumXForms do
|
||||
if mnuChaosViewTo.Checked then begin
|
||||
if cp.xform[SelectedTriangle].modWeights[i-1] <> 0 then begin
|
||||
noEdit := false;
|
||||
break;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
if cp.xform[i-1].modWeights[SelectedTriangle] <> 0 then begin
|
||||
noEdit := false;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
if noEdit then exit;
|
||||
|
||||
Mainform.UpdateUndo;
|
||||
for i := 1 to cp.NumXForms do
|
||||
if mnuChaosViewTo.Checked then
|
||||
cp.xform[SelectedTriangle].modWeights[i-1] := 0
|
||||
else
|
||||
cp.xform[i-1].modWeights[SelectedTriangle] := 0;
|
||||
UpdateFlame(true);
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuChaosSetAllClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
noEdit: boolean;
|
||||
begin
|
||||
noEdit := true;
|
||||
for i := 1 to cp.NumXForms do
|
||||
if mnuChaosViewTo.Checked then begin
|
||||
if cp.xform[SelectedTriangle].modWeights[i-1] <> 1 then begin
|
||||
noEdit := false;
|
||||
break;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
if cp.xform[i-1].modWeights[SelectedTriangle] <> 1 then begin
|
||||
noEdit := false;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
if noEdit then exit;
|
||||
|
||||
Mainform.UpdateUndo;
|
||||
for i := 1 to cp.NumXForms do
|
||||
if mnuChaosViewTo.Checked then
|
||||
cp.xform[SelectedTriangle].modWeights[i-1] := 1
|
||||
else
|
||||
cp.xform[i-1].modWeights[SelectedTriangle] := 1;
|
||||
UpdateFlame(true);
|
||||
end;
|
||||
|
||||
procedure TEditForm.mnuLinkPostxformClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if (Transforms < NXFORMS) and (SelectedTriangle <> Transforms) then
|
||||
begin
|
||||
MainForm.UpdateUndo;
|
||||
MainTriangles[Transforms+1] := MainTriangles[Transforms];
|
||||
cp.xform[Transforms+1].Assign(cp.xform[Transforms]);
|
||||
|
||||
MainTriangles[Transforms] := MainTriangles[-1];
|
||||
cp.xform[Transforms].Clear;
|
||||
cp.xform[Transforms].density := 0.5;
|
||||
cp.xform[Transforms].vars[0] := 1;
|
||||
|
||||
for i := 0 to Transforms-1 do begin
|
||||
cp.xform[Transforms].modWeights[i] := cp.xform[SelectedTriangle].modWeights[i];
|
||||
cp.xform[SelectedTriangle].modWeights[i] := 0;
|
||||
end;
|
||||
|
||||
for i := 0 to Transforms do
|
||||
cp.xform[i].modWeights[Transforms] := 0;
|
||||
cp.xform[SelectedTriangle].modWeights[Transforms] := 1;
|
||||
|
||||
cp.xform[Transforms].symmetry := 1;
|
||||
cp.xform[Transforms].noPlot := cp.xform[SelectedTriangle].noPlot;
|
||||
cp.xform[SelectedTriangle].noPlot := true;
|
||||
|
||||
SelectedTriangle := Transforms;
|
||||
|
||||
Inc(Transforms);
|
||||
UpdateXformsList;
|
||||
UpdateFlame(True);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEditForm.chkXformSoloClick(Sender: TObject);
|
||||
begin
|
||||
if chkXformSolo.Checked then begin
|
||||
if (SelectedTriangle < Transforms) then begin
|
||||
cp.soloXform := SelectedTriangle;
|
||||
UpdateFlame(true);
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
cp.soloXform := -1;
|
||||
UpdateFlame(true);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user