lisp to change shape of object

I have a drawing with circles with numbers in them indicating locations on a plan. I need a lisp routine to change the shape from say a circle of diameter 10 to a square of 10 x 10 around the centre point of the circle.

Note that the circles are not blocks but simple circles.

Can this be done in lisp? if so how?

Thanks for your help guys appreciated.

Maybe :

See Post #7

-David

Hi david. I could follow your code until u got dxf 40..after that im lost. Can u explain?

DXF 40 is the radius of the circle. The OP stated that each side of the square be equal to the diameter of the circle.

For this to happen, the distance of the diagonal from the center of the circle to each corner of the square is equal to the radius of the circle times 1\2 the square root of 2 ( or the sine of 45 degrees ).

I like 3DFACEs as they store all point values in WCS. In the ( entmake ) call I translated all point values from the OCS of the circle to WCS.

HTH -David

Hi David,

Thanks for that. Only thing is I am working in 2D, so would I change the line where you have 3DFACE to 2D.

I ran the coding and found that in 2D it draws a uniform square of the same dimension irrespective of the diameter of the circle.

Baber

My bad, works fines thanks David, appreciated.

For a variety of entity types :

[b][color=BLACK]([/color][/b]defun c:c2sq [b][color=FUCHSIA]([/color][/b]/ et ss i en ed ce c2 ra d[b][color=FUCHSIA])[/color][/b]

 [b][color=FUCHSIA]([/color][/b]initget 1 [color=#2f4f4f]"3Dface LWpolyline Polyline Solid Trace"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq et [b][color=NAVY]([/color][/b]getkword [color=#2f4f4f]"\nSquare Entity Type - 3Dface/LWpolyline/Polyline/Solid/Trace:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]

 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
                   ce [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   c2 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]car ce[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]cadr ce[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   ra [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 40 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                    d [b][color=GREEN]([/color][/b]* ra [b][color=BLUE]([/color][/b]sqrt 2.0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]cond [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]= et [color=#2f4f4f]"3Dface"[/color][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"3DFACE"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]trans [b][color=OLIVE]([/color][/b]polar ce [b][color=GRAY]([/color][/b]* pi 0.25[b][color=GRAY])[/color][/b] d[b][color=OLIVE])[/color][/b] en 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 11 [b][color=TEAL]([/color][/b]trans [b][color=OLIVE]([/color][/b]polar ce [b][color=GRAY]([/color][/b]* pi 0.75[b][color=GRAY])[/color][/b] d[b][color=OLIVE])[/color][/b] en 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 12 [b][color=TEAL]([/color][/b]trans [b][color=OLIVE]([/color][/b]polar ce [b][color=GRAY]([/color][/b]* pi 1.25[b][color=GRAY])[/color][/b] d[b][color=OLIVE])[/color][/b] en 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 13 [b][color=TEAL]([/color][/b]trans [b][color=OLIVE]([/color][/b]polar ce [b][color=GRAY]([/color][/b]* pi 1.75[b][color=GRAY])[/color][/b] d[b][color=OLIVE])[/color][/b] en 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]member et '[b][color=RED]([/color][/b][color=#2f4f4f]"Solid"[/color] [color=#2f4f4f]"Trace"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 et[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 6 [color=#2f4f4f]"BYLAYER"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 0.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 11 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 0.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 12 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 1.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 13 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 1.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 210 ed[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]= et [color=#2f4f4f]"Polyline"[/color][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"POLYLINE"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]list 10 0 0 [b][color=TEAL]([/color][/b]caddr ce[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 66 1[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 70 1[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 210 ed[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 0.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 0.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 1.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"VERTEX"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar ce [b][color=OLIVE]([/color][/b]* pi 1.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"SEQEND"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                   [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]= et [color=#2f4f4f]"LWpolyline"[/color][b][color=BLUE])[/color][/b]
                    [b][color=BLUE]([/color][/b]entmake [b][color=RED]([/color][/b]list [b][color=PURPLE]([/color][/b]cons 0 [color=#2f4f4f]"LWPOLYLINE"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 100 [color=#2f4f4f]"AcDbEntity"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 8 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 100 [color=#2f4f4f]"AcDbPolyline"[/color][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons  6 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 6 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 6 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] [color=#2f4f4f]"BYLAYER"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 38 [b][color=TEAL]([/color][/b]caddr ce[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 39 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 39 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 39 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 0[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 62 [b][color=TEAL]([/color][/b]if [b][color=OLIVE]([/color][/b]assoc 62 ed[b][color=OLIVE])[/color][/b] [b][color=OLIVE]([/color][/b]cdr [b][color=GRAY]([/color][/b]assoc 62 ed[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b] 256[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 90 4[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 70 1[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]assoc 210 ed[b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar c2 [b][color=OLIVE]([/color][/b]* pi 0.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar c2 [b][color=OLIVE]([/color][/b]* pi 0.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar c2 [b][color=OLIVE]([/color][/b]* pi 1.25[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                   [b][color=PURPLE]([/color][/b]cons 10 [b][color=TEAL]([/color][/b]polar c2 [b][color=OLIVE]([/color][/b]* pi 1.75[b][color=OLIVE])[/color][/b] d[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entdel en[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-David