TempleOS-Rijn/TempleOS/Demo/GameStarters/Rocks.CPP

$BG,0$
$SP,"<ship_null>",1$


$SP,"<ship_thrust>",2$



$SP,"<ship_null2>",3$


$SP,"<ship_thrust2>",4$



$SP,"<tiny_rock>",5$


$SP,"<tiny_rock2>",6$


$SP,"<small_rock>",7$


$SP,"<small_rock2>",8$



$SP,"<medium_rock>",9$


$SP,"<medium_rock2>",10$




$SP,"<large_rock>",11$


$SP,"<large_rock2>",12$


$SP,"<Bullet>",13$




$SP,"<Cargo>",14$


$BG$


#define CMD_NULL	0
#define CMD_SPIN_LEFT	1
#define CMD_SPIN_RIGHT	2
#define CMD_THRUST	3
#define CMD_FIRE	4
#define CMD_GAME_OVER	5
I64 cmd_code=CMD_NULL;

#define NUM_STARS	100
I64 stars_x[NUM_STARS],stars_y[NUM_STARS];

Bool bounce;

#define OT_SHIP		1
#define OT_CARGO	2
#define OT_BULLET	3
#define OT_TINY_ROCK	4
#define OT_SMALL_ROCK	5
#define OT_MEDIUM_ROCK	6
#define OT_LARGE_ROCK	7

#define A_TRANSITION	-1
#define A_INACTIVE	0
#define A_ACTIVE	1

class Order2D2é
{
  F64 x,y,é;
  F64 DxDt,DyDt,DéDt;
};

class Obj
{
  I32 active;
  I32 type;
  U8 *img;
  F64 mass,radius;
  F64 timeout;
};

#define NUM_OBJECTS	256

CMathODE *ode;
Order2D2é *o_state;
Obj *objs;

U0 ObjInit(I64 i, I64 type)
{
  objs[i].active=A_ACTIVE;
  objs[i].timeout=0;
  objs[i].type=type;
  switch (type) {
    case OT_SHIP:
      if (bounce)
	objs[i].img=$IB,"<ship_null>",1$;
      else
	objs[i].img=$IB,"<ship_null>",3$;
      objs[i].radius=15;
      break;
    case OT_CARGO:
      objs[i].img=$IB,"<cargo>",14$;
      objs[i].radius=30;
      break;
    case OT_BULLET:
      objs[i].img=$IB,"<bullet>",15$;
      objs[i].radius=7;
      break;
    case OT_TINY_ROCK:
      if (i&1)
	objs[i].img=$IB,"<tiny_rock>",5$;
      else
	objs[i].img=$IB,"<tiny_rock2>",6$;
      objs[i].radius=5;
      break;
    case OT_SMALL_ROCK:
      if (i&1)
	objs[i].img=$IB,"<small_rock>",16$;
      else
	objs[i].img=$IB,"<small_rock2>",8$;
      objs[i].radius=11;
      break;
    case OT_MEDIUM_ROCK:
      if (i&1)
	objs[i].img=$IB,"<medium_rock>",17$;
      else
	objs[i].img=$IB,"<medium_rock2>",10$;
      objs[i].radius=20;
      break;
    case OT_LARGE_ROCK:
      if (i&1)
	objs[i].img=$IB,"<large_rock>",18$;
      else
	objs[i].img=$IB,"<large_rock2>",12$;
      objs[i].radius=26;
      break;
  }
  objs[i].mass=objs[i].radius*objs[i].radius*objs[i].radius;
}

I64 ObjAlloc(I64 type)
{
  I64 i;
  for (i=0;i<NUM_OBJECTS-1;i++)
    if (objs[i].active==A_INACTIVE)
      break;
  ObjInit(i,type);
  return i;
}

