aUCBLogo Demos and Tests / fcn


be fcn   ;Full Connected Net
   
pr pr [Drawing completly meshed nets:]
   
flist = [1 2 3 4 5 6 7; colors
   
setsc noRefresh
   
setUpdateGraph false
   
WindowMode
   
for [1 9 1]
   
[   start timemilli
      
radm 2^(i+1300 2
      
updateGraph
      
(pr " "Run "with power i+"edges "and anz_v "connections:)
      
show se (timemilli-start)/1000 "seconds
      
if keyP [stop]
   
]
   
ht
;   savePostScript "fcn.ps

   
;Make "startup [a]
   
   
be radm edges radius width
      
cs home   pu setpensize list width width
      
; Number of edges = number of corners
      
local [w s elist]
      
w=360/edges
      
elist=[]
   
      
; calculate corners
      
s=edges
      
r=radius
      
repeat s
      
[   fd r
         
elist lput pos elist
         
bk lt w
      
]
      
pd ht
      
earray=Array elist
   
      
; connect corners
      
anz_v ; number of connections
      
for [e1 1]
      
[   spc (remainder e1-1 7)
         
for [e2 e1+1]
         
[   anz_v += 1
            
_setpos earray.e1
            
_setpos earray.e2
         
]
      
]
      
pu home
   
end
   
   
be spc nr
      
setpencolor flist.nr
   
end
end