mfi@beach.cis.ufl.edu (Mark Interrante) (03/05/89)
I have a question about quickdraw graphics, I am trying to scale a
drawing smaller and larger in lisp. The following code draws an oval and draws
it at half its original size. When I modify the code so that the rectangle
is [0,0] by [200,200] instead of [0,0 by [50,50] I get no image on the
window. Any rectangle larger than the original produces that same result.
Is this an incorrect method for enlarging a drawing, or might there be
some problem in lisps quickdraw access routines? Thanks.
-------
(rlet ((temp-rect :rect ;temporarily allocate a rectangle
:top 0 ;
:left 0 ;
:bottom 100 ;
:right 100)
(t-rect :rect ;temporarily allocate a rectangle
:top 0 ;
:left 0 ;
:bottom 50 ;
:right 50)) ;
(ask window (start-picture temp-rect)) ;start a drawing
(ask window (paint-oval temp-rect)) ;draw something
(setq image (ask gw (get-picture))) ;finish drawing
(ask window (draw-picture image t-rect))) ;display drawing
-----------------------------------------------------------------------------
Mark Interrante Software Engineering Research Center
mfi@beach.cis.ufl.edu CIS Department, University of Florida 32611
-----------------------------------------------------------------------------
"Imagine what it would be like if TV actually were good. It would be the end
of everything we know." Marvin Minsky