#lang scheme/gui

(define ventana
  (make-object frame% 
    "Torres de Hanoi" 
    #f 
    450 450 
    400 300))

(define lienzo
  (instantiate canvas% 
    (ventana) 
    (style '(border)) ))

(define dc (send lienzo get-dc))
;;;;;;;;;;;
(define brocha-roja
  (make-object brush%
    "red"
    'solid))

(define lapiz-oro
  (make-object pen%
    "gold"
    5
    'solid))
(define lapiz-negro
  (make-object pen%
    "black"
    5
    'solid))
;;;;;;;;;;;
(send ventana show #t)
(send dc set-pen lapiz-negro)
;;;;;;;;;;;
(define agujas
  (lambda (dc)
    (send dc draw-line 25 300 125 300)
    (send dc draw-line 75 200 75 300)
    (send dc draw-line 175 300 275 300)
    (send dc draw-line 225 200 225 300)
    (send dc draw-line 325 300 425 300)
    (send dc draw-line 375 200 375 300)
    )
  )
(define aro
  (lambda (x y ancho alto)
    (let ((pen (send dc get-pen))
          )
      (send dc set-pen lapiz-oro)
      (send dc draw-ellipse x y ancho alto)
      (send dc set-pen pen)
      )
    )
  )
(aro 25 285 100 10)
(aro 30 265 90 10)
(aro 35 245 80 10)
(agujas dc)
