LOGO-L> oscillatory table with mswlogo bits 
Author Message
 LOGO-L> oscillatory table with mswlogo bits

;Hello Every Body
;Here is an experiment with MSWLogo's bitfunctions . The purpose of
;this code is to keep it as simple as possible,showing how a simple
;animated drawing could be done.
;Best Regards
;Mhelhefny
;------------------
to col :f
make "s [[255 0 0][0 255 0][0 0 255][255 255 0][0 255 255][255 0 255]]
op item :f :s
end

to fil
setfc col :lev+ 1
pu rt 45 fd :size*.66 pd fill pu bk :size*.66 lt 45 pd
end

to go
cs ht cut draw
end

to draw
setpensize [2 2]
for [k 1 10][for [i 0 180 2][pu cs
setx -200 bitpaste setx 0 pd fd :i bitblock 50 30
rt 90 fd 60 bitblock 40 10 fd 40 setxy 100 0 label "UP]
for [i 180 0 -2][pu cs
setx -200 bitpaste setx 0 pd fd :i bitblock 50 30 rt 90 fd 60
bitblock 40 10 fd 40 setxy 100 0 label "DOWN]]
end

to cut
hefnystar 100 5 3
pu setxy -30 -30 bitcut 150 150
end

to hefnystar :size :n :lev
if :lev =0 [stop] setpc col :lev
repeat :n [fd :size/ 4 hefnystar :size/3 :n :lev-1
fd :size/ 2 rt 360/ :n ] fil
end
;---------------------
---------------------------------------------------------------





Sat, 20 May 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> PC-LOGO syntax in MSWLogo

2. LOGO-L> osscilatory table & mswlogo bits

3. LOGO-L> Re: MSWLogo

4. LOGO-L> MSWlogo for D. Barnett

5. LOGO-L> Web page + MSWLogo GUI Builder

6. LOGO-L> Bola magica (MSWLogo)

7. LOGO-L> Re: MSWlogo

8. LOGO-L> MSWLogo 6.2 is available

9. LOGO-L> Searching for MSWLogo (Spanish Version)

10. Odp: LOGO-L> MSWLogo 6.2 is available

11. LOGO-L> floating point errors in MSWLogo

12. LOGO-L> windows functions in MSWLogo

 

 
Powered by phpBB® Forum Software