!header

Aquí tienes dos figuras de distinto color. Una de ellas obtenida a 
partir de la otra mediante una rotación en el plano. Encuentra el 
centro de esta rotación.

!if $status=wait
 <p>Para dar tu respuesta: haz click en la figura, en el lugar donde
 creas que es el centro de rotación.
 !form reply
 <table cellpadding=10>
 <td>
 !distribute item alt=Click,1,form click into ins_attr,ins_border,ins_tag
!else
 <p>Aquí está tu respuesta, además del verdadero centro de rotación.
 <table cellpadding=10>
 <td>
 !set ins_attr=alt=Result
!endif
!insdraw fill 1,1,255,255,255\
transparent 255,255,255\
$ins_src
<td>&nbsp;&nbsp;&nbsp;<td>
 <font color=red>rojo</font> = figura original<br>
 <font color=#00a000>verde</font> = figura rotada<br>
!if $status!=wait
 <img src=$module_dir/gifs/cross.gif> = donde tú has hecho click<br>
 <img src=$module_dir/gifs/circle.gif> = el verdadero centro de rotación
!endif

</table>
!if $status=wait
 </form>
 <p><b>Consejo</b>. El centro de rotación es un punto cuya distacia
hacia un punto y su rotado es la misma.
!endif
<p>

!if $status!=wait
 Precisión de la respuesta (número $reply_cnt de $shoots): $[rint($error*2)/10] mm.
 !if $reply_cnt<$shoots
  Precisión media de la sesión: $mean mm.
  <p>
  !href cmd=next Continuar con un nuevo disparo
  .
 !else
  <p>Fin de la sesión con $reply_cnt disparos. Precisión media = $mean mm,
  puntuación = $module_score/10. <p>
  <table border=0>
  <td>Resumen de los disparos de la sesión.&nbsp;&nbsp;
  <td>
  !set insdraw_size=$[$ring_size*20],$[$ring_size*20]
  !insdraw fill 1,1,255,255,255\
   transparent 255,255,255\
   $rings\
   $target
  </td>
  </table> <p>
  !href cmd=renew&worksheet=$wims_sheet&$module_init_parm Comenzar una nueva sesión
  .
  !if $worksheet=$empty
   !href module=$module Reconfigurar el juego
.
  !endif
 !endif
!endif

:end
!tail
