Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1768 → Rev 1769

/programs/demos/life2/life2.cpp
0,0 → 1,1984
#include <menuet.h>
#include <me_heap.h>
#include <me_file.h>
#include "lifegen.h"
#include "life_bmp.h"
#include "me_cdlg.h"
 
using namespace Menuet;
 
/***
#define StrLen LibbStrLen
#define StrCopy LibbStrCopy
#define MemCopy LibbMemCopy
#define MemSet LibbMemSet
#define Floor LibbFloor
 
unsigned int (*StrLen)(const char *str) = 0;
char *(*StrCopy)(char *dest, const char *src) = 0;
void *(*MemCopy)(void *dest, const void *src, unsigned int n) = 0;
void *(*MemSet)(void *s, char c, unsigned int n) = 0;
double (*Floor)(double x) = 0;
 
#include <windows.h>
void LibbInit()
{
HINSTANCE hLib = LoadLibrary("Libb.dll");
if (!hLib)
{
DebugPutString("Can't load the library.\n");
Menuet::Abort();
}
StrLen = (unsigned int(*)(const char *str))GetProcAddress(hLib, "StrLen");
StrCopy = (char *(*)(char *dest, const char *src))GetProcAddress(hLib, "StrCopy");
MemCopy = (void *(*)(void *dest, const void *src, unsigned int n))GetProcAddress(hLib, "MemCopy");
MemSet = (void *(*)(void *s, char c, unsigned int n))GetProcAddress(hLib, "MemSet");
Floor = (double (*)(double x))GetProcAddress(hLib, "Floor");
}
 
#pragma startup LibbInit
/**/
 
void __stdcall OneGeneration(int w, int h, void *dest, const void *src, int flag);
 
struct GenerateParam
{
unsigned int gps;
unsigned int paint_time, time, count;
bool stop;
int paint;
double speed;
};
 
struct AxisParam
{
unsigned int win;
int p;
double shift;
};
 
struct MouseParam
{
int hit_x, hit_y, last_x, last_y;
int button, hit_type;
 
enum {HitNull = 0, HitLine, HitCircle, HitScroll};
};
 
struct MenuButtonParam
{
int left, size, border;
bool check;
const unsigned char *bitmap;
 
int Left() const {return left;}
int Right() const {return left + size;}
};
 
const int MenuDig = 10;
 
struct MenuParam
{
enum {Size = 20, NButton = 14};
 
bool draw;
int pressed, current, edit;
int edit_index, edit_num[2], edit_num_max;
MenuButtonParam button[NButton];
const unsigned char *digit[MenuDig];
};
 
struct TimeGeneration
{
unsigned int t, g;
};
 
enum MenuItem {MenuIHide, MenuIClear, MenuIOpen, MenuIAbout, MenuIExit,
MenuIGenerate, MenuIRandom, MenuIVCircle, MenuIHCircle,
MenuILine, MenuIScroll, MenuIWinSize, MenuISize, MenuISpeed};
 
enum {PaintWNull = 0, PaintWPole = 1, PaintWMenuBorder = 2, PaintWMenu = 6,
PaintWSpeed = 8, PaintWAll = 15, PaintWFast = 64, PaintWNow = 128};
 
enum {TimeGenLength = 500};
 
unsigned char *life_data = 0, *picture = 0;
GenerateParam generate = {0, 0, 0, 0, false, PaintWNull, 0};
AxisParam xpar = {0, 0, 0};
AxisParam ypar = {0, 0, 0};
MouseParam mpar = {0, 0, 0, 0, 0, MouseParam::HitNull};
MenuParam menu;
TOpenFileStruct open_file_str = MENUET_OPEN_FILE_INIT;
TimeGeneration timegen[TimeGenLength];
int timegenpos = 0;
 
#ifdef __MENUET__
 
inline int abs(int i) {return (i >= 0) ? i : (-i);}
 
unsigned int rand_data[4];
 
void randomize()
{
rand_data[0] = (unsigned int)Clock();
rand_data[1] = (unsigned int)GetPackedTime();
rand_data[2] = (unsigned int)GetPackedDate();
rand_data[3] = (unsigned int)0xA3901BD2 ^ GetPid();
}
 
unsigned int rand()
{
rand_data[0] ^= _HashDword(rand_data[3] + 0x2835C013U);
rand_data[1] += _HashDword(rand_data[0]);
rand_data[2] -= _HashDword(rand_data[1]);
rand_data[3] ^= _HashDword(rand_data[2]);
return rand_data[3];
}
 
#define random(k) (rand() % (k))
 
#else
 
#include <stdlib.h>
 
#endif
 
/*void DebugPutNumber(int x)
{
char word[12], *w = word, *s, c;
int i;
if (x < 0) {*(w++) = '-'; x = -x;}
s = w;
do
{
*(s++) = char('0' + (unsigned int)x % 10U);
(unsigned int&)x /= 10U;
} while(x);
for (i = 0; w + i < s - 1 - i; i++)
{
c = w[i]; w[i] = s[-1 - i]; s[-1 - i] = c;
}
*s = 0;
DebugPutString(word);
}*/
 
bool SetPictureSize(int w = -1, int h = -1)
{
if (w > 32767) w = 32767;
if (h > 32767) h = 32767;
if (w > 0) xpar.win = (unsigned short)w;
if (h > 0) ypar.win = (unsigned short)h;
if (picture) {Free(picture); picture = 0;}
if (w == 0 || h == 0 || xpar.win == 0 || ypar.win == 0) return true;
picture = (unsigned char*)Alloc(3 * xpar.win * ypar.win);
return picture != 0;
 
}
 
bool SetPoleSize(int w = -1, int h = -1)
{
int s;
if (w > 32767) w = 32767;
if (h > 32767) h = 32767;
if (w > 0) xpar.p = (unsigned short)w;
if (h > 0) ypar.p = (unsigned short)h;
if (xpar.p < 4) xpar.p = 4;
if (ypar.p < 4) ypar.p = 4;
if (life_data) {Free(life_data); life_data = 0;}
if (w == 0 || h == 0) return true;
s = GetDataSize(xpar.p, ypar.p);
life_data = (unsigned char*)Alloc(2*s + DataMemAdd);
if (!life_data) return false;
MemSet(GetDataAddress(life_data), 0, s);
return true;
}
 
int GetMenuHeight();
 
void GetPaintSize(int &w, int &h, int &xx, int &yy)
{
int t = GetMenuHeight();
w = xpar.win; h = ypar.win - t;
xx = 0; yy = t;
}
 
double GetAxisRatio(const AxisParam &par, int s)
{
int t = par.p - s;
if (s <= 0 || t <= 0) return 0;
return double(t) / 2;
}
 
void GetAxisShift(const AxisParam &par, int &s, int &k, int &kk)
{
int t = par.p - s;
if (t < 0) {kk += (-t) / 2; t = 0; s = par.p;}
if (s <= 0 || t <= 0) k = 0;
else
{
double r = double(t) / 2;
k = (int)Floor(r * (1 + par.shift));
if (k < 0) k = 0;
else if (k > t) k = t;
}
}
 
void GetPaintOrigin(int &w, int &h, int &x, int &y, int &xx, int &yy)
{
GetPaintSize(w, h, xx, yy);
GetAxisShift(xpar, w, x, xx);
GetAxisShift(ypar, h, y, yy);
}
 
