+++ /dev/null
-/*
- * Netris -- A free networked version of T*tris
- * Copyright (C) 1994-1996,1999 Mark H. Weaver <mhw@netris.org>
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * $Id: shapes.c,v 1.16 1999/05/16 06:56:31 mhw Exp $
- */
-
-#include "netris.h"
-#include <stdlib.h>
-
-#define ShapeName(name, dir) \
- shape_ ## name ## _ ## dir
-
-#define PreDecl(name, dir) \
- static Shape ShapeName(name, dir)
-
-#define StdShape(name, cmdName, mirror, type, realDir, dir, nextDir, prevDir) \
- static Shape ShapeName(name, dir) = { \
- &ShapeName(name, nextDir), &ShapeName(name, prevDir), \
- 0, 0, mirror, D_ ## realDir, type, cmds_ ## cmdName \
- }
-
-#define FourWayDecl(name, cmdName, mirror, type) \
- PreDecl(name, down); \
- PreDecl(name, up); \
- StdShape(name, cmdName, mirror, type, left, left, up, down); \
- PreDecl(name, right); \
- StdShape(name, cmdName, mirror, type, up, up, right, left); \
- StdShape(name, cmdName, mirror, type, right, right, down, up); \
- StdShape(name, cmdName, mirror, type, down, down, left, right)
-
-#define TwoWayDecl(name, cmdName, mirror, type) \
- PreDecl(name, vert); \
- StdShape(name, cmdName, mirror, type, right, horiz, vert, vert); \
- StdShape(name, cmdName, mirror, type, down, vert, horiz, horiz)
-
-static Cmd cmds_long[] = { C_back, C_plot, C_forw, C_plot, C_forw, C_plot,
- C_forw, C_plot, C_end };
-TwoWayDecl(long, long, 0, BT_blue);
-
-static Cmd cmds_square[] = { C_plot, C_forw, C_left, C_plot, C_forw, C_left,
- C_plot, C_forw, C_left, C_plot, C_end };
-static Shape shape_square = { &shape_square, &shape_square, 0, 0, D_up, 0,
- BT_magenta, cmds_square };
-
-static Cmd cmds_l[] = { C_right, C_back, C_plot, C_forw, C_plot, C_forw,
- C_plot, C_left, C_forw, C_plot, C_end };
-FourWayDecl(l, l, 0, BT_cyan);
-FourWayDecl(l1, l, 1, BT_yellow);
-
-static Cmd cmds_t[] = { C_plot, C_forw, C_plot, C_back, C_right, C_forw,
- C_plot, C_back, C_back, C_plot, C_end };
-FourWayDecl(t, t, 0, BT_white);
-
-static Cmd cmds_s[] = { C_back, C_plot, C_forw, C_plot, C_left, C_forw,
- C_plot, C_right, C_forw, C_plot, C_end };
-TwoWayDecl(s, s, 0, BT_green);
-TwoWayDecl(s1, s, 1, BT_red);
-
-ShapeOption stdOptions[] = {
- {1, &shape_long_horiz},
- {1, &shape_square},
- {1, &shape_l_down},
- {1, &shape_l1_down},
- {1, &shape_t_down},
- {1, &shape_s_horiz},
- {1, &shape_s1_horiz},
- {0, NULL}};
-
-Shape *netMapping[] = {
- &shape_long_horiz,
- &shape_long_vert,
- &shape_square,
- &shape_l_down,
- &shape_l_right,
- &shape_l_up,
- &shape_l_left,
- &shape_l1_down,
- &shape_l1_right,
- &shape_l1_up,
- &shape_l1_left,
- &shape_t_down,
- &shape_t_right,
- &shape_t_up,
- &shape_t_left,
- &shape_s_horiz,
- &shape_s_vert,
- &shape_s1_horiz,
- &shape_s1_vert,
- NULL};
-
-ExtFunc void MoveInDir(Dir dir, int dist, int *y, int *x)
-{
- switch (dir) {
- case D_down: *y -= dist; break;
- case D_right: *x += dist; break;
- case D_up: *y += dist; break;
- case D_left: *x -= dist; break;
- default:
- assert(0);
- }
-}
-
-ExtFunc Dir RotateDir(Dir dir, int delta)
-{
- return 3 & (dir + delta);
-}
-
-ExtFunc int ShapeIterate(Shape *s, int scr, int y, int x, int falling,
-ExtFunc ShapeDrawFunc func, void *data)
-{
- int i, mirror, result;
- Dir dir;
- BlockType type;
-
- y += s->initY;
- x += s->initX;
- dir = s->initDir;
- type = falling ? -s->type : s->type;
- mirror = s->mirrored ? -1 : 1;
- for (i = 0; s->cmds[i] != C_end; ++i)
- switch (s->cmds[i]) {
- case C_forw:
- MoveInDir(dir, 1, &y, &x);
- break;
- case C_back:
- MoveInDir(dir, -1, &y, &x);
- break;
- case C_left:
- dir = RotateDir(dir, mirror);
- break;
- case C_right:
- dir = RotateDir(dir, -mirror);
- break;
- case C_plot:
- if ((result = func(scr, y, x, type, data)))
- return result;
- break;
- default:
- assert(0);
- }
- return 0;
-}
-
-ExtFunc Shape *ChooseOption(ShapeOption *options)
-{
- int i;
- float total = 0, val;
-
- for (i = 0; options[i].shape; ++i)
- total += options[i].weight;
- val = Random(0, 32767) / 32768.0 * total;
- for (i = 0; options[i].shape; ++i) {
- val -= options[i].weight;
- if (val < 0)
- return options[i].shape;
- }
- return options[0].shape;
-}
-
-ExtFunc short ShapeToNetNum(Shape *shape)
-{
- int num;
-
- for (num = 0; netMapping[num]; ++num)
- if (netMapping[num] == shape)
- return num;
- assert(0);
- return 0;
-}
-
-ExtFunc Shape *NetNumToShape(short num)
-{
- assert(num >= 0 && num < sizeof(netMapping) / sizeof(netMapping[0]) - 1);
- return netMapping[num];
-}
-
-/*
- * vi: ts=4 ai
- * vim: noai si
- */
git.shiar.nl / netris.git / blobdiff