LOGO-L> More Tessellations 
Author Message
 LOGO-L> More Tessellations

This is a multi-part message in MIME format.

Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hello Turtlers,

Here are three more uncolored tesselations, all made with the same
program, but with different inputs.

Procedure CLEAN_UP is not related to the drawing, but to the
representation of its output. Run MAIN and see what it is for.

If you need a bigger image, increase the level (it's 12 in the following
program, towards the end of MAIN) at the cost of more time needed to

Try also other numbers for :SIDES.

Note that my program is a recursive one, so it has an expensive
overhead. Change HT with ST and see how much "empty" work the turtle
does. Until George or someone else finds a way to speed-up the execution
- you will need every single Hertz of your processor.

to main              ; tessellations
setpc 3 cs ht
localmake "size 10   ;      constant
type "|How many sides? (3,8,12) |
draw rw 12

to draw :sides :level
if :level<1[stop]
fd :size
rt 180 draw :sides :level-1 rt 180
lt 360/:sides fd :size lt 360/:sides
rt 180 draw :sides :level-1 rt 180
repeat 2[rt 360/:sides bk :size]

to clean_up
pu home pd
setpc 4
arc 360 50       ; Draw a red circle
pu setxy 100 100 pd
repeat 2[setpc 3 fill setpc 0 fill]

Enjoy and investigate,


Content-Type: image/gif; name="tessells2.gif"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="tessells2.gif"



Sun, 05 Mar 2000 03:00:00 GMT  
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> tessellations

2. LOGO-L> tessellations

3. LOGO-L> Apple logo/MSW Logo

4. LOGO-L> Reseach Machines Logo (RM LOGO)

5. WTD: 'ls -lR '->HTML code

6. LOGO-L> Welcome to logo-l

7. LOGO-L> Re: Dynamic scope in Logo


9. LOGO-L> Logo speed

10. LOGO-L> Logo foundation site

11. LOGO-L> Logo Workshops

12. LOGO-L> Logo for MAC


Powered by phpBB® Forum Software