void ApplyScroll(unsigned char *data1 = life_data, unsigned char *data0 = 0)
{
if (!data0) data0 = data1;
data0 = (unsigned char*)GetDataAddress(data0);
data1 = (unsigned char*)GetDataAddress(data1);
const double min_ratio = 1e-2;
double r;
int w, h, xx, yy;
GetPaintSize(w, h, xx, yy);
xx = 0; yy = 0;
r = GetAxisRatio(xpar, w);
if (menu.button[MenuIHCircle].check)
{
xx = mpar.hit_x - mpar.last_x + (int)Floor(xpar.shift * r + 0.5);
xx %= xpar.p - 2;
if (xx < 0) xx += xpar.p - 2;
xpar.shift = 0;
}
else if (r < min_ratio) xpar.shift = 0;
else
{
xpar.shift -= double(mpar.last_x - mpar.hit_x) / r;
if (xpar.shift < -1) xpar.shift = -1;
else if (xpar.shift > 1) xpar.shift = 1;
}
r = GetAxisRatio(ypar, h);
if (menu.button[MenuIVCircle].check)
{
yy = mpar.hit_y - mpar.last_y + (int)Floor(ypar.shift * r + 0.5);
yy %= ypar.p - 2;
if (yy < 0) yy += ypar.p - 2;
ypar.shift = 0;
}
else if (r < min_ratio) ypar.shift = 0;
else
{
ypar.shift -= double(mpar.last_y - mpar.hit_y) / r;
if (ypar.shift < -1) ypar.shift = -1;
else if (ypar.shift > 1) ypar.shift = 1;
}
if (xx == 0 && yy == 0)
{
if (data0 != data1) MemCopy(data0, data1, GetDataSize(xpar.p, ypar.p));
}
else
{
int i, j;
i = GetDataSize(xpar.p, ypar.p);
if (data0 == data1)
{
data1 += i;
MemCopy(data1, data0, i);
}
MemSet(data0, 0, i);
APosPixel pixel0(xpar.p, ypar.p, data0);
APosPixel pixel1(xpar.p, ypar.p, data1);
for (i = 0; i < xpar.p; i++)
{
pixel0.SetTo(i, 0);
pixel1.SetTo(xx, yy);
j = ypar.p - yy;
for (;;)
{
if (pixel1.GetPixel()) pixel0.Set1Pixel();
if (--j == 0) break;
pixel0.AddY1(); pixel1.AddY1();
}
if (yy)
{
pixel0.AddY1();
pixel1.SetTo(xx, 2);
j = yy;
for (;;)
{
if (pixel1.GetPixel()) pixel0.Set1Pixel();
if (--j == 0) break;
pixel0.AddY1(); pixel1.AddY1();
}
}
xx++;
if (xx >= xpar.p) xx = 2;
}
}
}
 
void DrawLine(int x0, int y0, int x1, int y1, bool c, unsigned char *data0 = life_data)
{
int i;
if (y0 == y1)
{
if (x0 > x1) {i = x0; x0 = x1; x1 = i;}
if (x1 < 0 || x0 >= xpar.p || y1 < 0 || y0 >= ypar.p) return;
if (x0 < 0) x0 = 0;
if (x1 >= xpar.p) x1 = xpar.p - 1;
APosPixel pixel(xpar.p, ypar.p, data0, x0, y0);
for (i = x1 - x0; i >= 0; pixel.AddX1(), i--) pixel.SetPixel(c);
}
else if (x0 == x1)
{
if (y0 > y1) {i = y0; y0 = y1; y1 = i;}
if (x1 < 0 || x0 >= xpar.p || y1 < 0 || y0 >= ypar.p) return;
if (y0 < 0) y0 = 0;
if (y1 >= ypar.p) y1 = ypar.p - 1;
APosPixel pixel(xpar.p, ypar.p, data0, x0, y0);
for (i = y1 - y0; i >= 0; pixel.AddY1(), i--) pixel.SetPixel(c);
}
else
{
long dx = x1 - x0, dy = y1 - y0;
int i;
if (abs(dx) >= abs(dy))
{
if (dx < 0)
{
i = x0; x0 = x1; x1 = i; dx = -dx;
y0 = y1; dy = -dy;
}
long vy = 0, b_x = dx / 2;
APosPixel pixel(xpar.p, ypar.p, data0, x0, y0);
for (i = x0;; i++, pixel.AddX1())
{
pixel.SetPixel(c);
if (i >= x1) break;
vy += dy;
if (vy > b_x)
{
vy -= dx;
pixel.AddY1();
}
else if (vy < -b_x)
{
vy += dx;
pixel.SubY1();
}
}
}
else
{
if (dy < 0)
{
i = y0; y0 = y1; y1 = i; dy = -dy;
x0 = x1; dx = -dx;
}
long vx = 0, b_y = dy / 2;
APosPixel pixel(xpar.p, ypar.p, data0, x0, y0);
for (i = y0;; i++, pixel.AddY1())
{
pixel.SetPixel(c);
if (i >= y1) break;
vx += dx;
if (vx > b_y)
{
vx -= dy;
pixel.AddX1();
}
else if (vx < -b_y)
{
vx += dy;
pixel.SubX1();
}
}
}
}
}
 
void FillCircle(int x0, int y0, int r, bool c, unsigned char *data0 = life_data)
{
int x = 0, y = r, v = 0;
while (x <= y)
{
DrawLine(x0 - x, y0 + y, x0 + x, y0 + y, c, data0);
if (y) DrawLine(x0 - x, y0 - y, x0 + x, y0 - y, c, data0);
if (x < y)
{
DrawLine(x0 - y, y0 + x, x0 + y, y0 + x, c, data0);
DrawLine(x0 - y, y0 - x, x0 + y, y0 - x, c, data0);
}
v += 2 * (x++) + 1;
if (v >= y) v -= 2 * (y--) - 1;
}
}
 
void RandomDraw(unsigned char *data0 = life_data)
{
if (!data0 || random(300) >= 1) return;
int d = xpar.p;
if (d > ypar.p) d = ypar.p;
data0 = (unsigned char*)GetDataAddress(data0);
d = random((d * 3) / 4);
int x = random(xpar.p - d), y = random(ypar.p - d);
if (random(10) < 1)
{
int NBusy, NTest = 4096;
NBusy = 5 * xpar.p * ypar.p;
if (NTest > NBusy) NTest = NBusy;
NBusy = 0;
for (int k = 0; k < NTest; k++)
{
if (GetDataBit(GetDataWidth(xpar.p), GetDataHeight(ypar.p), data0, random(xpar.p), random(ypar.p))) NBusy++;
}
if (NBusy * 100 < NTest)
{
if (random(3) == 0)
{
DrawLine(x, y, x + d, y + d, true, data0);
DrawLine(x, y + d, x + d, y, true, data0);
}
else
{
DrawLine(x + d/2, y, x + d/2, y + d, true, data0);
DrawLine(x, y + d/2, x + d, y + d/2, true, data0);
}
return;
}
}
if (2*d < xpar.p && 2*d < ypar.p && random(10) < 3)
{
FillCircle(x + d/2, y + d/2, d/2, false, data0);
}
else if (random(2)) DrawLine(x, y, x + d, y + d, true, data0);
else DrawLine(x, y + d, x + d, y, true, data0);
}
 
void LineInScreen(int ax, int ay, int bx, int by, bool c, unsigned char *data0 = life_data)
{
int mul = 1, sbeg, send, t0, t1;
if (ax != bx) mul *= abs(ax - bx);
if (ay != by) mul *= abs(ay - by);
sbeg = 0; send = mul;
if (ax != bx)
{
t0 = ax * (mul / (ax - bx));
t1 = (ax - xpar.p + 1) * (mul / (ax - bx));
if (t0 < t1)
{
if (sbeg < t0) sbeg = t0;
if (send > t1) send = t1;
}
else
{
if (sbeg < t1) sbeg = t1;
if (send > t0) send = t0;
}
}
else if (ax < 0 || ax >= xpar.p) return;
if (ay != by)
{
t0 = ay * (mul / (ay - by));
t1 = (ay - ypar.p + 1) * (mul / (ay - by));
if (t0 < t1)
{
if (sbeg < t0) sbeg = t0;
if (send > t1) send = t1;
}
else
{
if (sbeg < t1) sbeg = t1;
if (send > t0) send = t0;
}
}
else if (ay < 0 || ay > ypar.p) return;
if (send < sbeg) return;
DrawLine(ax + (bx - ax) * sbeg / mul, ay + (by - ay) * sbeg / mul,
ax + (bx - ax) * send / mul, ay + (by - ay) * send / mul, c, data0);
}
 
