TempleOS-Rijn/LT/DEMO/Graphics/StarTrek2.CPZ

//This requires a JoyStick








	       $PI,"",2$








		$PI,"",4$







		$PI,"",5$








		$PI,"",6$








		$PI,"",7$




U8 destroyed_time;
U8 phasor_time;
U4 updates=0;
U1 *img1=$IB,"<P2>",2$;
U1 *img2=$IB,"<P4>",4$;
U1 *img3=$IB,"<P5>",5$;
U1 *img4=$IB,"<P6>",6$;
U1 *img5=$IB,"<P7>",7$;
GrBitMap *base;
Ode *o;
Order2D3 *enemy_state;
Order2D3 *enterprise_state;

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

void PhasorTsk()
{
  while (phasor_time) {
    Sound(DivI8(MulI8(4000,phasor_time-jiffies),JIFFY_FREQ));
    Sleep(1);
  }
  Sound(0);
}

void BoomTsk()
{
  I2 i;
  for (i=2000;i>100;i=i-3) {
    Sound(100+100*(i&1));
    Sleep(1);
  }
  Sound(0);
}

void MyDerivative(Ode *o,double t,Order2D3 *state,Order2D3 *DstateDt)
{
  Order2D3 *enemy_state=state;
  Order2D3 *enterprise_state=state+sizeof(Order2D3);
  Order2D3 *Denemy_state=DstateDt;
  Order2D3 *Denterprise_state=DstateDt+sizeof(Order2D3);
  double dx,dy,d,f;
  I8 jx=DivI8(MulI8(150,joyv[0]-joyrest[0]),joymax[0]-joymin[0]+1);
  I8 jy=DivI8(MulI8(150,joyv[1]-joyrest[1]),joymax[1]-joymin[1]+1);

o;t;  //avoid unused var warning

  dx=grwidth/2-enemy_state->x;
  dy=grheight/2-enemy_state->y;
  d=Sqr(dx)+Sqr(dy);
  f=1e6/(d+50);
  d=Sqrt(d);
  Denemy_state->x=enemy_state->DxDt;
  Denemy_state->y=enemy_state->DyDt;
  Denemy_state->DxDt=f*dx/d;
  Denemy_state->DyDt=f*dy/d;

  dx=grwidth/2-enterprise_state->x;
  dy=grheight/2-enterprise_state->y;
  d=Sqr(dx)+Sqr(dy);
  f=1e6/(d+50);
  d=Sqrt(d);
  Denterprise_state->x=enterprise_state->DxDt;
  Denterprise_state->y=enterprise_state->DyDt;
  Denterprise_state->DxDt=f*dx/d+jx;
  Denterprise_state->DyDt=f*dy/d+jy;
}


void DrawIt()
{
  U8 i;
  I8 *r1,x,y,z;
  double jx=(joyv[0]-joyrest[0])*150.0/(joymax[0]-joymin[0]+1);
  double jy=(joyv[1]-joyrest[1])*150.0/(joymax[1]-joymin[1]+1);
  double theta=Arg(jx,jy);
  ClearWindowText;

  base->color=GR_WHITE;
  for (i=0;i<NUM_STARS;i++)
    GrPlot0(base,stars_x[i],stars_y[i]);

  base->x=enterprise_state->x;
  base->y=enterprise_state->y;
  base->z=0;
  base->flags|=BMF_TRANSFORMATION;
  r1=base->r;
  base->r=GrTheta(theta);
  GrElemsPlot(base,0,0,0,img1,GR_BLACK);
  if (phasor_time) {
    if (updates & 1)
      base->color=GR_YELLOW;
    else
      base->color=GR_RED;
    GrLine2(base,75,0,0,300,0,0);
    if (jiffies>=phasor_time)
      phasor_time=0;
    x=300,y=0,z=0;
    GrTransform(base,&x,&y,&z);
    if (!destroyed_time &&
	Abs(x-enemy_state->x)<50.0 &&
	Abs(y-enemy_state->y)<50.0) {
      destroyed_time=jiffies+JIFFY_FREQ;  //one second
      Spawn(&BoomTsk);
    }
  }
  Free(base->r);
  base->r=r1;
  base->flags&=~BMF_TRANSFORMATION;

  if (destroyed_time) {
    GrElemsPlot(base,enemy_state->x,enemy_state->y,0,img3,GR_BLACK);
    if (jiffies>=destroyed_time)
      destroyed_time=0;
  } else
    GrElemsPlot(base,enemy_state->x,enemy_state->y,0,img2,GR_BLACK);

  if (updates++ & 2)
    GrElemsPlot(base,grwidth/2,grheight/2,0,img4,GR_BLACK);
  else
    GrElemsPlot(base,grwidth/2,grheight/2,0,img5,GR_BLACK);

  if (enterprise_state->x>grwidth)
    enterprise_state->x-=grwidth;
  if (enterprise_state->x<0)
    enterprise_state->x+=grwidth;
  if (enterprise_state->y>grheight)
    enterprise_state->y-=grheight;
  if (enterprise_state->y<0)
    enterprise_state->y+=grheight;

  if (enemy_state->x>grwidth)
    enemy_state->x-=grwidth;
  if (enemy_state->x<0)
    enemy_state->x+=grwidth;
  if (enemy_state->y>grheight)
    enemy_state->y-=grheight;
  if (enemy_state->y<0)
    enemy_state->y+=grheight;
}

void StarTrek2()
{
  U8 i;
  U8 old_ip=ip_pointer_type;
  U4 *old_update_window=Fs->update_window;
  U4 old_text_attr=Fs->text_attribute;
  BoolU4 old_preempt;

  destroyed_time=0;
  phasor_time=0;
  base=GrNew(grbase2);
  o=OdeNew(12);
  enemy_state=o->state;
  enterprise_state=o->state+sizeof(Order2D3);

  o->derivative=&MyDerivative;
  o->tolerance_start=.1;
  ip_pointer_type=IP_JOYSTICK0;
  ip_inhibit_win_operations=TRUE;
  LoadJoystickCalibration;

  Fs->text_attribute=0;
  Fs->update_window=&DrawIt;
  MaximizeWindow;

  enemy_state->x=100;
  enemy_state->y=100;
  enemy_state->DxDt=10.0;
  enemy_state->DyDt=20.0;
  enterprise_state->x=300;
  enterprise_state->y=100;
  enterprise_state->DxDt=10.0;
  enterprise_state->DyDt=20.0;

  old_preempt=Preempt(OFF);
  InsQue(o,Fs->last_ode);
  Preempt(old_preempt);

  for (i=0;i<NUM_STARS;i++) {
    stars_x[i]=RandU2%grwidth;
    stars_y[i]=RandU2%grheight;
  }
  while (!joyb[1]) { //not right button
    if (joyb[0] && !phasor_time) {  //left button?
      Spawn(&PhasorTsk);
      phasor_time=jiffies+JIFFY_FREQ/2;  //half second
    }
    Sleep(50);
  }
  old_preempt=Preempt(OFF);
  RemQue(o);
  Preempt(old_preempt);
  OdeDel(o);

  Sound(0);
  Fs->update_window=old_update_window;
  Fs->text_attribute=old_text_attr;
  ip_pointer_type=old_ip;
  ip_inhibit_win_operations=FALSE;
  LtfBottom(Fs->cur_ltf);
}

