334 lines
6.4 KiB
C++
334 lines
6.4 KiB
C++
/*$WW,1$
|
|
This is a whimsical program which demonstrates some techniques.
|
|
|
|
$WW,0$*/
|
|
|
|
#define BORDER 20
|
|
|
|
#define PTY_PT 0
|
|
#define PTY_CIRCLE 1
|
|
#define PTY_LINE 2
|
|
#define PTY_SPRITE 3
|
|
#define PTY_NUM 4
|
|
|
|
extern class PObj;
|
|
|
|
class PPt
|
|
{
|
|
CD3I32 p;
|
|
};
|
|
|
|
class PCircle
|
|
{
|
|
PObj *p;
|
|
I64 radius;
|
|
};
|
|
|
|
class PLine
|
|
{
|
|
PObj *p1,*p2;
|
|
};
|
|
|
|
class PCSprite
|
|
{
|
|
PObj *p;
|
|
U8 *img;
|
|
I64 *r,
|
|
*dr; //Rounding error might eventually screw this up
|
|
}
|
|
|
|
|
|
class PObj
|
|
{
|
|
PObj *next,*last;
|
|
I64 type,color;
|
|
union {
|
|
PPt p;
|
|
PCircle c;
|
|
PLine l;
|
|
PCSprite g;
|
|
};
|
|
};
|
|
|
|
class PickFrame
|
|
{
|
|
PObj o_root;
|
|
I64 o_cnts[PTY_NUM];
|
|
I64 cx,cy;
|
|
};
|
|
|
|
|
|
|
|
#define NUM_IMGS 3
|
|
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<2>",2$
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<3>",3$
|
|
|
|
|
|
|
|
U8 *imgs[NUM_IMGS]={$IB,"<1>",1$,$IB,"<2>",2$,$IB,"<3>",3$};
|
|
|
|
|
|
U0 DrawIt(CTask *task,CDC *dc)
|
|
{
|
|
I64 *r,*old_r;
|
|
PickFrame *pf=FramePtr("PickFrame",task);
|
|
PObj *tempo=pf->o_root.next;
|
|
|
|
pf->cx=task->win_pixel_width>>1;
|
|
pf->cy=task->win_pixel_height>>1;
|
|
|
|
DCAllocDepthBuf(dc);
|
|
|
|
dc->color=LTRED;
|
|
dc->pen_width=3;
|
|
GrLineRect4(dc,BORDER,BORDER,2*pf->cx-BORDER,2*pf->cy-BORDER);
|
|
|
|
|
|
while (tempo!=&pf->o_root) {
|
|
dc->color=tempo->color;
|
|
switch (tempo->type) {
|
|
case PTY_PT:
|
|
GrLine(dc,pf->cx+tempo->p.p.x+2,pf->cy+tempo->p.p.y+2,pf->cx+tempo->p.p.x-2,pf->cy+tempo->p.p.y-2);
|
|
GrLine(dc,pf->cx+tempo->p.p.x-2,pf->cy+tempo->p.p.y+2,pf->cx+tempo->p.p.x+2,pf->cy+tempo->p.p.y-2);
|
|
break;
|
|
case PTY_CIRCLE:
|
|
GrCircle(dc,pf->cx+tempo->c.p->p.p.x,pf->cy+tempo->c.p->p.p.y,tempo->c.radius);
|
|
break;
|
|
case PTY_LINE:
|
|
GrLine(dc,pf->cx+tempo->l.p1->p.p.x,pf->cy+tempo->l.p1->p.p.y,pf->cx+tempo->l.p2->p.p.x,pf->cy+tempo->l.p2->p.p.y);
|
|
break;
|
|
case PTY_SPRITE:
|
|
old_r=dc->r;
|
|
dc->r=tempo->g.r;
|
|
dc->x=pf->cx+tempo->g.p->p.p.x;
|
|
dc->y=pf->cy+tempo->g.p->p.p.y;
|
|
dc->z=GR_Z_ALL;
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
SpritePlot3(dc,0,0,0,tempo->g.img);
|
|
dc->flags&=~DCF_TRANSFORMATION;
|
|
dc->r=old_r;
|
|
|
|
//Updated each refresh, not guarenteed to be uniform.
|
|
//Rounding error might corrupt, as well.
|
|
r=GrMulMat(tempo->g.dr,tempo->g.r,task);
|
|
Free(tempo->g.r);
|
|
tempo->g.r=r;
|
|
|
|
break;
|
|
}
|
|
tempo=tempo->next;
|
|
}
|
|
}
|
|
|
|
PObj *PObjNew(PickFrame *pf,I64 type,I64 color)
|
|
{
|
|
PObj *tempo=CAlloc(sizeof(PObj));
|
|
tempo->type=type;
|
|
tempo->color=color;
|
|
pf->o_cnts[type]++;
|
|
QueIns(tempo,pf->o_root.last);
|
|
return tempo;
|
|
}
|
|
|
|
U0 PObjDel(PickFrame *pf,PObj *tempo)
|
|
{
|
|
QueRem(tempo);
|
|
switch (tempo->type) {
|
|
case PTY_SPRITE:
|
|
Free(tempo->g.r);
|
|
Free(tempo->g.dr);
|
|
break;
|
|
}
|
|
pf->o_cnts[tempo->type]--;
|
|
Free(tempo);
|
|
}
|
|
|
|
PObj *PPtNew(PickFrame *pf,I64 x,I64 y)
|
|
{
|
|
PObj *tempo=PObjNew(pf,PTY_PT,BLACK);
|
|
tempo->p.p.x=x;
|
|
tempo->p.p.y=y;
|
|
return tempo;
|
|
}
|
|
|
|
PObj *PPtNum(PickFrame *pf,I64 num)
|
|
{
|
|
PObj *tempo=pf->o_root.next;
|
|
while (tempo!=&pf->o_root) {
|
|
if (tempo->type==PTY_PT && !num--)
|
|
return tempo;
|
|
tempo=tempo->next;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
PObj *PPtFind(PickFrame *pf,I64 x,I64 y)
|
|
{
|
|
I64 d,best_d=MAX_I64;
|
|
PObj *tempo=pf->o_root.next,*result=NULL;
|
|
while (tempo!=&pf->o_root) {
|
|
if (tempo->type==PTY_PT) {
|
|
d=SqrI64(tempo->p.p.x-x)+SqrI64(tempo->p.p.y-y);
|
|
if (d<best_d) {
|
|
best_d=d;
|
|
result=tempo;
|
|
}
|
|
}
|
|
tempo=tempo->next;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
PObj *PCircleNew(PickFrame *pf,I64 p_num,I64 r)
|
|
{
|
|
PObj *tempo=PObjNew(pf,PTY_CIRCLE,RED);
|
|
tempo->c.p=PPtNum(pf,p_num);
|
|
tempo->c.radius=r;
|
|
return tempo;
|
|
}
|
|
|
|
PObj *PLineNew(PickFrame *pf,I64 p1_num,I64 p2_num)
|
|
{
|
|
PObj *tempo=PObjNew(pf,PTY_LINE,GREEN);
|
|
tempo->l.p1=PPtNum(pf,p1_num);
|
|
tempo->l.p2=PPtNum(pf,p2_num);
|
|
return tempo;
|
|
}
|
|
|
|
PObj *PCSpriteNew(PickFrame *pf,U8 *img,I64 p_num,I64 *r,I64 *dr)
|
|
{
|
|
PObj *tempo=PObjNew(pf,PTY_SPRITE,BLACK);
|
|
tempo->g.p=PPtNum(pf,p_num);
|
|
tempo->g.img=img;
|
|
tempo->g.r=r;
|
|
tempo->g.dr=dr;
|
|
return tempo;
|
|
}
|
|
|
|
PickFrame *Init()
|
|
{
|
|
PickFrame *pf=CAlloc(sizeof(PickFrame));
|
|
I64 i,*r,*dr;
|
|
|
|
pf->cx=Fs->win_pixel_width>>1;
|
|
pf->cy=Fs->win_pixel_height>>1;
|
|
|
|
pf->o_root.next=pf->o_root.last=&pf->o_root;
|
|
for (i=0;i<50;i++)
|
|
PPtNew(pf,RandI32%(pf->cx-BORDER),RandI32%(pf->cy-BORDER));
|
|
for (i=0;i<20;i++)
|
|
PCircleNew(pf,pf->o_cnts[PTY_PT]*RandU16/MAX_U16,6);
|
|
for (i=0;i<20;i++)
|
|
PLineNew(pf,pf->o_cnts[PTY_PT]*RandU16/MAX_U16,pf->o_cnts[PTY_PT]*RandU16/MAX_U16);
|
|
for (i=0;i<10;i++) {
|
|
r=GrIdent;
|
|
dr=GrIdent;
|
|
GrRotZEqu(dr,0.05*2*(Rand-0.5));
|
|
GrRotYEqu(dr,0.05*2*(Rand-0.5));
|
|
GrRotXEqu(dr,0.05*2*(Rand-0.5));
|
|
PCSpriteNew(pf,imgs[NUM_IMGS*RandU16/MAX_U16],pf->o_cnts[PTY_PT]*RandU16/MAX_U16,r,dr);
|
|
}
|
|
FramePtrSet("PickFrame",pf);
|
|
return pf;
|
|
}
|
|
|
|
U0 CleanUp(PickFrame *pf)
|
|
{
|
|
PObj *tempo=pf->o_root.next,*tempo1;
|
|
while (tempo!=&pf->o_root) {
|
|
tempo1=tempo->next;
|
|
PObjDel(pf,tempo);
|
|
tempo=tempo1;
|
|
}
|
|
Free(pf);
|
|
}
|
|
|
|
U0 Pick3D()
|
|
{
|
|
I64 msg_code,p1,p2;
|
|
PObj *tempo;
|
|
PickFrame *pf=NULL;
|
|
|
|
FramePtrAdd("PickFrame",pf);
|
|
|
|
MenuPush(
|
|
"File {"
|
|
" Abort(,CH_SHIFT_ESC);"
|
|
" Exit(,CH_ESC);"
|
|
"}"
|
|
"Play {"
|
|
" Restart(,'\n');"
|
|
"}"
|
|
);
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
WinMax;
|
|
WinBorder;
|
|
DocClear;
|
|
"$$BK,1$$Move things around.$$BK,0$$\n";
|
|
WordStat;
|
|
Preempt(OFF);
|
|
pf=Init;
|
|
tempo=NULL;
|
|
Fs->win_inhibit=WIF_ALL-WIF_CTRLS-WIF_MENU;
|
|
Fs->draw_it=&DrawIt;
|
|
try {
|
|
while (TRUE) {
|
|
switch (msg_code=GetMsg(&p1,&p2,1<<MSG_KEY_DOWN|1<<MSG_IP_L_DOWN|1<<MSG_IP_L_UP|1<<MSG_IP_MOVE)) {
|
|
case MSG_KEY_DOWN:
|
|
switch (p1) {
|
|
case '\n':
|
|
CleanUp(pf);
|
|
pf=Init;
|
|
tempo=NULL;
|
|
break;
|
|
case CH_SHIFT_ESC:
|
|
case CH_ESC:
|
|
goto pd_done;
|
|
}
|
|
break;
|
|
case MSG_IP_L_DOWN:
|
|
tempo=PPtFind(pf,p1-pf->cx,p2-pf->cy);
|
|
break;
|
|
case MSG_IP_L_UP:
|
|
if (tempo) {
|
|
tempo->p.p.x=p1-pf->cx;
|
|
tempo->p.p.y=p2-pf->cy;
|
|
tempo=NULL;
|
|
}
|
|
break;
|
|
case MSG_IP_MOVE:
|
|
if (tempo) {
|
|
tempo->p.p.x=p1-pf->cx;
|
|
tempo->p.p.y=p2-pf->cy;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
pd_done:
|
|
GetMsg(,,1<<MSG_KEY_UP);
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
MenuPop;
|
|
CleanUp(pf);
|
|
FramePtrDel("PickFrame");
|
|
}
|
|
|
|
Pick3D;
|
|
z çÿÿÿçÿÿÿ çÿÿÿ çÿÿÿñÿÿÿ Ò öÿÿÿ
|
|
|
|
öÿÿÿ öÿÿÿöÿÿÿ ž çÿÿÿ çÿÿÿ çÿÿÿ |