U0 DrawIt(CTask *task,CDC *dc)
{
  I64 i,x,y;

  task->text_attr=BLACK<<4+WHITE;

  dc->color=WHITE;
  for (i=0;i<NUM_STARS;i++)
    GrPlot(dc,stars_x[i],stars_y[i]);

  for (i=0;i<NUM_OBJECTS;i++) {
    if (objs[i].active==A_ACTIVE) {
      if (objs[i].timeout && objs[i].timeout<tT)
	objs[i].active=A_INACTIVE;
      else {
	x=o_state[i].x;
	y=o_state[i].y;

	if (x<0) {
	  x=GR_WIDTH-AbsI64(x)%GR_WIDTH;
	  o_state[i].x=x;
	} else if (x>GR_WIDTH) {
	  x%=GR_WIDTH;
	  o_state[i].x=x;
	}
	if (y<0) {
	  y=GR_HEIGHT-AbsI64(y)%GR_HEIGHT;
	  o_state[i].y=y;
	} else if (y>GR_HEIGHT) {
	  y%=GR_HEIGHT;
	  o_state[i].y=y;
	}
	switch (objs[i].type) {
	  case OT_SHIP:
	    if (bounce) {
	      if (cmd_code==CMD_THRUST && RandU16&0x8000)
		SpritePlotRotZ3b(dc,x,y,0,$IB,"<ship_thrust>",2$,o_state[i].é);
	      else
		SpritePlotRotZ3b(dc,x,y,0,$IB,"<ship_null>",1$,o_state[i].é);
	    } else {
	      if (cmd_code==CMD_THRUST && RandU16&0x8000)
		SpritePlotRotZ3b(dc,x,y,0,$IB,"<ship_thrust>",4$,o_state[i].é);
	      else
		SpritePlotRotZ3b(dc,x,y,0,$IB,"<ship_null>",3$,o_state[i].é);
	    }
	    break;
	  case OT_BULLET:
	  case OT_TINY_ROCK:
	  case OT_SMALL_ROCK:
	  case OT_MEDIUM_ROCK:
	  case OT_LARGE_ROCK:
	  case OT_CARGO:
	    SpritePlotRotZ3b(dc,x,y,0,objs[i].img,o_state[i].é);
	    break;
	}
      }
    }
  }
  dc->color=WHITE;
  GrPutS(dc,0,0,"Escort the cargo ship.");
}

U0 Init()
{
  I64 i,j;

  cmd_code=CMD_NULL;

  for (i=0;i<NUM_STARS;i++) {
    stars_x[i]=RandU16%GR_WIDTH;
    stars_y[i]=RandU16%GR_HEIGHT;
  }

  MemSet(objs,0,sizeof(Obj)*NUM_OBJECTS);
  MemSet(o_state,0,sizeof(Order2D2é)*NUM_OBJECTS);

  i=ObjAlloc(OT_SHIP); //always #0
  objs[i].mass=2.0*objs[i].radius*objs[i].radius*objs[i].radius;
  o_state[i].x=GR_WIDTH/2;
  o_state[i].y=GR_HEIGHT/2;

  i=ObjAlloc(OT_CARGO); //always #1
  objs[i].mass=0.5*objs[i].radius*objs[i].radius*objs[i].radius;
  o_state[i].x=0;
  o_state[i].DxDt=16.0;
  o_state[i].y=GR_HEIGHT/2;
  o_state[i].é=ã/2;

  for (j=0;j<4;j++) {
    i=ObjAlloc(OT_LARGE_ROCK);
    o_state[i].x=RandU32%GR_WIDTH;
    o_state[i].y=RandU32%GR_HEIGHT;
    o_state[i].DxDt=RandI16/2000.0;
    o_state[i].DyDt=RandI16/2000.0;
    o_state[i].DéDt=RandI16/25000.0;
    o_state[i].é=2*ã*RandI16/16384.0;
  }
}

