LOGO-L> Re: Chaotic Gasket

[Yehuda Katz <yehuka@beitberl.beitberl.ac.il>]

Mordechai Shorek wrote:
 
> YUDA
> 
> RETHANKS as usual
> 
> is the 1/3 at stage 2 obligatory ?
> try 1/4 !!!


Mordechai,

Thank for your input.

Here's what we have with 1/4.

I also changed the size to 256 (power of 4) to get a //precise//
graphics:

======================================
to main                       ; Gasket
cs ht
select rndpt 0
end

to select :pnt :dummy
setpc last :pnt
pu setxy x y pd
if :dummy>5[fd 0]         ; draw a dot
select rndpt 1+:dummy
end

to rndpt
[op pick
  [-256  256 4][0  256 6][256  256 4]
  [-256    0 6]          [256    0 6]
  [-256 -256 4][0 -256 6][256 -256 4]]
end

to x
op(xcor + item 1 :pnt)/4
end

to y
op(ycor + item 2 :pnt)/4
end
======================================

Bye,

[[Yehuda]]