107 lines
7.8 KiB
C++
107 lines
7.8 KiB
C++
|
|
|
|
|
|
|
|
|
|
$SP,"<1>",BI=1$ $SP,"<2>",BI=2$ $SP,"<3>",BI=3$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<4>",BI=4$ $SP,"<5>",BI=5$ $SP,"<6>",BI=6$
|
|
|
|
CSprite *right_imgs[4]={$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<2>",BI=2$},
|
|
*left_imgs [4]={$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<4>",BI=4$,$IB,"<6>",BI=6$};
|
|
I64 x=0,y=0;
|
|
|
|
U0 DrawMountain(CTask *task,CDC *dc)
|
|
{
|
|
static I64 last_x;
|
|
static Bool last_left;
|
|
I64 cx=task->pix_width/2,cy=task->pix_height/2;
|
|
dc->color=BROWN;
|
|
dc->pen_width=2;
|
|
GrLine3(dc,cx-400,cy,0, cx-30 ,cy-120,0);
|
|
GrLine3(dc,cx-30,cy-120,0, cx ,cy-160,0);
|
|
GrLine3(dc,cx+160,cy,0, cx,cy-160,0);
|
|
GrLine3(dc,cx+80 ,cy-80,0, cx+160,cy-120,0);
|
|
GrLine3(dc,cx+160,cy-120,0,cx+400,cy,0);
|
|
|
|
GrLine3(dc,cx,cy,0,cx+100,cy-20,0);
|
|
GrLine3(dc,cx+100,cy-20,0,cx-90,cy-40,0);
|
|
GrLine3(dc,cx-90,cy-40,0,cx+70,cy-60,0);
|
|
GrLine3(dc,cx+70,cy-60,0,cx-70,cy-60,0);
|
|
GrLine3(dc,cx-70,cy-60,0,cx+60,cy-80,0);
|
|
GrLine3(dc,cx+60,cy-80,0,cx-50,cy-100,0);
|
|
GrLine3(dc,cx-50,cy-100,0,cx+30,cy-120,0);
|
|
GrLine3(dc,cx+30,cy-120,0,cx-15,cy-140,0);
|
|
|
|
dc->color=LTCYAN;
|
|
GrRect(dc,0,0,task->pix_width,74);
|
|
GrFloodFill(dc,0,75);
|
|
|
|
dc->color=BROWN;
|
|
GrCircle(dc,cx+70,35,15);
|
|
dc->color=YELLOW;
|
|
GrFloodFill(dc,cx+70,35);
|
|
|
|
dc->color=BROWN;
|
|
GrPrint(dc,cx-8*FONT_WIDTH/2,cy-168,"Mt. Horeb");
|
|
|
|
if (x<last_x)
|
|
last_left=TRUE;
|
|
else if (x>last_x)
|
|
last_left=FALSE;
|
|
dc->pen_width=1;
|
|
if (last_left)
|
|
Sprite3(dc,x+cx,y+cy,0,left_imgs [ToI64(6.0*tS)&3]);
|
|
else
|
|
Sprite3(dc,x+cx,y+cy,0,right_imgs[ToI64(6.0*tS)&3]);
|
|
last_x=x;
|
|
}
|
|
|
|
//This is the path of the man.
|
|
CD3I32 mountain[19]={{0,0,0},{100,-20,0},{100,-20,0},{-100,-40,0},{-100,-40,0},
|
|
{80,-60,0},{80,-60,0},{-80,-60,0},{-80,-60,0},
|
|
{60,-80,0},{60,-80,0},{-60,-100,0},{-60,-100,0},{40,-120,0},
|
|
{40,-120,0},{-37,-140,0},{-37,-140,0},{0,-160,0},{0,-160,0}};
|
|
|
|
Bool PlotMan(U8 *,I64 _x,I64 _y,I64)
|
|
{
|
|
x=_x; y=_y;
|
|
Sleep(10);
|
|
return !ToBool(ScanChar);
|
|
}
|
|
|
|
U0 Mountain()
|
|
{
|
|
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
try {
|
|
Fs->text_attr=YELLOW<<4+BLUE;
|
|
WordStat;
|
|
WinMax;
|
|
WinBorder;
|
|
DocCursor;
|
|
DocClear;
|
|
Fs->draw_it=&DrawMountain;
|
|
BSpline2(NULL,&mountain,19,&PlotMan); //See $LK,"Graphics/Math",A="HI:Graphics/Math"$.
|
|
} catch
|
|
PutExcept;
|
|
SettingsPop(Fs,TSF_SAME_SONG);
|
|
}
|
|
|
|
//This is so I can use this file stand alone
|
|
//or as a component of a program.
|
|
#if IncludeDepth<2
|
|
Mountain;
|
|
#endif
|
|
ĺ ( ú˙˙˙Ú˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙ ˙ ˙˙ ˙˙ ˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙
|
|
ţ˙˙˙Ţ˙˙˙ů˙˙˙˙˙˙˙ ľ ) ý˙˙˙Ů˙˙˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙ ˙˙˙ ˙˙ ˙˙ ˙˙˙˙ ˙˙˙˙˙ ˙˙ ˙ ˙ ˙ ˙ ˙ ˙ ˙ ˙ ˙˙ ˙˙ ˙ ˙ ˙˙ ˙˙˙ ˙˙˙ ˙˙˙ ˙˙ ˙˙ ˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙˙ ˙˙˙˙˙ ˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙˙
|
|
ţ˙˙˙Ý˙˙˙ ý
|
|
ß˙˙˙ ) ő˙˙˙Ú˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙ ˙˙ ˙˙˙ ˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Ĺ
|
|
ú˙˙˙Ţ˙˙˙ ţ˙˙˙
|
|
* ú˙˙˙Ů˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙˙ ˙˙˙ ˙˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙ ˙˙˙ ˙˙˙ ˙˙ ˙˙ ˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙˙ ˙˙˙ ˙˙ ˙˙˙ ˙˙˙ ˙˙˙ ˙˙˙ ˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ĺ ( ú˙˙˙Ú˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙ ˙˙˙˙ ˙˙ ˙ ˙˙ ˙˙ ˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙
|
|
ŕ˙˙˙ ţ˙˙˙ ý
|
|
ů˙˙˙Ţ˙˙˙ó˙˙˙ţ˙˙˙ ) ő˙˙˙Ú˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙˙˙ ˙˙˙ ˙˙ ˙˙˙ ˙˙˙ ˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ |