equal
deleted
inserted
replaced
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
18 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
19 var sign: float; |
19 var sign: float; |
20 begin |
20 begin |
|
21 if ((cReducedQuality and rqkillFlakes) <> 0) then exit; |
|
22 |
21 sign:= 1; |
23 sign:= 1; |
22 with Gear^ do |
24 with Gear^ do |
23 begin |
25 begin |
24 inc(FrameTicks, Steps); |
26 inc(FrameTicks, Steps); |
25 if FrameTicks > vobFrameTicks then |
27 if FrameTicks > vobFrameTicks then |