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

added restoring xaos links if single xaos target or source is deleted

Browse Source
This commit is contained in:
zueuk 2008-09-05 03:06:58 +00:00
parent 065eb175a2
commit 92b97a9b01
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
2.10/Source/Editor.pas
View File

@ -1037,7 +1037,7 @@ end;
procedure TEditForm.DeleteTriangle(t: integer); procedure TEditForm.DeleteTriangle(t: integer);
var var
i, j: integer; i, j, nmin, nmax: integer;
begin begin
if (t = Transforms) then if (t = Transforms) then
begin begin
@ -1056,6 +1056,37 @@ begin
if (Transforms <= 1) then exit if (Transforms <= 1) then exit
else begin else begin
MainForm.UpdateUndo; MainForm.UpdateUndo;
// check for single "to" links
for i := 0 to Transforms-1 do
with cp.xform[i] do begin
nmin := NXFORMS;
nmax := -1;
for j := 0 to Transforms-1 do
if modWeights[j] <> 0 then begin
if j < nmin then nmin := j;
if j > nmax then nmax := j;
end;
if (nmin = nmax) and (nmin = t) then begin
for j := 0 to Transforms-1 do
modWeights[j] := cp.xform[t].modWeights[j];
end;
end;
// check for single "from" links
for i := 0 to Transforms-1 do
begin
if cp.xform[t].modWeights[i] = 0 then continue;
nmin := NXFORMS;
nmax := -1;
for j := 0 to Transforms-1 do
if cp.xform[j].modWeights[i] <> 0 then begin
if j < nmin then nmin := j;
if j > nmax then nmax := j;
end;
if (nmin = nmax) and (nmin = t) then begin
for j := 0 to Transforms-1 do
cp.xform[j].modWeights[i] := cp.xform[t].modWeights[i];
end;
end;
// delete xform from all probability tables // delete xform from all probability tables
for i := 0 to Transforms-1 do for i := 0 to Transforms-1 do
with cp.xform[i] do begin with cp.xform[i] do begin