{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 
0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 
0 0 0 0 0 0 -1 0 }{PSTYLE "" 3 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {SECT 0 {PARA 256 "" 0 "" {TEXT -1 22 "Arany-dodeka\351der-k
\355gy\363" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "restart:with(p
lots):with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 253 "
r:=(1+sqrt(5))/2:  d:=r/4: ro1:= r/16:ro2:=r/10:\nt1:=tubeplot([r*sin(
t),0,r*cos(t)],t=0..2*Pi,radius=ro1, color=PINK):\nt2:=tubeplot([(r+d*
sin(5*t))*sin(t),d*cos(5*t),(r+d*sin(5*t))*cos(t)],\nt=0..2*Pi,radius=
ro2, color=GREEN,tubepoints=10, numpoints=76):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 42 "plots[display](t1,t2,scaling=CONSTRAINED);" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "vrml(t1, `t
orusz.wrl`,  background_color=COLOR(RGB,0,1,1) );" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 60 "vrml(t2, `spiral.wrl`,  background_color=COL
OR(RGB,0,1,1) );" }}}}}{MARK "0 5 0 0" 16 }{VIEWOPTS 1 1 0 1 1 1803 }