int GetRadius(int ax, int ay, int bx, int by)
{
int s, t0, t1, t, tt;
bx -= ax; by -= ay;
s = bx*bx + by*by;
t0 = 0; t1 = s;
while (t0 + 1 < t1)
{
t = (t0 + t1) / 2;
tt = t*t;
if (tt / t == t && s > tt + t) t0 = t; else t1 = t;
}
return t1;
}
 
int ReadNumberFromString(const unsigned char *&str)
{
int x = 0, s = 1;
while (*str == ' ' || *str == '\t' || *str == '\r') str++;
if (*str == '-') {s = -1; str++;}
else if (*str == '+') str++;
while (*str >= '0' && *str <= '9')
{
x = 10*x + (*str - '0');
str++;
}
return x*s;
}
 
const unsigned char *StringPrefSpace(const unsigned char *pict, int size, const unsigned char *pref)
{
const unsigned char *pict_end = pict + size;
for (;;)
{
if (!*pref) return pict;
else if (*pref == ' ')
{
if (pict >= pict_end || !(*pict == ' ' || *pict == '\t' || *pict == '\r')) return 0;
while (pict < pict_end && (*pict == ' ' || *pict == '\t' || *pict == '\r')) pict++;
pref++;
}
else if (*pref == '\n')
{
while (pict < pict_end && (*pict == ' ' || *pict == '\t' || *pict == '\r')) pict++;
if (pict >= pict_end || *pict != '\n') return 0;
pict++; pref++;
}
else if (pict >= pict_end || *pict != *pref) return 0;
else {pict++; pref++;}
}
}
 
int LifeGetPictureType(const unsigned char *&pict, int size)
{
const unsigned char *p;
p = StringPrefSpace(pict, size, (const unsigned char*)"#LifeBin 2.0\n");
if (p && p + 4 <= pict + size) {pict = p; return 1;}
p = StringPrefSpace(pict, size, (const unsigned char*)"#Life 1.05\n");
if (p) {pict = p; return 2;}
if (size >= 54 && pict[0] == 'B' && pict[1] == 'M' && *(int*)(pict+6) == 0 &&
*(int*)(pict+14) == 0x28 && *(short*)(pict+26) == 1 && *(int*)(pict+30) == 0 &&
*(short*)(pict+28) > 0 && *(short*)(pict+28) <= 32 &&
*(int*)(pict+18) >= 0 && *(int*)(pict+22) >= 0 &&
*(int*)(pict+10) >= 54 && *(int*)(pict+10) <= *(int*)(pict+2) &&
*(int*)(pict+2) <= size && *(int*)(pict+34) >= 0 &&
*(int*)(pict+34) <= *(int*)(pict+2) - *(int*)(pict+10) &&
*(int*)(pict+46) <= 256 && *(int*)(pict+50) <= *(int*)(pict+46) &&
(*(short*)(pict+28) >= 8 || *(int*)(pict+46) <= (1 << *(short*)(pict+28))))
{
if (*(int*)(pict+18) == 0 || *(int*)(pict+22) == 0) return 3;
int s = *(int*)(pict+34);
if (s == 0)
{
s = ((*(int*)(pict+18) * *(short*)(pict+28) - 1) / 32 + 1) * *(int*)(pict+22) * 4;
}
if (s > 0 && s <= *(int*)(pict+2) - *(int*)(pict+10))
{
s /= *(int*)(pict+22);
if (s < (1 << 28) && (s * 8) / *(short*)(pict+28) >= *(int*)(pict+18)) return 3;
}
}
return 0;
}
 
void LifeGetPictureSize(int &w, int &h, const unsigned char *pict, int size)
{
const unsigned char *pict_end = pict + size;
int type = LifeGetPictureType(pict, size);
w = 0; h = 0;
if (type == 1)
{
w = (int)pict[0] + ((int)pict[1] << 8);
h = (int)pict[2] + ((int)pict[3] << 8);
}
else if (type == 2)
{
int x = 0, y = 0, xb = x;
int x0 = 0, y0 = 0, x1 = -1, y1 = -1;
while (pict < pict_end && *pict)
{
while (pict < pict_end && *pict == '\n') pict++;
if (pict < pict_end && *pict == '#')
{
pict++;
if (pict < pict_end && (*pict == 'p' || *pict == 'P'))
{
pict++;
x = ReadNumberFromString(pict);
y = ReadNumberFromString(pict);
xb = x;
}
while (pict < pict_end && *pict)
{
if (*pict == '\n') {pict++; break;}
pict++;
}
continue;
}
for (; pict < pict_end && *pict; pict++)
{
if (*pict == '\n')
{
x = xb; y++;
if (pict + 1 < pict_end && pict[1] == '#') break;
continue;
}
else if (*pict == '\r') continue;
if (*pict == '*')
{
if (x0 > x) x0 = x;
if (x1 < x) x1 = x;
if (y0 > y) y0 = y;
if (y1 < y) y1 = y;
}
x++;
}
}
x0 = -2*x0; x1 = 2*x1 + 1;
y0 = -2*y0; y1 = 2*y1 + 1;
w = (x0 < x1) ? x1 : x0;
h = (y0 < y1) ? y1 : y0;
}
else if (type == 3)
{
w = *(int*)(pict+18);
h = *(int*)(pict+22);
if (w == 0) h = 0;
else if (h == 0) w = 0;
}
}
 
