# [plt-scheme] HTDP Exercise 6.6.2

Looks perfect. This exercise is about learning to package and re-
package data. Nothing deep.
Let me recommend, however, that you skip exercises that involve draw.ss.
If you can, make up alternatives using image.ss or universe.ss (see
teachpack
docs). Post them here. Someone will confirm or suggest changes. Then
solve.
-- Matthias
On Feb 24, 2009, at 11:45 PM, aditya shukla wrote:
>* I was solving the exercise no 6.6.2 from htdp, this is what i came
*>* up with.
*>*
*>* ;template (define fun-for-circle (lambda(a-circle)(circle-center a-
*>* circle)(circle-radius a-center)(circle-color a-circle)))
*>* (define-struct circle (center radius color))
*>* (define a-circle(make-circle(make-posn 110 30) 30 'yellow))
*>* (define draw-a-circle(lambda(a-circle)
*>* (draw-circle ( circle-center a-circle)
*>* (circle-radius a-circle)(circle-color a-circle))))
*>*
*>* (start 300 300)
*>*
*>* (draw-a-circle a-circle)
*>*
*>* But i am not sure this is the right way to approach this problem ,
*>* i have used draw-circle to implement draw-a-circle .Any help is
*>* appreciated in improving the solution.
*>*
*>*
*>* Aditya
*>*
*>*
*>*
*>* _________________________________________________
*>* For list-related administrative tasks:
*>* http://list.cs.brown.edu/mailman/listinfo/plt-scheme
*