equal
deleted
inserted
replaced
13 * |
13 * |
14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
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 |
|
19 (* |
|
20 * This file contains the step handlers for visual gears. |
|
21 * |
|
22 * Since the effects of visual gears do not affect the course of the game, |
|
23 * no "synchronization" between players is required. |
|
24 * => The usage of safe functions or data types (e.g. GetRandom() or hwFloat) |
|
25 * is usually not necessary and therefore undesirable. |
|
26 *) |
|
27 |
18 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
28 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
19 var sign: real; |
29 var sign: real; |
20 begin |
30 begin |
21 if vobCount = 0 then exit; |
31 if vobCount = 0 then exit; |
22 |
32 |