void LifePutPicture(int x0, int y0, const unsigned char *pict, int size, unsigned char *data0 = life_data)
{
const unsigned char *pict_end = pict + size;
int type = LifeGetPictureType(pict, size);
if (type == 1)
{
int w = (int)pict[0] + ((int)pict[1] << 8);
int h = (int)pict[2] + ((int)pict[3] << 8);
if (w && h)
{
int i, j, x, y;
pict += 4;
x0 -= w / 2; y0 -= h / 2;
x = x0 + w; y = y0 - 1;
APosPixel pixel(xpar.p, ypar.p, data0);
while (pict < pict_end)
{
if (x >= x0 + w)
{
i = (x - x0) / w;
x -= i * w; y += i;
if (y >= y0 + h) break;
j = 0;
if (x >= 0 && x < xpar.p) j |= 1;
if (y >= 0 && y < ypar.p) j |= 2;
if (j == 3) pixel.SetTo(x, y);
}
i = *(pict++);
if (i == 0)
{
if (j == 3) pixel.Set1Pixel();
i = 1;
}
x += i;
if ((j & 2) && x < x0 + w)
{
if (x >= 0 && x < xpar.p)
{
if ((j & 1) && i < 5)
{
while (i--) pixel.AddX1();
}
else
{
j |= 1;
pixel.SetTo(x, y);
}
}
else j &= ~1;
}
}
}
}
else if (type == 2)
{
int x = x0, y = y0, xb = x;
while (pict < pict_end && *pict)
{
while (pict < pict_end && *pict == '\n') pict++;
if (pict < pict_end && *pict == '#')
{
pict++;
if (pict < pict_end && (*pict == 'p' || *pict == 'P'))
{
pict++;
x = x0 + ReadNumberFromString(pict);
y = y0 + ReadNumberFromString(pict);
xb = x;
}
while (pict < pict_end && *pict)
{
if (*pict == '\n') {pict++; break;}
pict++;
}
continue;
}
if (y >= ypar.p || x >= xpar.p)
{
for (; pict < pict_end && *pict; pict++) if (*pict == '\n')
{
y++;
if (pict + 1 < pict_end && pict[1] == '#') break;
}
continue;
}
if (y < 0)
{
for (; pict < pict_end && *pict; pict++) if (*pict == '\n')
{
y++;
if (y >= 0 || (pict + 1 < pict_end && pict[1] == '#')) break;
}
if (pict + 1 < pict_end && *pict == '\n' && pict[1] == '#') continue;
}
APosPixel pixel(xpar.p, ypar.p, data0);
if (x >= 0) pixel.SetTo(x, y);
for (; pict < pict_end && *pict; pict++)
{
if (*pict == '\n')
{
x = xb; y++;
if (y >= ypar.p) break;
if (x >= 0) pixel.SetTo(x, y);
if (pict + 1 < pict_end && pict[1] == '#') break;
continue;
}
else if (*pict == '\r') continue;
if (*pict == '*') pixel.Set1Pixel();
x++;
if (x < 0) continue;
if (x >= xpar.p)
{
while (pict < pict_end && *pict && *pict != '\n') pict++;
if (pict < pict_end && *pict == '\n') pict--;
continue;
}
if (x == 0) pixel.SetTo(0, y);
else pixel.AddX1();
}
}
}
else if (type == 3)
{
int w = *(int*)(pict+18), h = *(int*)(pict+22);
if (w && h)
{
int n, i, j;
unsigned char ch;
const unsigned char *p = pict + *(int*)(pict+10);
short bp = *(short*)(pict+28);
int s = *(int*)(pict+34);
x0 -= w / 2; y0 -= h / 2;
if (x0 < xpar.p && y0 < ypar.p && x0 + w > 0 && y0 + h > 0)
{
if (s) s /= *(int*)(pict+22);
else s = ((*(int*)(pict+18) * *(short*)(pict+28) - 1) / 32 + 1) * 4;
n = (*(int*)(pict+10) - 54) / 4;
APosPixel pixel(xpar.p, ypar.p, data0);
if (y0 + h <= ypar.p) i = h - 1;
else
{
i = ypar.p - y0 - 1;
p += (ypar.p - y0) * s;
}
for (; i >= 0; i--)
{
int tj = 0, tl = 0;
if (y0 + i < 0) break;
if (x0 > 0) pixel.SetTo(x0, y0 + i);
for (j = 0; j < 8*s; j += 8)
{
if (tj >= w || x0 + tj >= xpar.p) {p += (s - j/8); break;}
ch = *(p++);
while (tj < w && x0 + tj < xpar.p && j + 8 >= (tj+1) * bp)
{
union
{
long za;
unsigned char z[4];
};
 
tl |= (unsigned long)(ch) >> ((int)j + 8 - (tj+1) * bp);
if (n)
{
if (tl >= n) za = 0;
else
{
const unsigned char *zp = pict + 54 + 4*tl;
z[0] = zp[3];
z[1] = zp[2];
z[2] = zp[1];
z[3] = zp[0];
}
}
else if (bp == 8)
{
z[0] = 0;
z[1] = z[2] = z[3] = (char)tl;
}
else if (bp == 32) za = tl;
else za = tl << (32 - bp);
 
if (x0 + tj >= 0)
{
if (x0 + tj == 0) pixel.SetTo(0, y0 + i);
else pixel.AddX1();
if ((int)z[1] + (int)z[2] + (int)z[3] >= 384)
{
pixel.Set1Pixel();
}
}
 
tl = 0;
ch &= (unsigned char)((1 << ((int)j + 8 - (tj+1) * bp)) - 1);
tj++;
}
tl |= (int)ch << ((tj+1) * bp - (j + 8));
}
}
}
}
}
}
 
void ApplyHit(unsigned char *data1 = life_data, unsigned char *data0 = 0)
{
if (!data0) data0 = data1;
if (!data0) return;
data0 = (unsigned char*)GetDataAddress(data0);
data1 = (unsigned char*)GetDataAddress(data1);
if (data0 != data1 && mpar.hit_type != MouseParam::HitScroll)
{
MemCopy(data0, data1, GetDataSize(xpar.p, ypar.p));
}
switch (mpar.hit_type)
{
case MouseParam::HitLine:
LineInScreen(mpar.hit_x, mpar.hit_y, mpar.last_x, mpar.last_y, true, data0);
break;
case MouseParam::HitCircle:
FillCircle(mpar.hit_x, mpar.hit_y,
GetRadius(mpar.hit_x, mpar.hit_y, mpar.last_x, mpar.last_y), false, data0);
break;
case MouseParam::HitScroll:
ApplyScroll(data1, data0);
break;
}
}
 
void MoveGenerateTime(unsigned int t)
{
static const unsigned int COUNT_MAX = 1 << 24;
 
if (generate.stop)
{
if (generate.count > COUNT_MAX) generate.count = COUNT_MAX;
}
else if (!generate.gps) generate.count = COUNT_MAX;
else if (t > 100 || generate.count >= generate.gps)
{
generate.count = generate.gps;
}
else if (t)
{
generate.count += (generate.gps * t -
(((generate.time + t) % 100U) * generate.gps) % 100 +
((generate.time % 100U) * generate.gps) % 100) / 100;
if (generate.count > generate.gps) generate.count = generate.gps;
}
generate.time += t;
if (timegen[timegenpos].t > (~t)) timegen[timegenpos].t = -1;
else timegen[timegenpos].t += t;
}
 
void ResetGenerate()
{
generate.time = Clock();
generate.paint_time = generate.time - 100;
generate.count = 0;
if (generate.stop)
{
generate.stop = false;
menu.button[MenuIGenerate].check = false;
}
}
 
void InitGenerate()
{
int i;
for (i = 0; i < TimeGenLength; i++)
{
timegen[timegenpos].t = -1;
timegen[timegenpos].g = 0;
}
ResetGenerate();
}
 
bool AddGenerateCount(int c)
{
if (c < 0) return false;
if (!menu.button[MenuIGenerate].check)
{
ResetGenerate();
menu.button[MenuIGenerate].check = true;
generate.paint |= PaintWMenuBorder | PaintWSpeed;
generate.stop = true;
generate.count += c;
}
else if (generate.stop) generate.count += c;
else return false;
return true;
}
 
void InitMenuButton()
{
int i;
const unsigned char *p = menu_picture, *p_end = menu_picture + sizeof(menu_picture);
const unsigned int separator = 5;
for (i = 0; i < MenuParam::NButton; i++)
{
menu.button[i].left = 0;
menu.button[i].size = MenuParam::Size - 2;
menu.button[i].border = 2;
menu.button[i].check = false;
menu.button[i].bitmap = p;
if (p && !p[0])
{
menu.button[i].bitmap = 0;
if (p[1]) p = 0;
}
if (p)
{
p += 2 + 3 * (int)p[0] * (int)p[1];
if (p > p_end) menu.button[i].bitmap = 0;
if (p >= p_end) p = 0;
}
}
p = digits_picture; p_end = digits_picture + sizeof(digits_picture);
for (i = 0; i < MenuDig; i++)
{
menu.digit[i] = p;
if (p && !p[0])
{
menu.digit[i] = 0;
if (p[1]) p = 0;
}
if (p)
{
p += 2 + ((int)p[0] * (int)p[1] + 7) / 8;
if (p > p_end) menu.digit[i] = 0;
if (p >= p_end) p = 0;
}
}
menu.draw = false;
menu.pressed = -1;
menu.current = MenuILine;
menu.edit = -1;
menu.button[menu.current].check = true;
menu.button[MenuIHide].size /= 2;
menu.button[MenuIGenerate].left += separator;
menu.button[MenuIGenerate].check = true;
menu.button[MenuIRandom].check = true;
menu.button[MenuILine].left += separator;
menu.button[MenuIWinSize].left += separator;
menu.button[MenuISize].size += 80;
menu.button[MenuISpeed].left += separator;
menu.button[MenuISpeed].size += 60;
menu.button[0].left = 1;
for (i = 1; i < MenuParam::NButton; i++)
{
menu.button[i].left += menu.button[i-1].left + menu.button[i-1].size;
}
}
 
