#lang scheme/gui

(define ventana
  (make-object frame% 
    "Coordenadas en x = 400 y = 300" 
    #f 
    450 350 
    400 300))

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

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

(define lapiz-azul
  (make-object pen%
    "blue"
    5
    'solid))
;;;; ejemplo con un gráfico externo
(send ventana show #t)
(send dc draw-ellipse 100 100 150 150)
(define mapabit (make-object bitmap% 130 190))
(send mapabit load-file "Turing1.png" 'png)

(send dc draw-bitmap mapabit 100 100 'solid)
(sleep/yield 1)
(send dc draw-text "Alan Turing" 120 255 #t 0 0)
