プレビュー（Preview）の活用2

偶数番号のTransformを時計回りに、奇数番号のTransformを反時計方向に回す。前回の形とは随分異なることが分かる。

//fielname:rotation2.aposcript
{Transform rotation 2 ; x:stop}
Picts :=72
for i := 0 to Picts -1 do
begin
 for j :=0 to Transforms -1 do
 begin
  SetActiveTransform(j);
   if j mod 2 = 0 then
     Rotate(360/Picts);
 else
  Rotate(-360/Picts);
 end

 begin
  Preview;
  if Stopped then
  begin
   UpdateFlame :=False;
   exit;
  end;
 end;
end;
UpdateFlame :=False;