int GetMenuYPos()
{
return 0;
}
 
int GetMenuHeight()
{
if (!menu.draw) return 0;
return (ypar.win <= MenuParam::Size) ? 0 : MenuParam::Size;
}
 
int GetMenuNumber(int k, int i)
{
if (k == menu.edit) return menu.edit_num[i];
switch (k)
{
case MenuISize:
return i ? ypar.p : xpar.p;
case MenuISpeed:
return menu.button[MenuIGenerate].check ? (int)Floor(generate.speed + 0.5) : 0;
default:
return 0;
}
}
 
void WinDrawRect(int x, int y, int w, int h, const unsigned char *const *color)
{
unsigned char *p = picture + 3 * (y * xpar.win + x);
int j;
w--; h--;
for (j = w; j > 0; j--)
{
p[0] = color[0][0]; p[1] = color[0][1]; p[2] = color[0][2];
p += 3;
}
for (j = h; j > 0; j--)
{
p[0] = color[1][0]; p[1] = color[1][1]; p[2] = color[1][2];
p += 3 * xpar.win;
}
for (j = w; j > 0; j--)
{
p[0] = color[2][0]; p[1] = color[2][1]; p[2] = color[2][2];
p -= 3;
}
for (j = h; j > 0; j--)
{
p[0] = color[3][0]; p[1] = color[3][1]; p[2] = color[3][2];
p -= 3 * xpar.win;
}
}
 
void WinFillRect(int x, int y, int w, int h, const unsigned char *color)
{
if (x >= xpar.win || y >= ypar.win || w <= 0 || h <= 0) return;
if (w > xpar.win - x) w = xpar.win - x;
if (h > ypar.win - y) h = ypar.win - y;
unsigned char *p, *pp = picture + 3 * (y * xpar.win + x);
int i, j;
for (i = h; i > 0; i--)
{
p = pp;
for (j = w; j > 0; j--)
{
*(p++) = color[0]; *(p++) = color[1]; *(p++) = color[2];
}
pp += 3 * xpar.win;
}
}
 
void WinBitmapRect(int x, int y, const unsigned char *bmp)
{
if (!bmp || !bmp[0] || !bmp[1]) return;
int w = bmp[0], h = bmp[1], strl = 3 * (int)bmp[0];
bmp += 2;
x -= w/2; y -= h/2;
if (x >= xpar.win || y >= ypar.win) return;
if (w > xpar.win - x) w = xpar.win - x;
if (h > ypar.win - y) h = ypar.win - y;
unsigned char *p, *pp = picture + 3 * (y * xpar.win + x);
const unsigned char *b;
int i, j;
for (i = h; i > 0; i--)
{
p = pp; b = bmp;
for (j = w; j > 0; j--)
{
*(p++) = *(b++); *(p++) = *(b++); *(p++) = *(b++);
}
pp += 3 * xpar.win; bmp += strl;
}
}
 
void WinBitSetRect(int x, int y, const unsigned char *set, const unsigned char *color)
{
if (!set || !set[0] || !set[1]) return;
int w = set[0], h = set[1], strr = (int)set[0];
set += 2;
x -= w/2; y -= h/2;
if (x >= xpar.win || y >= ypar.win) return;
if (w > xpar.win - x) w = xpar.win - x;
if (h > ypar.win - y) h = ypar.win - y;
strr -= w;
unsigned char *p, *pp = picture + 3 * (y * xpar.win + x);
int i, j, m = 1;
for (i = h; i > 0; i--)
{
p = pp;
for (j = w; j > 0; j--)
{
if (*set & m) {p[0] = color[0]; p[1] = color[1]; p[2] = color[2];}
p += 3;
m <<= 1;
if (!(m & 255)) {m = 1; set++;}
}
pp += 3 * xpar.win;
m <<= strr % 8; set += strr / 8;
if (!(m & 255)) {m >>= 8; set++;}
}
}
 
void WinNumberRect(int x, int y, unsigned int n, const unsigned char *color)
{
int w, m, i;
w = 0; m = n;
do
{
i = m % MenuDig; m /= MenuDig;
if (menu.digit[i]) w += 2 + menu.digit[i][0];
} while(m);
if (w <= 2) return;
x += w - (w-2) / 2;
m = n;
do
{
i = m % MenuDig; m /= MenuDig;
if (menu.digit[i])
{
x -= 2 + menu.digit[i][0];
WinBitSetRect(x + menu.digit[i][0] / 2, y, menu.digit[i], color);
}
} while(m);
}
 
void WinNumberEditRect(int x, int y, int w, int h, unsigned int n,
const unsigned char *color, const unsigned char *bg_color)
{
if (bg_color) WinFillRect(x, y, w, h, bg_color);
WinNumberRect(x + w/2, y + h/2, n, color);
}
 
void MenuPaint(int what)
{
static const unsigned char color_light0[3] = {255, 255, 255};
static const unsigned char color_light[3] = {208, 208, 208};
static const unsigned char color_face[3] = {192, 192, 192};
static const unsigned char color_shadow[3] = {128, 128, 128};
static const unsigned char color_shadow0[3] = {64, 64, 64};
static const unsigned char color_black[3] = {0, 0, 0};
static const unsigned char (&color_white)[3] = color_light0;
 
if (GetMenuHeight() < MenuParam::Size) return;
const unsigned char *color[4];
int menuy = GetMenuYPos(), i, k, x, xx, y, yy;
if ((what & PaintWSpeed) && !(what & (PaintWMenu & ~PaintWMenuBorder)) &&
menu.button[MenuISpeed].Right() < xpar.win)
{
k = MenuISpeed;
i = menu.button[k].border + 1;
xx = menu.button[k].Left() + i;
yy = menuy + 1 + i;
x = menu.button[k].size - 2*i;
y = MenuParam::Size - 2 - 2*i;
i = 0;
if (menu.button[k].bitmap) i += menu.button[k].bitmap[0] + 2;
WinNumberEditRect(xx + i, yy, x - i, y, GetMenuNumber(k, 0), color_black,
(menu.edit == k && menu.edit_index == 0) ? color_white : color_face);
}
if (!(what & PaintWMenu)) return;
if (what & (PaintWMenu & ~PaintWMenuBorder))
{
x = menu.button[MenuParam::NButton - 1].Right();
WinFillRect(0, menuy, x, 1, color_face);
WinFillRect(0, menuy + MenuParam::Size - 1, x, 1, color_face);
WinFillRect(x, menuy, xpar.win - x, MenuParam::Size, color_face);
}
for (k = 0; k < MenuParam::NButton; k++)
{
xx = menu.button[k].Left();
yy = menuy + 1;
x = menu.button[k].size;
y = MenuParam::Size - 2;
if (xx + x >= xpar.win)
{
if (what & (PaintWMenu & ~PaintWMenuBorder))
{
i = (k >= 1) ? menu.button[k-1].Right() : 0;
WinFillRect(i, yy, xpar.win - i, y, color_face);
}
break;
}
if (what & (PaintWMenu & ~PaintWMenuBorder))
{
i = (k >= 1) ? menu.button[k-1].Right() : 0;
WinFillRect(i, yy, xx - i, y, color_face);
}
for (i = 0; i < menu.button[k].border; i++)
{
if (i <= 1)
{
if (menu.button[k].check)
{
color[0] = color[3] = i ? color_shadow : color_shadow0;
color[1] = color[2] = i ? color_light : color_light0;
}
else
{
color[0] = color[3] = i ? color_light : color_light0;
color[1] = color[2] = i ? color_shadow : color_shadow0;
}
}
WinDrawRect(xx, yy, x, y, color);
xx++; yy++; x -= 2; y -= 2;
}
if (what & (PaintWMenu & ~PaintWMenuBorder))
{
WinFillRect(xx, yy, x, y, color_face);
if (menu.button[k].bitmap)
{
i = (k == MenuISpeed) ? (1 + menu.button[k].bitmap[0] / 2) : (x / 2);
WinBitmapRect(xx + i, yy + y/2, menu.button[k].bitmap);
}
if (k == MenuISize)
{
xx++; yy++; x -= 2; y -= 2;
i = x - 4;
if (menu.button[k].bitmap) i -= menu.button[k].bitmap[0];
i /= 2;
WinNumberEditRect(xx, yy, i, y, GetMenuNumber(k, 0), color_black,
(menu.edit == k && menu.edit_index == 0) ? color_white : 0);
WinNumberEditRect(xx + x - i, yy, i, y, GetMenuNumber(k, 1), color_black,
(menu.edit == k && menu.edit_index == 1) ? color_white : 0);
}
else if (k == MenuISpeed)
{
xx++; yy++; x -= 2; y -= 2;
i = 0;
if (menu.button[k].bitmap) i += menu.button[k].bitmap[0] + 2;
WinNumberEditRect(xx + i, yy, x - i, y, GetMenuNumber(k, 0), color_black,
(menu.edit == k && menu.edit_index == 0) ? color_white : 0);
}
}
}
}
 
