[plt-scheme-es] Dibujar un circuloż?
fernando
fernando_tidona@appm.com.ar
Thu, 15 Jan 2004 10:27:17 -0300
This is a multi-part message in MIME format.
------=_NextPart_000_002D_01C3DB52.264170D0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Estimados:
Estoy tratando de ver como funciona la parte grafica, para ello copie el =
siguiente ejemplo del libro:
;; dimensions of traffic light =20
(define WIDTH 50)
(define HEIGHT 160)
(define BULB-RADIUS 20)
(define BULB-DISTANCE 10)
;; the positions of the bulbs=20
(define X-BULBS (quotient WIDTH 2))
(define Y-RED (+ BULB-DISTANCE BULB-RADIUS))
(define Y-YELLOW (+ Y-RED BULB-DISTANCE (* 2 BULB-RADIUS)))
(define Y-GREEN (+ Y-YELLOW BULB-DISTANCE (* 2 BULB-RADIUS)))
;; draw the light with the red bulb turned on
(start WIDTH HEIGHT)
(draw-solid-disk (make-posn X-BULBS Y-RED) BULB-RADIUS 'red)
(draw-circle (make-posn X-BULBS Y-YELLOW) BULB-RADIUS 'yellow)
(draw-circle (make-posn X-BULBS Y-GREEN) BULB-RADIUS 'green)
el problema que tengo es que me da error al interpretar los comandos =
start, draw-solid-disk, draw-circle, supongo que debo llamar a alguna =
libreria, pero no se como.
Muchas Gracias.=20
Saludos a todos
Cordialmente
Fernando Tidona
------=_NextPart_000_002D_01C3DB52.264170D0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Estimados:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Estoy tratando de ver como funciona la =
parte=20
grafica, para ello copie el siguiente ejemplo del libro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>;; dimensions of traffic =
light =20
<BR>(define WIDTH 50)<BR>(define HEIGHT 160)<BR>(define BULB-RADIUS=20
20)<BR>(define BULB-DISTANCE 10)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>;; the positions of the bulbs =
<BR>(define X-BULBS=20
(quotient WIDTH 2))<BR>(define Y-RED (+ BULB-DISTANCE =
BULB-RADIUS))<BR>(define=20
Y-YELLOW (+ Y-RED BULB-DISTANCE (* 2 BULB-RADIUS)))<BR>(define Y-GREEN =
(+=20
Y-YELLOW BULB-DISTANCE (* 2 BULB-RADIUS)))</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>;; draw the light with the red bulb =
turned=20
on<BR>(<FONT color=3D#ff0000>start </FONT>WIDTH HEIGHT)<BR>(<FONT=20
color=3D#ff0000>draw-solid-disk</FONT> (make-posn X-BULBS Y-RED) =
BULB-RADIUS=20
'red)<BR>(<FONT color=3D#ff0000>draw-circle</FONT> (make-posn X-BULBS =
Y-YELLOW)=20
BULB-RADIUS 'yellow)<BR>(<FONT color=3D#ff0000>draw-circle</FONT> =
(make-posn=20
X-BULBS Y-GREEN) BULB-RADIUS 'green)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>el problema que tengo =
es que me da=20
error al interpretar los comandos <STRONG><EM>start, draw-solid-disk,=20
draw-circle,</EM></STRONG> supongo que debo llamar a alguna libreria, =
pero no se=20
como.</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Muchas Gracias. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Saludos a todos</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Cordialmente</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Fernando =
Tidona</FONT></DIV></BODY></HTML>
------=_NextPart_000_002D_01C3DB52.264170D0--