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

a quick fix...

Browse Source
This commit is contained in:
zueuk 2005-10-22 16:34:41 +00:00
parent 71923637a4
commit 8b12982403
2 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
2.10/Source/Editor.dfm
View File

@ -390,7 +390,7 @@ object EditForm: TEditForm
Top = 24 Top = 24
Width = 170 Width = 170
Height = 344 Height = 344
ActivePage = TriangleTab ActivePage = tabColors
Align = alBottom Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
MultiLine = True MultiLine = True
@ -1486,30 +1486,28 @@ object EditForm: TEditForm
Top = 184 Top = 184
Width = 129 Width = 129
Height = 25 Height = 25
Hint = 'Variation preview density'
Min = 1 Min = 1
ParentShowHint = False ParentShowHint = False
Position = 10 Position = 2
ShowHint = True ShowHint = True
TabOrder = 7 TabOrder = 7
TabStop = False TabStop = False
ThumbLength = 15 ThumbLength = 15
OnChange = tbVarPreviewClick OnChange = trkVarPreviewDensityChange
end end
object trkVarPreviewRange: TTrackBar object trkVarPreviewRange: TTrackBar
Left = 8 Left = 8
Top = 152 Top = 152
Width = 129 Width = 129
Height = 25 Height = 25
Hint = 'Variation preview range'
Min = 1 Min = 1
ParentShowHint = False ParentShowHint = False
Position = 1 Position = 2
ShowHint = True ShowHint = True
TabOrder = 8 TabOrder = 8
TabStop = False TabStop = False
ThumbLength = 15 ThumbLength = 15
OnChange = tbVarPreviewClick OnChange = trkVarPreviewRangeChange
end end
end end
end end
@ -1631,7 +1629,7 @@ object EditForm: TEditForm
Left = 353 Left = 353
Top = 80 Top = 80
Bitmap = { Bitmap = {
494C01010F001300040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 494C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000005000000001002000000000000050 0000000000003600000028000000400000005000000001002000000000000050
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@ -2295,6 +2293,7 @@ object EditForm: TEditForm
C003E001E001E001C003F1F9F1F9F1F9C003F8F90009D8D9C003FC7980098C09 C003E001E001E001C003F1F9F1F9F1F9C003F8F90009D8D9C003FC7980098C09
C003F239C609C619C003F319E309E219C003F389F189F009C003F3C1F8C1F8C1 C003F239C609C619C003F319E309E219C003F389F189F009C003F3C1F8C1F8C1
C0030021FC41F061C0070031FE01E231C00FF3F9FF09C719C01FF3FDFF8D8F8D C0030021FC41F061C0070031FE01E231C00FF3F9FF09C719C01FF3FDFF8D8F8D
C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF} C03FF3FFFFCFDFDFFFFFF3FFFFEFFFFF00000000000000000000000000000000
000000000000}
end end
end end

23
2.10/Source/Editor.pas
View File

@ -282,6 +282,8 @@ type
procedure btnOcoefsClick(Sender: TObject); procedure btnOcoefsClick(Sender: TObject);
procedure btnCoefsModeClick(Sender: TObject); procedure btnCoefsModeClick(Sender: TObject);
procedure tbVarPreviewClick(Sender: TObject); procedure tbVarPreviewClick(Sender: TObject);
procedure trkVarPreviewRangeChange(Sender: TObject);
procedure trkVarPreviewDensityChange(Sender: TObject);
private private
TriangleView: TCustomDrawControl; TriangleView: TCustomDrawControl;
@ -953,7 +955,7 @@ var
end; end;
end; end;
var var
i: integer; i, tc: integer;
d, d1: double; d, d1: double;
tx, ty: double; tx, ty: double;
@ -1070,8 +1072,9 @@ begin
cp.xform[SelectedTriangle].prepare; cp.xform[SelectedTriangle].prepare;
//for i := 0 to Transforms-1 do cp.xform[i].prepare; //for i := 0 to Transforms-1 do cp.xform[i].prepare;
i := trkVarPreviewRange.position * trkVarPreviewDensity.position; i := trkVarPreviewRange.position * trkVarPreviewDensity.position * 5;
d1 := trkVarPreviewDensity.position; d1 := trkVarPreviewDensity.position * 5;
tc := GetTriangleColor(SelectedTriangle);
for ax := -i to i do for ax := -i to i do
for ay := -i to i do for ay := -i to i do
begin begin
@ -1080,7 +1083,7 @@ begin
//cp.xform[random(Transforms)].nextpoint(tx,ty,d); //cp.xform[random(Transforms)].nextpoint(tx,ty,d);
cp.xform[SelectedTriangle].NextPoint(tx, ty, d); // d used as dummy var cp.xform[SelectedTriangle].NextPoint(tx, ty, d); // d used as dummy var
a := toscreen(tx,-ty); a := toscreen(tx,-ty);
Pixels[a.x, a.Y] := GetTriangleColor(SelectedTriangle);//$ffffff; Pixels[a.x, a.Y] := {Pixels[a.x, a.Y] xor} tc;//$ffffff;
end; end;
end; end;
@ -3505,5 +3508,17 @@ begin
TriangleView.Invalidate; TriangleView.Invalidate;
end; end;
procedure TEditForm.trkVarPreviewRangeChange(Sender: TObject);
begin
trkVarPreviewRange.Hint := Format('Range: %d', [trkVarPreviewRange.position]);
TriangleView.Invalidate;
end;
procedure TEditForm.trkVarPreviewDensityChange(Sender: TObject);
begin
trkVarPreviewDensity.Hint := Format('Density: %d', [trkVarPreviewDensity.position]);
TriangleView.Invalidate;
end;
end. end.