void Paint(int what, TThreadData th);
 
void SetMenuDraw(bool draw, TThreadData th)
{
if (draw == menu.draw) return;
if (menu.pressed >= 0) menu.button[menu.pressed].check = false;
menu.pressed = -1;
menu.draw = draw;
Paint(PaintWAll | PaintWFast, th);
}
 
void SetMenuPressed(int k, TThreadData th)
{
if (menu.pressed == k) return;
if (menu.pressed >= 0) menu.button[menu.pressed].check = false;
if (k >= 0) menu.button[k].check = true;
menu.pressed = k;
Paint(PaintWMenuBorder | PaintWFast, th);
}
 
void SetMenuCurrent(int k, TThreadData th)
{
if (menu.current == k) return;
if (menu.current >= 0) menu.button[menu.current].check = false;
if (k >= 0) menu.button[k].check = true;
menu.current = k;
Paint(PaintWMenuBorder | PaintWFast, th);
}
 
void SetMenuEdit(int k, int i, TThreadData th)
{
if (menu.edit != k)
{
if (menu.edit >= 0) menu.button[menu.edit].check = false;
if (k >= 0) menu.button[k].check = true;
if (k == MenuISize) {menu.edit_num[0] = xpar.p; menu.edit_num[1] = ypar.p;}
else if (k == MenuISpeed) menu.edit_num[0] = generate.gps;
}
else if (menu.edit_index == i) return;
if (k == MenuISize) menu.edit_num_max = 32767;
else if (k == MenuISpeed) menu.edit_num_max = 9999999;
menu.edit = k; menu.edit_index = i;
Paint(PaintWMenu | PaintWFast, th);
}
 
void ApplyMenuEdit(TThreadData th)
{
if (menu.edit < 0) return;
if (menu.edit == MenuISize)
{
int w = menu.edit_num[0], h = menu.edit_num[1];
ResetGenerate();
if (xpar.p != w || ypar.p != h)
{
if (w <= 0) w = 1;
if (h <= 0) h = 1;
SetPoleSize(w, h);
generate.paint |= PaintWPole | PaintWMenu | PaintWFast;
}
}
else if (menu.edit == MenuISpeed)
{
generate.gps = menu.edit_num[0];
}
SetMenuEdit(-1, -1, th);
}
 
int GetMenuEditIndex(int k, int x)
{
if (k == MenuISize) return x >= menu.button[k].left + menu.button[k].size / 2;
else return 0;
}
 
void LifeScreenPutPicture(const unsigned char *pict, int size, TThreadData th)
{
int w, h;
ResetGenerate();
LifeGetPictureSize(w, h, pict, size);
w += 10; h += 10;
if (!life_data || xpar.p < w || ypar.p < h)
{
if (xpar.p >= w) w = xpar.p;
if (ypar.p >= h) h = ypar.p;
SetPoleSize(w, h);
if (!life_data)
{
Paint(PaintWMenu | PaintWFast, th);
return;
}
}
MemSet(GetDataAddress(life_data), 0, GetDataSize(xpar.p, ypar.p));
LifePutPicture(xpar.p / 2, ypar.p / 2, pict, size, life_data);
menu.button[MenuIRandom].check = false;
xpar.shift = 0; ypar.shift = 0;
generate.paint |= PaintWPole | PaintWMenu | PaintWFast;
// SetMenuCurrent(MenuIScroll, th);
Paint(PaintWNull, th);
}
 
void MenuOpenDialogEnd(TThreadData th)
{
int state = OpenFileGetState(open_file_str);
if (state <= 0) return;
OpenFileSetState(open_file_str, 0);
if (state != 2) return;
char *name = OpenFileGetName(open_file_str);
if (!name) return;
TFileData file = FileOpen(name);
if (!file) return;
int k = FileGetLength(file);
unsigned char *pict = 0;
if (k > 0 && k < (1 << 24))
{
pict = (unsigned char*)Alloc(k+1);
if (pict)
{
if (FileRead(file, pict, k) == k) pict[k] = 0;
else {Free(pict); pict = 0;}
}
}
FileClose(file);
if (!pict) return;
LifeScreenPutPicture(pict, k, th);
Free(pict);
}
 
void MenuWinSizeClick(TThreadData th)
{
int w = xpar.win, h = ypar.win - GetMenuHeight();
ResetGenerate();
if (w > 0 && h > 0 && (xpar.p != w || ypar.p != h))
{
SetPoleSize(w, h);
Paint(PaintWPole | PaintWMenu | PaintWFast, th);
}
}
 
void MenuGenerateClick(TThreadData th)
{
generate.stop = false;
ResetGenerate();
menu.button[MenuIGenerate].check = !menu.button[MenuIGenerate].check;
Paint(PaintWMenuBorder | PaintWSpeed | PaintWFast, th);
}
 
void MenuClearClick(TThreadData th)
{
ResetGenerate();
if (life_data) MemSet(GetDataAddress(life_data), 0, GetDataSize(xpar.p, ypar.p));
Paint(PaintWPole | PaintWFast, th);
}
 
void MenuAboutClick(TThreadData th)
{
generate.stop = false;
menu.button[MenuIGenerate].check = true;
generate.paint |= PaintWSpeed;
LifeScreenPutPicture(about_picture, sizeof(about_picture), th);
}
 
