extends DxChar;

/*
線を描いてるだけです。
*/

$bgcolor=$clWhite;
$ScreenWidth=50;
$ScreenHeight=50;
x=$ScreenWidth/2;
y=$ScreenHeight/2;
setVisible(0);
enrgy=0;
iro=color(0,0,255);
while(1) {
  if (getKey(90) && enrgy>-1) {
    $panel.drawLine(x,y,cos(enrgy)-sin(enrgy)*(enrgy+3235),sin(enrgy)-cos(enrgy)*(enrgy+3235),color(0,0,0));
    enrgy--;
  }
  if (getKey(32) && enrgy<510) {
    if (enrgy<255) iro=color(enrgy,0,255-enrgy);
    if (enrgy>254) iro=color(510-enrgy,enrgy-255,0);
    $panel.drawLine(x,y,cos(enrgy)-sin(enrgy)*(enrgy+3235),sin(enrgy)-cos(enrgy)*(enrgy+3235),iro);
    print((cos(enrgy)-sin(enrgy)*(enrgy+3235))/10);
    print((sin(enrgy)-cos(enrgy)*(enrgy+3235))/10);
    enrgy++;
  }
  update();
}