243 lines
6.9 KiB
C++
243 lines
6.9 KiB
C++
Bool chged;
|
|
|
|
#define DAWG_SETTINGS_SPACING 16
|
|
#define DAWG_SETTINGS_RANGE 60
|
|
#define DAWG_SETTINGS_BORDER 2
|
|
|
|
class DawgSettingsState
|
|
{
|
|
I64 cnt,n2_amp,color_scale;
|
|
} glbl_state;
|
|
|
|
U0 DrawDawgSettingsCtrl(CDC *dc,CCtrl *c)
|
|
{
|
|
DawgSettingsState *s=c->state;
|
|
|
|
dc->color=LTRED;
|
|
GrRect(dc, c->left,c->top,DAWG_SETTINGS_SPACING*4+3,DAWG_SETTINGS_SPACING*2+DAWG_SETTINGS_RANGE);
|
|
dc->color=BLUE;
|
|
GrRect(dc, c->left+DAWG_SETTINGS_BORDER,c->top+DAWG_SETTINGS_BORDER,
|
|
DAWG_SETTINGS_SPACING*4+3-2*DAWG_SETTINGS_BORDER,DAWG_SETTINGS_SPACING*2+DAWG_SETTINGS_RANGE-2*DAWG_SETTINGS_BORDER);
|
|
dc->color=BLACK;
|
|
GrLine(dc,c->left+DAWG_SETTINGS_SPACING,c->top+DAWG_SETTINGS_SPACING,
|
|
c->left+DAWG_SETTINGS_SPACING,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1);
|
|
GrLine(dc,c->left+2*DAWG_SETTINGS_SPACING+1,c->top+DAWG_SETTINGS_SPACING,
|
|
c->left+2*DAWG_SETTINGS_SPACING+1,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1);
|
|
GrLine(dc,c->left+3*DAWG_SETTINGS_SPACING+1,c->top+DAWG_SETTINGS_SPACING,
|
|
c->left+3*DAWG_SETTINGS_SPACING+1,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1);
|
|
|
|
dc->color=LTRED;
|
|
GrPrintF(dc,c->left+DAWG_SETTINGS_SPACING-FONT_WIDTH/2,
|
|
c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE+3,
|
|
"%d",s->cnt*10/DAWG_SETTINGS_RANGE);
|
|
GrPrintF(dc,c->left+2*DAWG_SETTINGS_SPACING+1-FONT_WIDTH/2,
|
|
c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE+3,
|
|
"%d",s->n2_amp*10/DAWG_SETTINGS_RANGE);
|
|
GrPrintF(dc,c->left+3*DAWG_SETTINGS_SPACING+2-FONT_WIDTH/2,
|
|
c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE+3,
|
|
"%d",s->color_scale*10/DAWG_SETTINGS_RANGE);
|
|
GrRect(dc,c->left+DAWG_SETTINGS_SPACING-3, c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->cnt-2 ,7,5);
|
|
GrRect(dc,c->left+2*DAWG_SETTINGS_SPACING+1-3,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->n2_amp-2,7,5);
|
|
GrRect(dc,c->left+3*DAWG_SETTINGS_SPACING+2-3,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->color_scale-2,7,5);
|
|
dc->color=YELLOW;
|
|
GrRect(dc,c->left+DAWG_SETTINGS_SPACING-2, c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->cnt-1 ,5,3);
|
|
GrRect(dc,c->left+2*DAWG_SETTINGS_SPACING+1-2,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->n2_amp-1,5,3);
|
|
GrRect(dc,c->left+3*DAWG_SETTINGS_SPACING+2-2,c->top+DAWG_SETTINGS_SPACING+DAWG_SETTINGS_RANGE-1-s->color_scale-1,5,3);
|
|
}
|
|
|
|
U0 UpdateDerivedDawgSettingsCtrl(CCtrl *c)
|
|
{
|
|
DawgSettingsState *s=c->state;
|
|
c->left=c->win_task->win_pixel_width-(DAWG_SETTINGS_SPACING*4+3);
|
|
c->right=c->left+DAWG_SETTINGS_SPACING*4+3;
|
|
c->top=c->win_task->win_pixel_height-(DAWG_SETTINGS_SPACING*2+DAWG_SETTINGS_RANGE);
|
|
c->bottom=c->top+DAWG_SETTINGS_SPACING*2+DAWG_SETTINGS_RANGE;
|
|
s->cnt =LimitI64(s->cnt,0,DAWG_SETTINGS_RANGE-1);
|
|
s->n2_amp=LimitI64(s->n2_amp,0,DAWG_SETTINGS_RANGE-1);
|
|
s->color_scale=LimitI64(s->color_scale,0,DAWG_SETTINGS_RANGE-1);
|
|
}
|
|
|
|
U0 LeftClickDawgSettings(CCtrl *c,I64 x,I64 y,Bool down)
|
|
{
|
|
DawgSettingsState *s=c->state;
|
|
if (x<c->left+(c->right-c->left)/3)
|
|
s->cnt=DAWG_SETTINGS_RANGE-1-(y-(c->top+DAWG_SETTINGS_SPACING));
|
|
else if (x<c->left+2*(c->right-c->left)/3)
|
|
s->n2_amp=DAWG_SETTINGS_RANGE-1-(y-(c->top+DAWG_SETTINGS_SPACING));
|
|
else
|
|
s->color_scale=DAWG_SETTINGS_RANGE-1-(y-(c->top+DAWG_SETTINGS_SPACING));
|
|
if (c->update_derived_vals)
|
|
(*c->update_derived_vals)(c);
|
|
if (!down) chged=TRUE;
|
|
}
|
|
|
|
CCtrl *DawgSettingsNew()
|
|
{
|
|
Bool old_preempt;
|
|
CCtrl *c=CAlloc(sizeof(CCtrl));
|
|
c->win_task=Fs;
|
|
c->flags=CTRLF_SHOW|CTRLF_CAPTURE_LEFT_IP;
|
|
c->type=CTRLT_GENERIC;
|
|
// c->state=CAlloc(sizeof(DawgSettingsState));
|
|
c->state=&glbl_state;
|
|
glbl_state.cnt=DAWG_SETTINGS_RANGE/2;
|
|
glbl_state.n2_amp=DAWG_SETTINGS_RANGE/2;
|
|
glbl_state.color_scale=DAWG_SETTINGS_RANGE/2;
|
|
c->draw_it=&DrawDawgSettingsCtrl;
|
|
c->left_click=&LeftClickDawgSettings;
|
|
c->update_derived_vals=&UpdateDerivedDawgSettingsCtrl;
|
|
old_preempt=Preempt(OFF);
|
|
QueIns(c,Fs->last_ctrl);
|
|
TaskDerivedValsUpdate;
|
|
Preempt(old_preempt);
|
|
return c;
|
|
}
|
|
|
|
U0 DawgSettingsDel(CCtrl *c)
|
|
{
|
|
Bool old_preempt=Preempt(OFF);
|
|
QueRem(c);
|
|
Preempt(old_preempt);
|
|
// Free(c->state);
|
|
Free(c);
|
|
}
|
|
|
|
|
|
|
|
//This program does a fractel-like thing with
|
|
//integer arithmetic.
|
|
|
|
class Simplex //This is something I made-up. It's not standard math.
|
|
{
|
|
I64 x,y;
|
|
};
|
|
|
|
I64 Norm(Simplex *n1)
|
|
{
|
|
return AbsI64(n1->x)+AbsI64(n1->y);
|
|
}
|
|
|
|
Simplex *CopySimplex(Simplex *dst, Simplex *src)
|
|
{
|
|
Simplex *result;
|
|
MemCpy(dst,src,sizeof(Simplex));
|
|
return dst;
|
|
}
|
|
|
|
|
|
Simplex *Mix(Simplex *result,Simplex *n1,Simplex *n2)
|
|
{ //This is something I made-up. It's not standard math.
|
|
result->x=n1->x*n2->x;
|
|
result->y=n1->y*n2->y;
|
|
return result;
|
|
}
|
|
|
|
Simplex *Mangle(Simplex *result,Simplex *n1,Simplex *n2)
|
|
{ //This is something I made-up. It's not standard math.
|
|
result->x=n1->x*n2->y;
|
|
result->y=n1->y*n2->x;
|
|
return result;
|
|
}
|
|
|
|
Simplex *Add(Simplex *result,Simplex *n1,Simplex *n2)
|
|
{
|
|
result->x=n1->x+n2->x;
|
|
result->y=n1->y+n2->y;
|
|
return result;
|
|
}
|
|
|
|
Simplex *Sub(Simplex *result,Simplex *n1,Simplex *n2)
|
|
{
|
|
result->x=n1->x-n2->x;
|
|
result->y=n1->y-n2->y;
|
|
return result;
|
|
}
|
|
|
|
|
|
U0 Bling()
|
|
{
|
|
I64 ch;
|
|
I64 x,y,cnt;
|
|
I64 d;
|
|
F64 color,color_scale;
|
|
Simplex n1,n2,n3,n4,n5,n6,n7,n8;
|
|
F64 timeout_time;
|
|
CCtrl *c=DawgSettingsNew;
|
|
CDC *dc=DCAlias;
|
|
F64 e=Exp(1);
|
|
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
DocCursor;
|
|
DocClear;
|
|
Fs->win_inhibit=WIF_ALL-WIF_BORDER-WIF_CTRLS;
|
|
|
|
chged=FALSE;
|
|
WordStat;
|
|
WinMax;
|
|
while (TRUE) {
|
|
next_dotel:
|
|
ch=0;
|
|
cnt =2e9*(RandU32+0x1000)/MAX_U32*((Exp(ToF64(glbl_state.cnt +10)/DAWG_SETTINGS_RANGE)-1)/e);
|
|
n2.x=2e9*Sign(RandI32)*(RandU32+0x1000)/MAX_U32*((Exp(ToF64(glbl_state.n2_amp)/DAWG_SETTINGS_RANGE)-1)/e);
|
|
n2.y=2e9*Sign(RandI32)*(RandU32+0x1000)/MAX_U32*((Exp(ToF64(glbl_state.n2_amp)/DAWG_SETTINGS_RANGE)-1)/e);
|
|
n8.x=RandI32;
|
|
n8.y=RandI32;
|
|
color_scale=4.0*(glbl_state.color_scale+1.0)/DAWG_SETTINGS_RANGE+0.5;
|
|
timeout_time=tNP+0.1;
|
|
for (y=0;y<GR_HEIGHT;y++) {
|
|
if (y<20)
|
|
if (tNP>timeout_time)
|
|
goto next_dotel;
|
|
if (ScanKey(&ch))
|
|
goto next_dotel;
|
|
for (x=0;x<GR_WIDTH;x++) {
|
|
if (y<20)
|
|
if (tNP>timeout_time)
|
|
goto next_dotel;
|
|
|
|
n1.x=x; n1.y=y;
|
|
CopySimplex(&n3,&n1);
|
|
|
|
color=0;
|
|
d=Norm(&n3);
|
|
|
|
//This doesn't make mathematical sense, but it makes nice results.
|
|
while (d.u32[0]<cnt && color<65536) {
|
|
if (y<20)
|
|
if (tNP>timeout_time)
|
|
goto next_dotel;
|
|
Mangle(&n7,Mix(&n4,&n3,&n1),
|
|
Add(&n5,&n3,&n2));
|
|
color++;
|
|
d=Norm(Add(&n3,&n7,Mangle(&n6,&n3,&n8)));
|
|
}
|
|
color-=(cnt-d.u32[0])/cnt;
|
|
dc->color=ROP_EQU+
|
|
color=gr_rainbow_10[LimitI64(color_scale*(Ln(color)),0,9)];
|
|
GrPlot(dc,x,y);
|
|
}
|
|
}
|
|
dc->color=COLOR_TRANSPARENT;
|
|
GrRect(dc,c->left,c->top,c->right-c->left,c->bottom-c->top);
|
|
while (TRUE) {
|
|
if (chged) {
|
|
chged=FALSE;
|
|
break;
|
|
}
|
|
if (ch=ScanChar)
|
|
if (ch==CH_SPACE||ch==CH_NEW_LINE)
|
|
break;
|
|
else
|
|
goto bling_done;
|
|
WinMgrSync;
|
|
}
|
|
}
|
|
bling_done:
|
|
SettingsPop;
|
|
DCDel(dc);
|
|
DCFill;
|
|
DawgSettingsDel(c);
|
|
}
|
|
|
|
Bling; //Start when included
|