Programacion

Gestión de las flechas de control: "arrow.ss"
 ( requiere HTDP / flecha ) |
El teachpack implementa un controlador para mover las formas a través de un lienzo.procedimiento(control-izquierda-derecha  forma  n  movimiento  empate )  → verdadero  |
  forma  : Forma  |
  n  : número?  |
  movimiento  : ( -> ? número Shape Shape )     |
  llamar  : ( -> Forma verdadera )    |Mueve forma n píxeles a la izquierda (negativo) o hacia la derecha (positivo).
procedimiento(control-arriba-abajo  figura  n  movimiento  empate )  → verdadero  |
  forma  : Forma  |  n  : número?  |
  movimiento  : ( -> ? número Shape Shape )     |
  llamar  : ( -> Forma verdadera )    |
Mueve forma n píxeles hacia arriba (negativo) o hacia abajo (positiva).
procedimiento(control de  laforma  n  movimiento lr-  movimiento-ud  empate )  → verdadero  |
  forma  : Forma  |
  n  : número?  |
  mover-lr  : ( -> ? número Shape Shape )     |
  movimiento-ud  : ( -> ?número Shape Shape )     |
  llamar  : ( -> Forma verdadera )    |
Mueve forma N píxeles hacia la izquierda o la derecha y hacia arriba o hacia abajo, respectivamente.
Ejemplo:
;  Una forma es unaestructura: |
;    (make-Posn num num) |
  |
;  RAD: el radio del disco móvil simple a través de un lienzo |
( definir  RAD  10 ) |
  |
;  movimiento: forma de número -> forma o falso |,  para mover una forma de delta de acuerdo a traducir |
;  efecto: para dibujar |
( define  ( mover  delta  SH ) |
  ( cond |
    [ ( y  ( claro sólido disco  SH  RAD ) |          ( extracción sólido-disco  ( traducir  SH  delta )  RAD ) ) |
     ( traducir  SH  delta ) ] |
    [ más  falso ] ) ) |
  |
;  traducir: número de forma -> forma |
;  para traducir una forma de delta en ladirección x |
( define  ( traducir  SH  delta ) |
  ( make-Posn  ( +  ( x posn-  SH )  delta )  ( posn-y  SH ) ) ) |
  |
;  draw-it: shape -> true |
;  para dibujar...