U0 MyDerivative(CMathODE *,F64,Order2D2é *state,Order2D2é *DstateDt)
{
  I64 i,j;
  F64 f,d,d1,dd,dx,dy;

  MemSet(DstateDt,0,sizeof(Order2D2é)*NUM_OBJECTS);
  for (i=0;i<NUM_OBJECTS;i++) {
    if (objs[i].active==A_ACTIVE) {
      DstateDt[i].x=state[i].DxDt;
      DstateDt[i].y=state[i].DyDt;
      DstateDt[i].é=state[i].DéDt;
      for (j=0;j<NUM_OBJECTS;j++) {
	if (i!=j && objs[j].active==A_ACTIVE) {
	  dx=state[i].x-state[j].x;
	  dy=state[i].y-state[j].y;
	  dd=Sqr(dx)+Sqr(dy);
	  d=Sqrt(dd);

	  if (d) {
	    dx/=d;
	    dy/=d;
	  } else {
	    dx=0;
	    dy=0;
	  }

	  d1=objs[i].radius+objs[j].radius;
	  f=0;
	  if (dd<Sqr(d1)) {
	    if (bounce && objs[i].type!=OT_CARGO && objs[j].type!=OT_CARGO) {
	      f=Sqr(Sqr(Sqr(d1-Abs(d)+0.1))); //spring force
	      if (f>1000000.0) f=1000000.0;
	    }
	  } else
	    f=-2.5*objs[i].mass*objs[j].mass/(dd+1.0);

	  DstateDt[i].DxDt+=f*dx/objs[i].mass;
	  DstateDt[i].DyDt+=f*dy/objs[i].mass;
	}
      }
    }
  }
  switch (cmd_code) {
    case CMD_SPIN_LEFT:
      DstateDt[0].DéDt-=10.0;
      break;
    case CMD_SPIN_RIGHT:
      DstateDt[0].DéDt+=10.0;
      break;
    case CMD_THRUST:
      DstateDt[0].DxDt+=100.0*Cos(state[0].é-ã/2.0);
      DstateDt[0].DyDt+=100.0*Sin(state[0].é-ã/2.0);
      break;
  }

  DstateDt[1].DxDt+=2.0*Cos(state[1].é-ã/2.0);
  DstateDt[1].DyDt+=2.0*Sin(state[1].é-ã/2.0);
}