StarTrek2;
­
6¡ÿÿÿÒÿÿÿ[gÛ®m’d’$IÛvÛFaûö:@L�ÿÿÿèÿÿÿ$ýÛ¶m{^‚ @’$±}ÿ÷“$Ù’$q=׶Móô
““ÿÿÿóÿÿÿ$I’$I’äù“<I’¤(’$I’”HŠ$EŠJ’$‰’mݶuÛ¼­ÛºÍÛ¶mÛ¶mÛ¶mÛ†
¶mŠ¡ÿÿÿÚÿÿÿ$I’$I’$I’$I’$I’$I’$I’$™D‰%I¶µ]»mÛ¶
Û¶mÛ¶mÛ¶mÛ¶­Ý¶m!ÖÿÿÿÙÿÿÿüÿÿÿÿÿÿÿÿÿÿÿ5ÄÿÿÿòÿÿÿüI’'I“'Ïÿ?žIIIQ$»÷ÿÿÿùÿÿÿ¶íÿÿÿ“çyÒ$I’4I’$Iž$I’$M’$Ož$IIEQ’$EIÀ0Ã`¶aÛ°mö
ضµmÛn붶]·®ë¶n+-úÿÿÿäÿÛ¶×u]·
nÚÿÿÿ
ÚÿÿÿÚÿÿÿêÿÿÿêÿÿÿëÿÿÿëÿÿÿÚÿÿÿ
Úÿÿÿ
Úÿÿÿ÷ÿÿÿÚÿÿÿ÷ÿÿÿëÿÿÿñÿÿÿëÿÿÿñÿÿÿ
òÿÿÿ
òÿÿÿ#þÿÿÿ#þÿÿÿ##þÿÿÿþÿÿÿëÿÿÿ


éÿÿÿ
##$ýÿÿÿ$ýÿÿÿ4ïÿÿÿ4ïÿÿÿ((!úÿÿÿ(**,9úÿÿÿ9úÿÿÿ5ïÿÿÿéÿÿÿûÿÿÿúÿÿÿèÿÿÿúÿÿÿèÿÿÿûÿÿÿ2
5÷ÿÿÿ5÷ÿÿÿ6ýÿÿÿ5ýÿÿÿ3,++.	.	,Q
ìÿÿÿÿÿÿÿÿÿÿÿ!!/øÿÿÿ.øÿÿÿþÿÿÿþÿÿÿóÿÿÿæÿÿÿóÿÿÿæÿÿÿ÷ÿÿÿÿÿÿÿ÷ÿÿÿÿÿÿÿÛÿÿÿóÿÿÿÛÿÿÿóÿÿÿôÿÿÿôÿÿÿéÿÿÿûÿÿÿñÿÿÿþÿÿÿ
$
þÿÿÿ>	ýÿÿÿæÿÿÿøÿÿÿýÿÿÿÚÿÿÿèÿÿÿž
}ÿÿÿµ‘Ä÷oº
ðÿÿÿÛÖmݺ­[·¹m[׶mÿÿÏÿüO“$M’”DI’$IR¢„I’$À0`À¶mÛ¶ÍÛ¶uۼ͔Úv­ëHR$J’(’$É“çIû¿éÛ¾m»mݶÝ6CI’$’¶ý¶Ýºuݺn]·®[×Í‚$
EQÅß6I’$I’–IIÛÖÖ¶mÛ$/Š’DIJ’`¶mmÛ¶Ý6Ì7yúÿïÛæO&	@@HJ
òÿÿÿåÿÿÿ
ùÿÿÿ!÷ÿÿÿîÿÿÿøÿÿÿäÿÿÿøÿÿÿöÿÿÿêÿÿÿëÿÿÿøÿÿÿÿÿÿÿòÿÿÿþÿÿÿõÿÿÿ
åÿÿÿýÿÿÿ ž
}ÿÿÿµ‘Ä÷oº
ðÿÿÿÛÖmݺ­[·¹m[׶mÿÿÏÿüO“$M’”DI’$IR¢„I’$À0`À¶mÛ¶ÍÛ¶uۼ͔Úv­ëHR$J’(’$É“çIû¿éÛ¾m»mݶÝ6CI’$’¶ý¶Ýºuݺn]·®[×Í‚$
EQÅß6I’$I’–IIÛÖÖ¶mÛ$/Š’DIJ’`¶mmÛ¶Ý6Ì7yúÿïÛæO&	@@HJ
ùÿÿÿãÿÿÿûÿÿÿ ýÿÿÿöÿÿÿûÿÿÿêÿÿÿìÿÿÿöÿÿÿþÿÿÿÕÿÿÿúÿÿÿóÿÿÿóÿÿÿÿÿÿÿûÿÿÿøÿÿÿáÿÿÿøÿÿÿüÿÿÿ