[plt-scheme-es] Fw: Dibujar un circuloż?
fernando
fernando_tidona@appm.com.ar
Thu, 15 Jan 2004 12:04:20 -0300
This is a multi-part message in MIME format.
------=_NextPart_000_0061_01C3DB5F.B5572870
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola! descubri que tenia que agregar el Teachpack draw.ss, pero ahora =
me da un error con make-posn.=20
Gracias
----- Original Message -----=20
From: fernando=20
To: plt-scheme-es@list.cs.brown.edu=20
Sent: Thursday, January 15, 2004 10:27 AM
Subject: Dibujar un circulo=BF?
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)
Fernando Tidona
------=_NextPart_000_0061_01C3DB5F.B5572870
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>Hola! descubri que tenia que agregar el =
<FONT=20
face=3D"Times New Roman" size=3D3>Teachpack draw.ss, pero ahora me =
da un error=20
con<FONT color=3D#000080> </FONT><FONT face=3DArial size=3D2><FONT=20
color=3D#000080>make-posn. </FONT></FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Gracias</FONT></DIV>
<DIV> </DIV>
<DIV style=3D"FONT: 10pt arial">----- Original Message -----=20
<DIV style=3D"BACKGROUND: #e4e4e4; font-color: black"><B>From:</B> <A=20
title=3Dfernando_tidona@appm.com.ar=20
href=3D"mailto:fernando_tidona@appm.com.ar">fernando</A> </DIV>
<DIV><B>To:</B> <A title=3Dplt-scheme-es@list.cs.brown.edu=20
href=3D"mailto:plt-scheme-es@list.cs.brown.edu">plt-scheme-es@list.cs.bro=
wn.edu</A>=20
</DIV>
<DIV><B>Sent:</B> Thursday, January 15, 2004 10:27 AM</DIV>
<DIV><B>Subject:</B> Dibujar un circulo=BF?</DIV></DIV>
<DIV><BR></DIV>
<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>(start WIDTH HEIGHT)<BR>(draw-solid-disk (<FONT=20
color=3D#ff0000>make-posn</FONT> X-BULBS Y-RED) BULB-RADIUS =
'red)<BR>(draw-circle=20
(<FONT color=3D#ff0000>make-posn</FONT> X-BULBS Y-YELLOW) BULB-RADIUS=20
'yellow)<BR>(draw-circle (<FONT color=3D#ff0000>make-posn</FONT> X-BULBS =
Y-GREEN)=20
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 size=3D2>Fernando =
Tidona</FONT></DIV></BODY></HTML>
------=_NextPart_000_0061_01C3DB5F.B5572870--