//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$. RegDft("TempleOS/Talons","F64 best_score=9999;\n"); RegExe("TempleOS/Talons"); //Keep these power of two so shift is used instead of multiply //to index arrays. #define MAP_WIDTH 1024 #define MAP_HEIGHT 1024 #define MAP_SCALE 150 #define DISPLAY_SCALE 100 #define CTRLS_SCALE 0.05 //I think I did these so the heads-up showed intelligable numbers. //Scaling is a mess. #define COORDINATE_SCALE 256 #define COORDINATE_BITS 8 #define WATER_ELEVATION 15 #define BIRD_ELEVATION 10 #define ROCK_ELEVATION 45 #define SNOW_ELEVATION 55 //Too big makes off-scrn draws take place. #define PANEL_SIZE_MAX 16 $SP,"<1>",BI=1$ $SP,"<2>",BI=2$ $SP,"<3>",BI=3$ $SP,"<4>",BI=4$ $SP,"<5>",BI=5$ $SP,"<6>",BI=6$ #define LS_TYPES 3 U8 *landscape_small_imgs[LS_TYPES]={$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$}, *landscape_large_imgs[LS_TYPES]; #define B_NUM 256 class Bird { Bird *next,*last; CD3I64 p; F64 ; } b_head[mp_cnt]; class Obj { Obj *next,*last; CD3I64 p; U8 *img; Bool fish; }; class Panel {//Polygon or Obj Panel *next; CD3I32 *pts; I64 cnt; U16 update,num_sides; CColorROPU32 color; Obj *next_obj,*last_obj; } *panel_head,*panels[MAP_HEIGHT][MAP_WIDTH]; I64 critical_section_flag; I16 elevations[MAP_HEIGHT][MAP_WIDTH]; CD3 normals[MAP_HEIGHT][MAP_WIDTH]; class MPCtrl { I64 init_not_done_flags,update_not_done_flags,app_not_done_flags; I64 strip_width[MP_PROCESSORS_NUM]; Bool app_done; } mp; F64 game_t0,game_tf,pitch,roll,heading,,speed; Bool invert_pitch,rolled_over; I64 strip_height,x,y,z,fish_left; CD3 v; U0 WrapAngles() { I64 r[4][4],x,y,z; =Wrap(); pitch=Wrap(--/2); if (Abs(pitch)>/2) { invert_pitch=TRUE; pitch=Wrap(-pitch); } else invert_pitch=FALSE; roll=Wrap(roll); if (invert_pitch ^^ -/2<=rollr,x,y,z); *z=zz=-*z; if (zz>0) { *x = dc->x + *x * DISPLAY_SCALE/zz; //Foreshortening *y = dc->y - *y * DISPLAY_SCALE/zz; } else { *x = dc->x + *x; *y = dc->y - *y; } } U0 CalcNormals() {/*Find the normal vect with a curl. i,j and k are the axis unit vectors, not to be confused with my local index variables. i j k 0 1 dz2 1 0 dz1 Normal: dz1*i + dz2*j - k */ I64 i,j; for (j=0;j.10) return FALSE; return TRUE; } U0 MPDoPanels(CTask *task) { I64 i,j,l,k1,k2,w,h,threshold,lo,hi; Bool cont; Panel *tmpp,*start_ptr=NULL,*end_ptr=NULL; CD3I32 *poly; Obj *tmpo; lo=Gs->num*(MAP_HEIGHT-1)/mp_cnt; hi=(Gs->num+1)*(MAP_HEIGHT-1)/mp_cnt; for (threshold=8;threshold>=1;threshold--) for (j=lo;j=threshold || h>=threshold) { tmpp=CAlloc(sizeof(Panel),task); QueInit(&tmpp->next_obj); l=elevations[j][i]; if (l<=WATER_ELEVATION*MAP_SCALE && elevations[j][i+w-1]<=WATER_ELEVATION*MAP_SCALE && elevations[j+h-1][i]<=WATER_ELEVATION*MAP_SCALE && elevations[j+h-1][i+w-1]<=WATER_ELEVATION*MAP_SCALE) { tmpp->color=BLUE; if (Rand<0.05) { tmpo=MAlloc(sizeof(Obj),task); tmpo->p.x=(i+w/2)*MAP_SCALE; tmpo->p.y=(j+h/2)*MAP_SCALE; if (Rand<0.1) { tmpo->fish=FALSE; if (RandI16&1) tmpo->img=landscape_large_imgs[0]; //Boat else tmpo->img=landscape_large_imgs[1]; //Boat tmpo->p.z=(WATER_ELEVATION+2)*MAP_SCALE; } else { tmpo->fish=TRUE; tmpo->img=$IB,"<1>",BI=1$; //Fish tmpo->p.z=WATER_ELEVATION*MAP_SCALE; } QueIns(tmpo,tmpp->last_obj); } } else { if (lcolor=LTGREEN; else tmpp->color=GREEN+LTGREEN<<16+ROPF_DITHER; if (Rand<0.03) { tmpo=MAlloc(sizeof(Obj),task); tmpo->p.x=(i+w/2)*MAP_SCALE; tmpo->p.y=(j+h/2)*MAP_SCALE; tmpo->p.z=l; tmpo->img=landscape_large_imgs[2]; //Tree tmpo->fish=FALSE; QueIns(tmpo,tmpp->last_obj); } } else if (lcolor=LTGRAY; else tmpp->color=DKGRAY+LTGRAY<<16+ROPF_DITHER; } else { if (RandI16&1) tmpp->color=LTGREEN; else tmpp->color=GREEN+LTGREEN<<16+ROPF_DITHER; } } else { if (!(RandU16&3)) { if (RandI16&1) tmpp->color=WHITE; else tmpp->color=LTGRAY; } else { if (RandI16&1) tmpp->color=LTGRAY+WHITE<<16+ROPF_DITHER; else tmpp->color=DKGRAY+LTGRAY<<16+ROPF_DITHER; } } } tmpp->num_sides=4; poly=tmpp->pts=MAlloc(sizeof(CD3I32)*tmpp->num_sides,task); poly[0].x=MAP_SCALE*i; poly[0].y=MAP_SCALE*j; poly[0].z=elevations[j][i]; poly[1].x=MAP_SCALE*(i+w); poly[1].y=MAP_SCALE*j; poly[1].z=elevations[j][i+w]; poly[2].x=MAP_SCALE*(i+w); poly[2].y=MAP_SCALE*(j+h); poly[2].z=elevations[j+h][i+w]; poly[3].x=MAP_SCALE*i; poly[3].y=MAP_SCALE*(j+h); poly[3].z=elevations[j+h][i]; tmpp->next=start_ptr; start_ptr=tmpp; if (!end_ptr) end_ptr=tmpp; for (k2=0;k2next=panel_head; panel_head=start_ptr; LBtr(&critical_section_flag,0); } LBtr(&mp.init_not_done_flags,Gs->num); } U0 InitElevations() { I64 i,j,l,x,y,xx,yy,x1,y1,x2,y2; MemSet(elevations,0,sizeof(elevations)); for (i=0;i",BI=7$ $SP,"<8>",BI=8$ U0 ClawDraw(CDC *dc,I64 x1,I64 y1,I64 x2,I64 y2,I64 w,I64 segments,Bool talon) { I64 i,j; for (i=0,j=segments;ipen_width=w; dc->color=BLACK; GrLine3(dc, j*x1/segments+i*x2/segments, j*y1/segments+i*y2/segments,0, (j-1)*x1/segments+(i+1)*x2/segments, (j-1)*y1/segments+(i+1)*y2/segments,0); dc->pen_width=w-2; dc->color=YELLOW; GrLine3(dc, j*x1/segments+i*x2/segments, j*y1/segments+i*y2/segments,0, (j-1)*x1/segments+(i+1)*x2/segments, (j-1)*y1/segments+(i+1)*y2/segments,0); } if (talon) { if (y1",BI=7$); else Sprite3B(dc,x1,y1,0,$IB,"<8>",BI=8$); } } U0 ClawsDraw(CTask *task,CDC *dc) { F64 claws_up=1.0-claws_down; I64 w=task->pix_width,h=task->pix_height; dc->flags|=DCF_SYMMETRY; DCSymmetrySet(dc,w>>1,0,w>>1,1); ClawDraw(dc,HAND_X-30,HAND_Y-50*claws_up,HAND_X-5,HAND_Y, 22,4,TRUE); ClawDraw(dc,HAND_X-10,HAND_Y-60*claws_up,HAND_X,HAND_Y, 22,4,TRUE); ClawDraw(dc,HAND_X+10,HAND_Y-60*claws_up,HAND_X,HAND_Y, 22,4,TRUE); ClawDraw(dc,HAND_X+30,HAND_Y-50*claws_up,HAND_X+5,HAND_Y, 22,4,TRUE); ClawDraw(dc,HAND_X+25,HAND_Y+40*claws_up,HAND_X+5,HAND_Y, 22,4,TRUE); ClawDraw(dc,HAND_X,HAND_Y,6*w/20,h,38,5,FALSE); } CDC *main_dc; U0 DrawIt(CTask *task,CDC *dc) { main_dc->flags|=DCF_NO_TRANSPARENTS; GrBlot(dc,0,0,main_dc); if (claws_down) ClawsDraw(task,dc); } /* $SP,"<9>",BI=9$ $SP,"<10>",BI=10$ Cores render strips that +/- 15%. The cores check the panel map array and render the panel for each square, marking-it done. The depth buf is not locked in the graphic routines so we get some glitches. */ I64 update_jiffy_limit; U0 MPDrawIt(CTask *task,CDC *dc) { I64 j,update=winmgr.updates&65535,strip_width,*s2w,x1,y1,z1,xx,yy, xh,yh,zh,yh2,xh2,x1h,y1h,x1wa,y1wa,x1wb,y1wb,x3,y3,z3,dd,dd_old, cx=task->pix_width>>1,cy=task->pix_height>>1,r[16],*elems1,*elems_hard; Panel reg *tmpp; Bird *tmpb; Obj *tmpo; Bool w_on_map,h_on_map; xx=x/(MAP_SCALE*COORDINATE_SCALE); yy=y/(MAP_SCALE*COORDINATE_SCALE); //World to scrn coordinates Mat4x4IdentEqu(dc->r); Mat4x4RotZ(dc->r,heading); Mat4x4RotX(dc->r,); Mat4x4RotZ(dc->r,roll); DCMat4x4Set(dc,dc->r); //Scrn to world coordinates //This gives us the vects for stepping through the grid in //the direction the plane is facing. we step horizontally and vertically //and use the reciprocal slope principle //y=mx+b and y=(-1/m)x+b are perpendicular. s2w=Mat4x4IdentNew; Mat4x4RotZ(s2w,-roll); Mat4x4RotX(s2w,-); Mat4x4RotZ(s2w,-heading); xh=0; yh=0; zh=-256; Mat4x4MulXYZ(s2w,&xh,&yh,&zh); //The layer for core1 is not cleared automatically //it is persistent. I have carefully syncronized to the update //cycle initiated by Core0 to prevent flicker. dc->flags|=DCF_TRANSFORMATION; dc->transform=&EDTransform; dc->x=cx; dc->y=cy; //dc->x and the translation part of dc->r are ident in effect, //but we use both to show-off. We could add offsets together and //use one or the other. x1=-x>>COORDINATE_BITS; y1=-y>>COORDINATE_BITS; z1=-z>>COORDINATE_BITS; Mat4x4MulXYZ(dc->r,&x1,&y1,&z1); Mat4x4TranslationEqu(dc->r,x1,y1,z1); //This is a refinement. if (Abs(*180/)>90) { x3=0; y3=-cy; z3=0; Mat4x4MulXYZ(s2w,&x3,&y3,&z3); xx+=x3; yy+=y3; } if (Gs->num&1) {//alt left-right,right-left yh2=-yh; xh2=-xh; } else { yh2=yh; xh2=xh; } //Calc starting point. x1wa=xx<<8+xh*strip_height>>1/1.3*(Gs->num+1.15); y1wa=yy<<8+yh*strip_height>>1/1.3*(Gs->num+1.15); x1wb=0; y1wb=0; xh=-xh; //Back to front to help with depth. yh=-yh; //Take half steps to cover whole grid. xh>>=1; yh>>=1; xh2>>=1; yh2>>=1; w_on_map=FALSE; dd_old=I64_MAX; for (strip_width=0;cnts.jiffies>8; y1=y1h>>8; if (0<=x1update!=update) { tmpp->update=update; if (tmpp->cnt>8*(1.1-Gs->idle_factor)) { dc->color=tmpp->color; tmpp->cnt=GrFillPoly3(dc,tmpp->num_sides,tmpp->pts); } else tmpp->cnt++; tmpo=tmpp->next_obj; while (tmpo!=&tmpp->next_obj) { Sprite3(dc,tmpo->p.x,tmpo->p.y,tmpo->p.z,tmpo->img); tmpo=tmpo->next; } } h_on_map=TRUE; } else if (h_on_map) break; x1h+=xh; y1h+=yh; } if (h_on_map) w_on_map=TRUE; else if (w_on_map) { strip_width=I64_MAX; break; } x1wb-=yh2; y1wb+=xh2; if (strip_width&1) { x1wa-=x1wb; y1wa-=y1wb; } else { x1wa+=x1wb; y1wa+=y1wb; } if (!w_on_map) { dd=SqrI64(x1wa>>8-MAP_WIDTH>>1)+SqrI64(y1wa>>8-MAP_HEIGHT>>1); if (dd>dd_old) break; dd_old=dd; } } tmpb=b_head[Gs->num].next; while (tmpb!=&b_head[Gs->num]) { elems1=SpriteInterpolate(Tri(tS,0.2),$IB,"<2>",BI=2$,$IB,"<3>",BI=3$); Mat4x4IdentEqu(r); Mat4x4RotZ(r,tmpb->); elems_hard=SpriteTransform(elems1,r); Sprite3(dc,tmpb->p.x,tmpb->p.y,tmpb->p.z,elems_hard); Free(elems_hard); Free(elems1); tmpb=tmpb->next; } Free(s2w); mp.strip_width[Gs->num]=strip_width; LBtr(&mp.update_not_done_flags,Gs->num); } U0 CoreAPTalonsTask(CTask *master_task) { CDC *dc=DCAlias(main_dc,master_task); while (!mp.app_done) { while (!Bt(&mp.update_not_done_flags,Gs->num) && !mp.app_done) Sleep(1); if (!mp.app_done) MPDrawIt(master_task,dc); } //We made an alias of this we don't want freed. dc->depth_buf=NULL; DCDel(dc); LBtr(&mp.app_not_done_flags,Gs->num); } U0 DrawHorizon(CDC *dc) { I64 x1,y1,z1,x2,y2,z2,xh,yh,zh,*s2w=Mat4x4IdentNew, cx=Fs->pix_width>>1, cy=Fs->pix_height>>1; CD3I32 p[4]; I32 *old_db=dc->depth_buf; dc->depth_buf=NULL; CColorROPU32 ground_color; if (game_tf && fish_left) DCFill(dc,BLACK); else if (-/4<=Wrap(-)r); Mat4x4RotZ(dc->r,heading); Mat4x4RotX(dc->r,); Mat4x4RotZ(dc->r,roll); DCMat4x4Set(dc,dc->r); dc->flags&=~DCF_TRANSFORMATION; dc->transform=&EDTransform; dc->x=cx; dc->y=cy; Mat4x4RotZ(s2w,-roll); Mat4x4RotX(s2w,-); Mat4x4RotZ(s2w,-heading); xh=0; yh=0; zh=-256; Mat4x4MulXYZ(s2w,&xh,&yh,&zh); Free(s2w); x1=xh+yh*32; y1=yh-xh*32; z1=0; (*dc->transform)(dc,&x1,&y1,&z1); x2=xh-yh*32; y2=yh+xh*32; z2=0; (*dc->transform)(dc,&x2,&y2,&z2); DCClipLine(dc,&x1,&y1,&x2,&y2); MemSet(p,0,sizeof(p)); if (x2width-1) { p[0].x=0; p[0].y=0; p[1].x=dc->width-1; p[1].y=0; p[2].x=dc->width-1; p[2].y=y2; p[3].x=0; p[3].y=y1; if (rolled_over) dc->color=ground_color; else dc->color=LTCYAN; GrFillPoly3(dc,4,p); p[0].y=dc->height-1; p[1].y=dc->height-1; if (rolled_over) dc->color=LTCYAN; else dc->color=ground_color; GrFillPoly3(dc,4,p); } else { if (y2height-1) { p[0].x=0; p[0].y=0; p[1].x=0; p[1].y=dc->height-1; p[2].x=x2; p[2].y=dc->height-1; p[3].x=x1; p[3].y=0; if (x1color=ground_color; else dc->color=LTCYAN; GrFillPoly3(dc,4,p); p[0].x=dc->width-1; p[1].x=dc->width-1; if (x1color=LTCYAN; else dc->color=ground_color; GrFillPoly3(dc,4,p); } else DCFill(dc,LTCYAN); //Not correct. } } dc->depth_buf=old_db; } U0 Core0Talons() { CDC *dc=DCAlias(main_dc,Fs); I64 i,xx,yy,elev,height,cx=Fs->pix_width>>1,cy=Fs->pix_height>>1; F64 min_strip_width,tt; update_jiffy_limit=cnts.jiffies+JIFFY_FREQ/40; xx=x/(MAP_SCALE*COORDINATE_SCALE); yy=y/(MAP_SCALE*COORDINATE_SCALE); if (0<=xxWATER_ELEVATION*MAP_SCALE && !game_tf) { music.mute=TRUE; Beep; game_tf=tS; music.mute=FALSE; } DrawHorizon(dc); if (game_tf) { tt=game_tf-game_t0; if (Blink) { dc->color=RED; GrPrint(dc,(Fs->pix_width-9*FONT_WIDTH)/2, (Fs->pix_height-FONT_HEIGHT)/2,"Game Over"); } } else { DCDepthBufRst(dc); mp.update_not_done_flags=1<color=WHITE; GrPrint(dc,(Fs->pix_width-13*FONT_WIDTH)/2, (Fs->pix_height-FONT_HEIGHT)/2-4*FONT_HEIGHT,"Catch 10 Fish"); } } dc->pen_width=2; if (game_tf && fish_left) dc->color=WHITE; else dc->color=BLACK; dc->flags&=~DCF_TRANSFORMATION; GrLine3(dc,cx+5,cy,0,cx-5,cy,0); GrLine3(dc,cx,cy+5,0,cx,cy-5,0); if (invert_pitch) GrPrint(dc,0,0,"Pitch:%5.1f Roll:%5.1f Heading:%5.1f " "Height:%5d [Core Strip:%3d]", pitch*180/,Wrap(roll+)*180/,Wrap(heading+,0)*180/, height,strip_height); else GrPrint(dc,0,0,"Pitch:%5.1f Roll:%5.1f Heading:%5.1f " "Height:%5d [Core Strip:%3d]", pitch*180/,roll*180/,heading*180/,height,strip_height); GrPrint(dc,0,FONT_HEIGHT,"Fish Remaining:%d Time:%3.2f Best:%3.2f", fish_left,tt,best_score); //We made an alias of this we don't want freed. dc->depth_buf=NULL; DCDel(dc); Refresh; } Obj *FishFind(I64 x1,I64 y1,I64 *_dd) { I64 dd,best_dd=I64_MAX; Obj *res=NULL,*tmpo; Panel *tmpp=panel_head; while (tmpp) { tmpo=tmpp->next_obj; while (tmpo!=&tmpp->next_obj) { if (tmpo->fish) { dd=SqrI64(tmpo->p.x-x1)+SqrI64(tmpo->p.y-y1); if (ddnext; } tmpp=tmpp->next; } *_dd=best_dd; return res; } #define ANIMATE_MS 10 U0 AnimateTask(I64) {//Steadily moves the airplane fwd. I64 i,*s2w,x1,y1,z1,dx,dy,dz,dd; F64 t0=tS,ms,,d; Obj *tmpo; Bird *tmpb; while (TRUE) { ms=1000*(tS-t0); t0=tS; if (!game_tf) { //Scrn to world coordinates s2w=Mat4x4IdentNew; Mat4x4RotZ(s2w,-roll); Mat4x4RotX(s2w,-); Mat4x4RotZ(s2w,-heading); dx=0;dy=0;dz=1<<16; Mat4x4MulXYZ(s2w,&dx,&dy,&dz); x-=speed*ms*COORDINATE_SCALE*dx/1<<16; y-=speed*ms*COORDINATE_SCALE*dy/1<<16; z-=speed*ms*COORDINATE_SCALE*dz/1<<16; Free(s2w); x1=x/COORDINATE_SCALE; y1=y/COORDINATE_SCALE; z1=z/COORDINATE_SCALE; if (z1<(WATER_ELEVATION+3)*MAP_SCALE) { if (z1p.x; y1-=tmpo->p.y; =ACos((dx*x1+dy*y1)/(d*1<<16)); if (>0 && dp.x+=10*ms/1000*MAP_SCALE*Cos(tmpb->); tmpb->p.y+=10*ms/1000*MAP_SCALE*Sin(tmpb->); tmpb->p.z=BIRD_ELEVATION*MAP_SCALE+ elevations[tmpb->p.y/MAP_SCALE][tmpb->p.x/MAP_SCALE]; tmpb->+=2**ms/1000/10; tmpb=tmpb->next; } } } Refresh; } } U0 MPEnd() { update_jiffy_limit=0; mp.app_not_done_flags=1<task_end_cb=&SndTaskEndCB; MusicSettingsRst; while (TRUE) { Play("5eCGFsD4A5e.C4sG5eGDqCDeGsGG4qG"); Play("5eCGFsD4A5e.C4sG5eGDqCDeGsGG4qG"); Play("5eGECGC4A5FCsC4B5C4B5e.GsG4qGB"); Play("5eGECGC4A5FCsC4B5C4B5e.GsG4qGB"); } } U0 PreInit() { I64 i,*r=Mat4x4IdentNew; Mat4x4Scale(r,10.0); for (i=0;i>1 *COORDINATE_SCALE*MAP_SCALE; y=MAP_HEIGHT>>1*COORDINATE_SCALE*MAP_SCALE; z=64 *COORDINATE_SCALE*MAP_SCALE; xx=x/(MAP_SCALE*COORDINATE_SCALE); yy=y/(MAP_SCALE*COORDINATE_SCALE); z+=elevations[yy][xx]*COORDINATE_SCALE; for (i=0;ip.x=Rand*MAP_WIDTH*MAP_SCALE; tmpb->p.y=Rand*MAP_HEIGHT*MAP_SCALE; tmpb->p.z=BIRD_ELEVATION*MAP_SCALE+ elevations[tmpb->p.y/MAP_SCALE][tmpb->p.x/MAP_SCALE]; tmpb->=2**Rand; QueIns(tmpb,b_head[i%mp_cnt].last); } for (i=1;itask_end_cb=&TaskEndCB; game_t0=tS; } U0 CleanUp() { I64 i; Panel *tmpp=panel_head,*tmpp1; MPEnd; while (tmpp) { tmpp1=tmpp->next; QueDel(&tmpp->next_obj); Free(tmpp->pts); Free(tmpp); tmpp=tmpp1; } for (i=0;isong_task=Spawn(&SongTask,NULL,"Song",,Fs); PreInit; Init; Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs); Fs->draw_it=&DrawIt; try //in case is pressed. do { if (ScanKey(&ch,&sc)) { switch (ch) { case 0: switch (sc.u8[0]) { start: case SC_CURSOR_DOWN: -=CTRLS_SCALE*Cos(roll); heading-=CTRLS_SCALE*Sin(roll)*Sin(); break; case SC_CURSOR_UP: +=CTRLS_SCALE*Cos(roll); heading+=CTRLS_SCALE*Sin(roll)*Sin(); break; case SC_CURSOR_RIGHT: roll+=CTRLS_SCALE; break; case SC_CURSOR_LEFT: roll-=CTRLS_SCALE; break; end: WrapAngles; } break; case '\n': Fs->draw_it=NULL; CleanUp; Refresh; Init; Fs->draw_it=&DrawIt; break; } } else Core0Talons; } while (ch!=CH_SHIFT_ESC && ch!=CH_ESC); catch PutExcept; SettingsPop; CleanUp; PostCleanUp; RegWrite("TempleOS/Talons","F64 best_score=%5.4f;\n",best_score); MenuPop; } Talons;   " "+ + & &   ) :_       b                        P %;%!!8Y8       000000000p33--33------ +* "! ., $# !   %$      ,,##++""##""              000000000000 0  0 0  0 0  0 0  0 0  0  0 0  0 0 0 0 0 0 0 0 0 0 0 00000 0000 0000 0! "0"#!0%$&0&'%0! $0$%!0#"&0&'#0" $0$&"0#!%0%'# 0)(* 0*+) 0-,. 0./- 0)(, 0,-) 0+*. 0./+ 0*(, 0,.* 0+)- 0-/+010202310546067501040451032606730204046203150573098:0:;90=<>0>?=098<0<=90;:>0>?;0:8<0<>:0;9=0=?;0A@B0BCA0EDF0FGE0A@D0DEA0CBF0FGC0B@D0DFB0CAE0EGC0IHJ0JKI0MLN0NOM0IHL0LMI0KJN0NOK0JHL0LNJ0KIM0MOK0QPR0RSQ0UTV0VWU0QPT0TUQ0SRV0VWS0RPT0TVR0SQU0UWS0YXZ0Z[Y0]\^0^_]0YX\0\]Y0[Z^0^_[0ZX\0\^Z0[Y]0]_[0a`b0bca0edf0fge0a`d0dea0cbf0fgc0b`d0dfb0cae0egc0ihj0jki0mln0nom0ihl0lmi0kjn0nok0jhl0lnj0kim0mok! %;%!8!Y8      p&3&3&-&- 3 3 - -&-&-&& - -  % +$* "!" .!, $# !    %$        #,",)#'#!+ +&"%")#'#-,&"%"+),+.-+*-,%$'&! $ " '&*)$ " &%**!!**!!%$" ! ! "" "" "!"!                    ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokp                    000000000000 0  0 0  0 0  0 0  0 0  0  0 0  0 0 0 0 0 0 0 0 0 0 0 00000 0000 0000 0! "0"#!0%$&0&'%0! $0$%!0#"&0&'#0" $0$&"0#!%0%'# 0)(* 0*+) 0-,. 0./- 0)(, 0,-) 0+*. 0./+ 0*(, 0,.* 0+)- 0-/+010202310546067501040451032606730204046203150573098:0:;90=<>0>?=098<0<=90;:>0>?;0:8<0<>:0;9=0=?; 0A@B 0BCA 0EDF 0FGE 0A@D 0DEA 0CBF 0FGC 0B@D 0DFB 0CAE 0EGC0IHJ0JKI0MLN0NOM0IHL0LMI0KJN0NOK0JHL0LNJ0KIM0MOK0QPR0RSQ0UTV0VWU0QPT0TUQ0SRV0VWS0RPT0TVR0SQU0UWS 0YXZ 0Z[Y 0]\^ 0^_] 0YX\ 0\]Y 0[Z^ 0^_[ 0ZX\ 0\^Z 0[Y] 0]_[0a`b0bca0edf0fge0a`d0dea0cbf0fgc0b`d0dfb0cae0egc0ihj0jki0mln0nom0ihl0lmi0kjn0nok0jhl0lnj0kim0mok(K K-nsn-K K-s-220 0 0 0 0 0 0 0 0 0 00 00000000000 0 0 0 0 0 000000000000(K K-s-K K-s-220 0 0 0 0 0 0 0 0 0 00 00000000000 0 0 0 0 0 000000000000