U0 Collision(I64 i,I64 j)
{
  I64 i2;
  switch (objs[i].type) {
    case OT_SHIP:
      if (!bounce) {
	cmd_code=CMD_GAME_OVER;
	objs[i].active=A_INACTIVE;
      }
      break;
    case OT_CARGO:
      cmd_code=CMD_GAME_OVER;
      objs[i].active=A_INACTIVE;
      break;
    case OT_TINY_ROCK:
      if (objs[j].type==OT_BULLET && !bounce)
	objs[i].active=A_INACTIVE;
      break;
    case OT_BULLET:
      if (!bounce)
	objs[i].active=A_INACTIVE;
      break;
    case OT_SMALL_ROCK:
    case OT_MEDIUM_ROCK:
      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x+objs[i2].radius+2.0;
      o_state[i2].y=o_state[i].y;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x-objs[i2].radius-2.0;
      o_state[i2].y=o_state[i].y;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      objs[i].active=A_INACTIVE;
      break;
    case OT_LARGE_ROCK:
      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x+objs[i2].radius+4.0;
      o_state[i2].y=o_state[i].y+objs[i2].radius+4.0;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x-objs[i2].radius-4.0;
      o_state[i2].y=o_state[i].y-objs[i2].radius-4.0;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x-objs[i2].radius-4.0;
      o_state[i2].y=o_state[i].y+objs[i2].radius+4.0;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      i2=ObjAlloc(objs[i].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[i].x+objs[i2].radius+4.0;
      o_state[i2].y=o_state[i].y-objs[i2].radius-4.0;
      o_state[i2].é=o_state[i].é;
      o_state[i2].DxDt=o_state[i].DxDt;
      o_state[i2].DyDt=o_state[i].DyDt;
      o_state[i2].DéDt=o_state[i].DéDt;

      objs[i].active=A_INACTIVE;
      break;
  }

  switch (objs[j].type) {
    case OT_SHIP:
      if (!bounce) {
	cmd_code=CMD_GAME_OVER;
	objs[j].active=A_INACTIVE;
      }
      break;
    case OT_CARGO:
      cmd_code=CMD_GAME_OVER;
      objs[j].active=A_INACTIVE;
      break;
    case OT_TINY_ROCK:
      if (objs[i].type==OT_BULLET && !bounce)
	objs[j].active=A_INACTIVE;
      break;
    case OT_BULLET:
      if (!bounce)
	objs[j].active=A_INACTIVE;
      break;
    case OT_SMALL_ROCK:
    case OT_MEDIUM_ROCK:
      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x+objs[i2].radius+2.0;
      o_state[i2].y=o_state[j].y;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x-objs[i2].radius-2.0;
      o_state[i2].y=o_state[j].y;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      objs[j].active=A_INACTIVE;
      break;

    case OT_LARGE_ROCK:
      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x+objs[i2].radius+4.0;
      o_state[i2].y=o_state[j].y+objs[i2].radius+4.0;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x-objs[i2].radius-4.0;
      o_state[i2].y=o_state[j].y-objs[i2].radius-4.0;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x-objs[i2].radius-4.0;
      o_state[i2].y=o_state[j].y+objs[i2].radius+4.0;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      i2=ObjAlloc(objs[j].type-1);
      objs[i2].active=A_TRANSITION;
      o_state[i2].x=o_state[j].x+objs[i2].radius+4.0;
      o_state[i2].y=o_state[j].y-objs[i2].radius-4.0;
      o_state[i2].é=o_state[j].é;
      o_state[i2].DxDt=o_state[j].DxDt;
      o_state[i2].DyDt=o_state[j].DyDt;
      o_state[i2].DéDt=o_state[j].DéDt;

      objs[j].active=A_INACTIVE;
      break;
  }
}

U0 CheckCollisions()
{
  I64 i,j;
  F64 d,d1,dd,dx,dy;
  CDC *dc;
  for (i=0;i<NUM_OBJECTS;i++) {
    if (objs[i].active==A_ACTIVE) {
      for (j=i+1;j<NUM_OBJECTS;j++) {
	if (objs[j].active==A_ACTIVE) {
	  dx=o_state[i].x-o_state[j].x;
	  dy=o_state[i].y-o_state[j].y;
	  dd=Sqr(dx)+Sqr(dy);
	  d=Sqrt(dd);

	  if (d) {
	    dx/=d;
	    dy/=d;
	  } else {
	    dx=0;
	    dy=0;
	  }

	  d1=objs[i].radius+objs[j].radius;
	  if (dd<Sqr(d1)) {
	    dc=DCNew(DCT_COLOR8,64,64,Fs);
	    SpritePlotRotZ3b(dc,32,32,0,objs[i].img,o_state[i].é);
	    dc->color=ROP_COLLISION;
	    dc->bkcolor=BLACK;
	    SpritePlotRotZ3b(dc,o_state[j].x-o_state[i].x+32,
			       o_state[j].y-o_state[i].y+32,0,
			       objs[j].img,o_state[j].é);
	    if (dc->collision_cnt>0)
	      Collision(i,j);
	    DCDel(dc);
	  }
	}
      }
    }
  }
  for (i=0;i<NUM_OBJECTS;i++)
    if (objs[i].active==A_TRANSITION)
      objs[i].active=A_ACTIVE;
}

#define MUZZLE_VELOCITY 500.0

U0 Fire()
{
  F64 é=o_state[0].é;
  I64 i=ObjAlloc(OT_BULLET);
  objs[i].timeout=tT+0.5;
  objs[i].mass*=10.0;
  o_state[i].x=o_state[0].x+(objs[0].radius+objs[i].radius+1.0)*Cos(é-ã/2.0);
  o_state[i].y=o_state[0].y+(objs[0].radius+objs[i].radius+1.0)*Sin(é-ã/2.0);
  o_state[i].DxDt=o_state[0].DxDt+MUZZLE_VELOCITY*Cos(é-ã/2.0);
  o_state[i].DyDt=o_state[0].DyDt+MUZZLE_VELOCITY*Sin(é-ã/2.0);
  o_state[i].DéDt=RandI16/3000.0;

//not real physics with the 0.005 factor
  o_state[0].DxDt-=0.005*MUZZLE_VELOCITY*Cos(é-ã/2.0)*objs[i].mass/objs[0].mass;
  o_state[0].DyDt-=0.005*MUZZLE_VELOCITY*Sin(é-ã/2.0)*objs[i].mass/objs[0].mass;
}

U0 CheckCrazy()
{
  I64 i;
  F64 d;
  for (i=0;i<NUM_OBJECTS;i++)
    if (objs[i].active==A_ACTIVE) {
      d=Sqrt(Sqr(o_state[i].DxDt)+Sqr(o_state[i].DyDt));
      if (d>MUZZLE_VELOCITY*5.0)
	Auto(" ");
    }
}

U0 SongTask(I64)
{ //Song by Terry A. Davis
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  while (TRUE) {
    Play("W13eGGsGGeGGGe.GeCDsEDeCBAe.AeG");
    Play("GsGGeGGGe.GeFEsDEeDCBe.AeFD");
    Play("EDFDEDECDCECDCsGGeG");
    Play("GG2hG3sGGeGGG2hG");
  }
}

U0 Rocks()
{
  I64 ch,sc,msg_code;
  CMenuEntry *tempse;

  PopUpOk(
	"I refuse to rip-off the original\n"
	"so this is intentionally unplayable\n"
	"and included for demonstration\n"
	"purposes.\n\n"
	"Write games, don't play them.\n");

  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
  Fs->song_task=Spawn(&SongTask,NULL,"Song",Fs);
  Preempt(OFF),
  WinBorder;
  WordStat;

  MenuPush(
"File {"
"  Abort(,CH_SHIFT_ESC);"
"  Exit(,CH_ESC);"
"}"
"Play {"
"  Restart(,'\n');"
"  Fire(,CH_SPACE);"
"  Fwd(,,SC_CURSOR_UP);"
"  Left(,,SC_CURSOR_LEFT);"
"  Right(,,SC_CURSOR_RIGHT);"
"  ToggleBounce(,'b');"
"}"
);
  tempse=MenuEntryFind(Fs->cur_menu,"Play/ToggleBounce");
  tempse->checked=bounce=TRUE;

  ode=ODENew(NUM_OBJECTS*6,0.01);
  ode->derivative=&MyDerivative;
  ode->min_tolerance=0.001*ode->max_tolerance;
  o_state=ode->state;
  objs=MAlloc(NUM_OBJECTS*sizeof(Obj));

  WinMax;

  Init;
  QueIns(ode,Fs->last_ode);
  DocCursor;
  DocClear;
  Fs->draw_it=&DrawIt;

  try {
    while (TRUE) {
      while (msg_code=ScanMsg(&ch,&sc,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP)) {
	if (msg_code==MSG_KEY_DOWN)
	  switch (ch) {
	    case 0:
	      switch (sc.u8[0]) {
		case SC_CURSOR_RIGHT:
		  cmd_code=CMD_SPIN_RIGHT;
		  break;
		case SC_CURSOR_LEFT:
		  cmd_code=CMD_SPIN_LEFT;
		  break;
		case SC_CURSOR_UP:
		  cmd_code=CMD_THRUST;
		  break;
	      }
	      break;
	    case CH_SPACE:
	      Fire;
	      break;
	    case '\n':
	      Init;
	      break;
	    case CH_ESC:
	    case CH_SHIFT_ESC:
	      goto rk_done;
	    case 'b':
	      tempse=MenuEntryFind(Fs->cur_menu,"Play/ToggleBounce");
	      tempse->checked=bounce=!bounce;
	      break;
	  }
	else //MSG_KEY_UP
	  cmd_code=CMD_NULL;
      }
      CheckCollisions;
      CheckCrazy;
      if (cmd_code==CMD_GAME_OVER) {
	Sleep(1000);
	Init;
      }
      WinMgrSync; //msgs are only qued by winmngr
    }
rk_done:
    GetMsg(,,1<<MSG_KEY_UP);
  } catch
    CatchAll;

  QueRem(ode);
  ODEDel(ode);
  Free(objs);
  MenuPop;
 
  SettingsPop;
}

Rocks;

®

ùÿÿÿüÿÿÿüÿÿÿ
úÿÿÿÿÿÿÿþÿÿÿþÿÿÿ

ÿÿÿÿýÿÿÿýÿÿÿ
÷ÿÿÿ
÷ÿÿÿûÿÿÿûÿÿÿÿÿÿÿ


øÿÿÿ

øÿÿÿ

			

	
	
ôÿÿÿôÿÿÿôÿÿÿôÿÿÿùÿÿÿ
ùÿÿÿ
ùÿÿÿùÿÿÿþÿÿÿ	þÿÿÿ	
	
ùÿÿÿüÿÿÿüÿÿÿ
úÿÿÿÿÿÿÿþÿÿÿþÿÿÿ

ÿÿÿÿýÿÿÿýÿÿÿ
÷ÿÿÿ
÷ÿÿÿûÿÿÿûÿÿÿÿÿÿÿ


øÿÿÿ

øÿÿÿ
ÿÿÿÿþÿÿÿ
þÿÿÿ








	
ýÿÿÿ




óÿÿÿ
óÿÿÿøÿÿÿøÿÿÿûÿÿÿ	ûÿÿÿ		3
þÿÿÿýÿÿÿólß$†	n[½
þÿÿÿd¨	Š
gþÿÿÿûÿÿÿn[϶m’$C’$É$Q¶eÛ¼„ar–ͳíÙžW’"Cš¶½mÛ²
úÿÿÿ¶m’6MÛ+üÿÿÿ
¤m

þÿÿÿþÿÿÿ¤iÛ
I²
G

rüÿÿÿôÿÿÿóæy^ÝÚ³m“$íÛ¶mÛ³g’¡FCQŒ¢d["‰©(	³lÁ°lž×n$I’T¤$Ã÷ÿÿÿž=Û$
Íúÿÿÿ«]»¶m“¦IFI’$I’„IrY–ms×zõÖm¶kÛ&MÛ¶m“¤%‘’l¶e[’$‰HÒ·m›<I“$I’$I’³mÛ¶mÛ¶m[DŠŒüÿÿÿøÿÿÿ¶Mߧm{þÿÿÿI�ɶm›·yÛùÿÿÿv]×£’,K€$ÉW	$¥�Q‘IŠK°Ù2Û´MoK’dɶm›=Ï3O“¦=
øÿÿÿúÿÿÿ«ëu¦
ó
ÿÿÿÿþÿÿÿ
þÿÿÿþÿÿÿýÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

ÿÿÿÿþÿÿÿÿÿÿÿþÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿ

þÿÿÿ
þÿÿÿÿÿÿÿýÿÿÿ

ÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿýÿÿÿ
þÿÿÿýÿÿÿþÿÿÿó
ÿÿÿÿþÿÿÿ
þÿÿÿþÿÿÿýÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

ÿÿÿÿþÿÿÿÿÿÿÿþÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿ

þÿÿÿ
þÿÿÿÿÿÿÿýÿÿÿ

ÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿýÿÿÿ
þÿÿÿýÿÿÿþÿÿÿ3
þÿÿÿýÿÿÿólß$†	n[½
þÿÿÿd¨Š
gþÿÿÿûÿÿÿn[϶m’$C’$É$Q¶eÛ¼„ar–ͳíÙžW’"Cš¶½mÛ²
úÿÿÿ¶m’6MÛ+üÿÿÿ
¤m

þÿÿÿþÿÿÿ¤iÛ
I²
G

rüÿÿÿôÿÿÿóæy^ÝÚ³m“$íÛ¶mÛ³g’¡FCQŒ¢d["‰©(	³lÁ°lž×n$I’T¤$Ã÷ÿÿÿž=Û$
Íúÿÿÿ«]»¶m“¦IFI’$I’„IrY–ms×zõÖm¶kÛ&MÛ¶m“¤%‘’l¶e[’$‰HÒ·m›<I“$I’$I’³mÛ¶mÛ¶m[DŠŒüÿÿÿøÿÿÿ¶Mߧm{þÿÿÿI�ɶm›·yÛùÿÿÿv]×£’,K€$ÉW	$¥�Q‘IŠK°Ù2Û´MoK’dɶm›=Ï3O“¦=
øÿÿÿúÿÿÿ«ëu¦6(ÿÿÿÿûÿÿÿÛlÛ¤m“dÂ�$·m²dþÿÿÿþÿÿÿöiÚ
kMøÿÿÿض¶µkۦϓ$Û$‰$’ A’$$m»Þ6ÏófGÿÿÿÿûÿÿÿuëÚöH†EQdlÛö¶-Q$Æë Á²l¶mýÿÿÿúÿÿÿ

ÙöÿÿÿsÛÖmëÖ­ÏŸ¶mû$¥$”"mY�%‰¢(#I’ÚömÛ®k»@’,˶mö¼$a…‰Â�$mÛ¾i’¾ùÛÁ¶mÛ¶m›çºvm[I¤„‰ÂD
Gøÿÿÿ®ëÚöì%›mÛ¶Iš´ízÛšˆÜþoI&IG
A’$I’$II”m“¤ïmÛ¶Õž·$
’!É
+øÿÿÿþÿÿÿ¶k»¶éÿ´mÓ$™0L�e[ýÿÿÿI– Éúÿÿÿ¶]Û"	ýÿÿÿ›·Í¶m&	¥�¦í­¾
ðÿÿÿ
þÿÿÿÿÿÿÿ
ûÿÿÿúÿÿÿûÿÿÿ
úÿÿÿùÿÿÿöÿÿÿöÿÿÿúÿÿÿþÿÿÿüÿÿÿüÿÿÿýÿÿÿýÿÿÿ




ýÿÿÿ

þÿÿÿûÿÿÿþÿÿÿûÿÿÿ


	
	ÿÿÿÿúÿÿÿüÿÿÿ	ûÿÿÿ



þÿÿÿ

ùÿÿÿüÿÿÿüÿÿÿ
úÿÿÿÿÿÿÿþÿÿÿþÿÿÿ

ÿÿÿÿýÿÿÿýÿÿÿ
÷ÿÿÿ
÷ÿÿÿûÿÿÿûÿÿÿÿÿÿÿ


øÿÿÿ

øÿÿÿŸ

ùÿÿÿüÿÿÿüÿÿÿ
úÿÿÿÿÿÿÿþÿÿÿþÿÿÿ

ÿÿÿÿýÿÿÿýÿÿÿ
÷ÿÿÿ
÷ÿÿÿûÿÿÿûÿÿÿÿÿÿÿ


øÿÿÿ

øÿÿÿ
ÿÿÿÿþÿÿÿ
þÿÿÿ








	'þÿÿÿþÿÿÿ4In]Kjÿÿÿÿ
	(þÿÿÿ
6™%Ifýÿÿÿ$I