void MenuMouseClick(int x, int y, int m, TThreadData th)
{
int k, i, j = GetMenuYPos();
if (menu.edit >= 0)
{
k = menu.edit;
j = GetMenuYPos();
if (GetMenuHeight() < MenuParam::Size || y < j + 1 || y >= j + MenuParam::Size - 1 ||
x < menu.button[k].Left() || x >= menu.button[k].Right())
{
if (m == 1) ApplyMenuEdit(th);
else SetMenuEdit(-1, -1, th);
}
else SetMenuEdit(k, GetMenuEditIndex(k, x), th);
return;
}
if (GetMenuHeight() < MenuParam::Size || y < j + 1 || y >= j + MenuParam::Size - 1)
{
if (m < 0) x = -1;
else return;
}
if (m < 0)
{
if (menu.pressed < 0) return;
k = menu.pressed;
if (x < menu.button[k].Left() || x >= menu.button[k].Right())
{
if (menu.button[k].check)
{
menu.button[k].check = false;
Paint(PaintWMenuBorder | PaintWFast, th);
}
}
else if (!menu.button[k].check)
{
menu.button[k].check = true;
Paint(PaintWMenuBorder | PaintWFast, th);
}
return;
}
if (m == 0)
{
if (menu.pressed < 0 || !menu.button[menu.pressed].check) return;
switch (menu.pressed)
{
case MenuIHide:
SetMenuDraw(false, th);
break;
case MenuIClear:
MenuClearClick(th);
break;
case MenuIOpen:
if (OpenFileGetState(open_file_str) < 0) break;
OpenFileDialog(open_file_str);
break;
case MenuIAbout:
MenuAboutClick(th);
break;
case MenuIExit:
CloseWindow(th);
break;
case MenuIWinSize:
MenuWinSizeClick(th);
break;
}
return;
}
k = -1; i = MenuParam::NButton;
while (k + 1 < i)
{
j = (k + i) / 2;
if (x < menu.button[j].Left()) i = j;
else k = j;
}
i = menu.button[k].Right();
if (k < 0 || x >= i || i >= xpar.win) return;
switch (k)
{
case MenuIHide:
case MenuIClear:
case MenuIOpen:
case MenuIAbout:
case MenuIExit:
case MenuIWinSize:
SetMenuPressed(k, th);
break;
case MenuIGenerate:
MenuGenerateClick(th);
break;
case MenuIRandom:
case MenuIVCircle:
case MenuIHCircle:
menu.button[k].check = !menu.button[k].check;
Paint(PaintWMenuBorder | PaintWFast, th);
break;
case MenuILine:
case MenuIScroll:
SetMenuCurrent(k, th);
break;
case MenuISize:
case MenuISpeed:
SetMenuEdit(k, GetMenuEditIndex(k, x), th);
break;
}
}
 
void PoleMouseClick(int m, TThreadData th)
{
if (m != 1 && m != 2) return;
mpar.hit_type = MouseParam::HitNull;
switch (menu.current)
{
case MenuILine:
if (menu.draw)
{
menu.button[MenuIRandom].check = false;
generate.paint |= PaintWMenuBorder | PaintWFast;
if (m == 1) mpar.hit_type = MouseParam::HitLine;
else mpar.hit_type = MouseParam::HitCircle;
}
break;
case MenuIScroll:
if (m == 1) mpar.hit_type = MouseParam::HitScroll;
break;
}
if (mpar.hit_type) Paint(PaintWPole | PaintWFast, th);
else if (!menu.draw) SetMenuDraw(true, th);
}
 
void MenuEditPressKey(int ch, TThreadData th)
{
if (menu.edit < 0) return;
int &num = menu.edit_num[menu.edit_index];
if (ch == 27) SetMenuEdit(-1, -1, th);
else if (ch == '\r') ApplyMenuEdit(th);
else if (ch == 8) {num /= 10; Paint(PaintWMenu | PaintWFast, th);}
else if (ch >= '0' && ch <= '9')
{
num = 10 * num + (ch - '0');
if (num >= menu.edit_num_max) num = menu.edit_num_max;
Paint(PaintWMenu | PaintWFast, th);
}
else if (menu.edit == MenuISize)
{
if (ch == '\t') SetMenuEdit(MenuISize, !menu.edit_index, th);
else if (ch == 'x' || ch == 'X') SetMenuEdit(MenuISize, 0, th);
else if (ch == 'y' || ch == 'Y') SetMenuEdit(MenuISize, 1, th);
}
}
 
void CalculateSpeed()
{
double t = 0, g = 0, dn, n = 0, st = 0, sg = 0, ss = 0, sp = 0;
int i = timegenpos;
do
{
if (t >= 500) break;
g += timegen[i].g;
dn = timegen[i].g;
n += dn * (500 - t);
st += dn * t;
sg += dn * g;
ss += dn * t * t;
sp += dn * g * t;
if (--i < 0) i = TimeGenLength;
t += timegen[i].t;
} while(i != timegenpos);
ss = n * ss - st * st;
sp = n * sp - sg * st;
if (st < 1e-4 || ss < 1e-4 * st * st) g = 0;
else g = sp / ss;
generate.speed = 100 * g;
}
 
