Create  Edit  Diff  Phillro Industries  Index  Search  Changes  History  Source  RSS  Note  wikifarm  Login

ext-path-map_point

Phi-Path

map_point

point (PointInfo?) リストに対するイテレータ。 other ( self でもよい) に point を設定する。

 function Path_map_point(This, other: Tvalue): Tvalue; cdecl;
 var
   real: TPath;
   real_other: TPath;
   point: Tvalue;
   PointInfo: TPointInfo;
   i: Integer;
 begin
   real := ap_data_get_struct(This);
   ap_data_get_object(other, TPath, real_other);
   result := Qnil;
   try
     for i := 0 to real.Count-1 do
     begin
       point := PointInfo_alloc(real.Points[i]);
       rb_yield(point);
       PointInfo_assign(PointInfo, point);
       real_other.Points[i] := PointInfo;
     end;
   except
     on E: Exception do
       ap_raise(ap_ePathError, E.message);
   end;
 end;
 rb_define_method(cPath, 'map_point', @Path_map_point, 1);
Last modified:2003/07/14 21:39:22
Keyword(s):
References:[ext-path-TextEffect.rb-0625]