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; |
21 if vobCount = 0 then exit; |
22 |
22 |
23 sign:= 1; |
23 sign:= 1; |
24 with Gear^ do |
24 with Gear^ do |
25 begin |
25 begin |
26 inc(FrameTicks, Steps); |
26 inc(FrameTicks, Steps); |