void Paint(int what, TThreadData th)
{
what |= generate.paint;
if (!(what & PaintWAll) || !life_data || xpar.win <= 0 || ypar.win <= 0) return;
 
const unsigned int FAST_PAINT_TIME = 2, WAIT_PAINT_TIME = 8;
unsigned int t = Clock() - generate.paint_time;
unsigned int wt = (what & PaintWFast) ? FAST_PAINT_TIME : WAIT_PAINT_TIME;
if (!(what & PaintWNow) && t >= (unsigned int)(-WAIT_PAINT_TIME))
{
if ((unsigned int)(-t) > wt) generate.paint_time += t + wt;
generate.paint = what;
return;
}
generate.paint_time += t + wt;
generate.paint = PaintWNull;
 
if (!picture)
{
SetPictureSize();
if (!picture) return;
}
if (what & PaintWPole)
{
const unsigned char bgcolor[3] = {128, 128, 0};
int w, h, x, y, xx, yy, i, j;
int menu0 = GetMenuYPos(), menu1 = menu0 + GetMenuHeight();
unsigned char *p = picture;
unsigned char *data0 = (unsigned char*)GetDataAddress(life_data);
int size = GetDataSize(xpar.p, ypar.p);
if (xpar.win <= 0 || ypar.win <= 0) return;
if (mpar.hit_type > 0)
{
double shift_x = xpar.shift, shift_y = ypar.shift;
ApplyHit(data0, data0 + size);
data0 += size;
GetPaintOrigin(w, h, x, y, xx, yy);
xpar.shift = shift_x; ypar.shift = shift_y;
}
else GetPaintOrigin(w, h, x, y, xx, yy);
APosPixel pixel(xpar.p, ypar.p, data0);
j = menu0;
if (j < 0) j = 0;
else if (j > yy) j = yy;
for (i = j * xpar.win; i > 0; i--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
i = menu1;
if (i < 0) i = 0;
else if (i > yy) i = yy;
p += 3 * xpar.win * (i - j);
for (i = (yy - i) * xpar.win; i > 0; i--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
for (i = 0; i < h; i++)
{
for (j = xx; j > 0; j--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
pixel.SetTo(x, (y + i) % ypar.p);
j = xpar.p - x;
if (j > w) j = w;
for (;;)
{
if (pixel.GetPixel()) {*(p++) = 255; *(p++) = 255; *(p++) = 255;}
else {*(p++) = 0; *(p++) = 0; *(p++) = 0;}
if (--j <= 0) break;
pixel.AddX1();
}
j = w - (xpar.p - x);
if (j > 0)
{
pixel.SetTo(0, (y + i) % ypar.p);
for (;;)
{
if (pixel.GetPixel()) {*(p++) = 255; *(p++) = 255; *(p++) = 255;}
else {*(p++) = 0; *(p++) = 0; *(p++) = 0;}
if (--j <= 0) break;
pixel.AddX1();
}
}
for (j = xpar.win - xx - w; j > 0; j--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
}
j = menu0;
if (j < yy + h) j = yy + h;
else if (j > ypar.win) j = ypar.win;
for (i = (j - yy - h) * xpar.win; i > 0; i--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
i = menu1;
if (i < yy + h) i = yy + h;
else if (i > ypar.win) i = ypar.win;
p += 3 * xpar.win * (i - j);
for (i = (ypar.win - i) * xpar.win; i > 0; i--)
{
*(p++) = bgcolor[0]; *(p++) = bgcolor[1]; *(p++) = bgcolor[2];
}
}
if (what & PaintWSpeed) CalculateSpeed();
MenuPaint(what);
SetPicture(picture, (unsigned short)xpar.win, (unsigned short)ypar.win, th);
}
 
bool MenuetOnStart(TStartData &me_start, TThreadData th)
{
randomize();
me_start.WinData.Title = "Black and white Life";
me_start.Width = 500; me_start.Height = 400;
InitGenerate();
InitMenuButton();
if (CommandLine[0])
{
open_file_str.state = 2;
OpenFileSetName(open_file_str, CommandLine);
}
return true;
}
 
bool MenuetOnClose(TThreadData)
{
SetPictureSize(0, 0);
SetPoleSize(0, 0);
return true;
}
 
int MenuetOnIdle(TThreadData th)
{
static const unsigned int WAIT_TIME = 2, GEN_TIME = 1;
int res = -1;
if (OpenFileGetState(open_file_str) > 0)
{
MenuOpenDialogEnd(th);
res = 0;
}
else
{
if (life_data && menu.button[MenuIGenerate].check)
{
unsigned int t = Clock() - generate.time;
if (t >= (unsigned int)(-WAIT_TIME)) res = -t;
else
{
MoveGenerateTime(t);
if (generate.count > 0)
{
unsigned char *data0 = (unsigned char*)GetDataAddress(life_data);
int size = GetDataSize(xpar.p, ypar.p);
int flag = (menu.button[MenuIHCircle].check ? 4 : 1) +
(menu.button[MenuIVCircle].check ? 8 : 2);
if (++timegenpos >= TimeGenLength) timegenpos = 0;
timegen[timegenpos].t = 0;
timegen[timegenpos].g = 0;
for (;;)
{
OneGeneration(xpar.p, ypar.p, data0 + size, data0, flag);
if (menu.button[MenuIRandom].check) RandomDraw(data0 + size);
timegen[timegenpos].g++;
if (--generate.count == 0 || (unsigned int)(Clock() - generate.time) >= GEN_TIME)
{
MemCopy(data0, data0 + size, size);
break;
}
OneGeneration(xpar.p, ypar.p, data0, data0 + size, flag);
if (menu.button[MenuIRandom].check) RandomDraw(data0);
timegen[timegenpos].g++;
if (--generate.count == 0 || (unsigned int)(Clock() - generate.time) >= GEN_TIME) break;
}
generate.paint |= PaintWPole | PaintWSpeed;
}
if (generate.stop && generate.count == 0)
{
ResetGenerate();
menu.button[MenuIGenerate].check = false;
generate.paint |= PaintWMenuBorder | PaintWSpeed;
res = -1;
}
else
{
MoveGenerateTime(Clock() - generate.time);
res = (generate.count <= generate.gps / 100) ? WAIT_TIME : 0;
MoveGenerateTime(res);
}
}
}
}
if (generate.paint)
{
Paint((res < 0 || res > WAIT_TIME) ? (PaintWNull | PaintWNow) : PaintWNull, th);
}
return res;
}
 
void MenuetOnSize(int window_rect[], Menuet::TThreadData th)
{
unsigned short w, h;
GetClientSize(w, h, window_rect[2], window_rect[3], th);
SetPictureSize(w, h);
generate.paint |= PaintWAll | PaintWFast;
if (!life_data) MenuWinSizeClick(th);
Paint(PaintWNull | PaintWNow, th);
}
 
void MenuetOnKeyPress(TThreadData th)
{
int ch;
while ((ch = GetKey()) >= 0)
{
if (mpar.hit_type > 0)
{
mpar.hit_type = 0;
generate.paint |= PaintWPole | PaintWFast;
SetMenuPressed(-1, th);
if (generate.paint) Paint(PaintWNull, th);
}
else if (menu.pressed >= 0) SetMenuPressed(-1, th);
else if (menu.edit >= 0) MenuEditPressKey(ch, th);
else
{
switch (ch)
{
case 'm':
case 'M':
SetMenuDraw(!menu.draw, th);
break;
case 'c':
case 'C':
MenuClearClick(th);
break;
case 'o':
case 'O':
if (OpenFileGetState(open_file_str) < 0) break;
OpenFileDialog(open_file_str);
break;
case 'a':
case 'A':
MenuAboutClick(th);
break;
case 'q':
case 'Q':
CloseWindow(th);
break;
case 'w':
case 'W':
MenuWinSizeClick(th);
break;
case 'g':
case 'G':
MenuGenerateClick(th);
break;
case 'r':
case 'R':
menu.button[MenuIRandom].check = !menu.button[MenuIRandom].check;
Paint(PaintWMenuBorder | PaintWFast, th);
break;
case 'v':
case 'V':
menu.button[MenuIVCircle].check = !menu.button[MenuIVCircle].check;
Paint(PaintWMenuBorder | PaintWFast, th);
break;
case 'h':
case 'H':
menu.button[MenuIHCircle].check = !menu.button[MenuIHCircle].check;
Paint(PaintWMenuBorder | PaintWFast, th);
break;
case 'l':
case 'L':
SetMenuCurrent(MenuILine, th);
break;
case 's':
case 'S':
SetMenuCurrent(MenuIScroll, th);
break;
case 'x':
case 'X':
if (!menu.draw) SetMenuDraw(true, th);
SetMenuEdit(MenuISize, 0, th);
break;
case 'y':
case 'Y':
if (!menu.draw) SetMenuDraw(true, th);
SetMenuEdit(MenuISize, 1, th);
break;
case 'f':
case 'F':
if (!menu.draw) SetMenuDraw(true, th);
SetMenuEdit(MenuISpeed, 0, th);
break;
case ' ':
case '\\':
case '|':
if (menu.button[MenuIGenerate].check && !generate.stop)
{
menu.button[MenuIGenerate].check = false;
Paint(PaintWMenuBorder | PaintWSpeed | PaintWFast, th);
}
else AddGenerateCount((ch == ' ') ? 1 : 15);
break;
}
}
}
}
 
void MenuetOnMouse(TThreadData th)
{
short xp = 0, yp = 0;
int w, h, x, y, xx, yy, m;
GetMousePosPicture(xp, yp);
m = GetMouseButton();
GetPaintOrigin(w, h, x, y, xx, yy);
x += xp - xx;
y += yp - yy;
if (mpar.hit_type > 0)
{
if (mpar.last_x != x || mpar.last_y != y)
{
mpar.last_x = x; mpar.last_y = y;
generate.paint |= PaintWPole | PaintWFast;
}
if (m != mpar.button)
{
if ((m & ~mpar.button) == 0) ApplyHit();
mpar.hit_type = 0;
generate.paint |= PaintWPole | PaintWFast;
SetMenuPressed(-1, th);
if (generate.paint) Paint(PaintWNull, th);
}
}
else if (menu.pressed >= 0)
{
if (mpar.last_x != x || mpar.last_y != y)
{
MenuMouseClick(xp, yp, -1, th);
}
if (m != mpar.button)
{
if ((m & ~mpar.button) == 0) MenuMouseClick(xp, yp, 0, th);
SetMenuPressed(-1, th);
}
}
else if (mpar.button == 0 && (m == 1 || m == 2))
{
if (xp >= 0 && xp < xpar.win && yp >= 0 && yp < ypar.win)
{
mpar.hit_x = x; mpar.hit_y = y; mpar.last_x = x; mpar.last_y = y;
yy = GetMenuYPos();
if (menu.edit >= 0 || (yp >= yy && yp < yy + GetMenuHeight()))
{
MenuMouseClick(xp, yp, m, th);
}
else PoleMouseClick(m, th);
}
}
mpar.button = m;
}
 
#ifndef __MENUET__
 
#include <windows.h>
 
void __stdcall (*DllOneGeneration)(int w, int h, void *dest, const void *src, int flag) = 0;
 
void DllInit()
{
HINSTANCE hLib = LoadLibrary("LifeGen.dll");
if (!hLib)
{
DebugPutString("Can't load the library.\n");
Menuet::Abort();
}
DllOneGeneration = (void(__stdcall*)(int, int, void*, const void*, int))GetProcAddress(hLib, "OneGeneration");
if (!DllOneGeneration)
{
DebugPutString("Can't get a library function.\n");
Menuet::Abort();
}
}
 
void __stdcall OneGeneration(int w, int h, void *dest, const void *src, int flag)
{
if (!DllOneGeneration) DllInit();
DllOneGeneration(w, h, dest, src, flag);
}
 
#endif