\mnb150<nb wrap="0" txtwidth="75" autowidth="0" pprint="1" typeset="1" xface="Times New Roman" xsize="240" xbold="0" xitalic="0" xcolor="#0000FF" slidents="1" sizemult="71" minsize="160" ifont="0 220 255 0 49 Courier New" ofont="0 220 16711680 0 49 Courier New" tfont="0 220 0 1 0 Times New Roman"></nb>ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1\fcharset238{\*\fname Courier New;}Courier New CE;}{\f4\fmodern\fprq1 Courier New;}}
{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue255;}
\deflang1045\pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}reset():
\par \pard\li600\ri1\fi-300\plain\f3\fs22\cf1 Rozeta:=proc(figura,k)
\par local fig1,fig2,fig3,fig4;
\par begin
\par fig1:=plot::Rotate2d(k,[0,0],figura):
\par fig2:=plot::Rotate2d(2*k,[0,0],figura):
\par fig3:=plot::Rotate2d(3*k,[0,0],figura):
\par fig4:=plot::Group2d(figura,fig1,fig2,fig3):
\par return(fig4)
\par end_proc:
\par \pard\ri4\plain\f3\fs22\cf1 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}platek:=proc(kol,grubosc,dl)
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 local fig,t,k, A;
\par begin
\par  A:=plot::Turtle():
\par  A::setLineColor(kol):
\par t:=\plain\f3\fs22\cf1 dl*\plain\f4\fs22\cf1 float(3.3):
\par k:=PI/4:
\par A::penUp(),A::left(k),A::forward(t),A::right(3*k),A::penDown(),A::forward(dl):\plain\f3\fs22\cf1 
\par \plain\f4\fs22\cf1 A:=plot::modify(A, LineWidth=grubosc):
\par fig:=plot::Group2d(A,plot::Reflect2d([0,0],[-1,1],A)\plain\f3\fs22\cf1 )\plain\f4\fs22\cf1 :\plain\f3\fs22\cf1 
\par \plain\f4\fs22\cf1  return(fig)
\par end_proc:
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}figura:=platek(RGB::YellowGreen,0.5,1):
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 Gwiazda:=Rozeta(Rozeta(figura,PI/2),PI/6):
\par figura\plain\f3\fs22\cf1 1\plain\f4\fs22\cf1 :=platek(RGB::YellowOchre,0.5,2):
\par Gwiazda1:=Rozeta(Rozeta(figura\plain\f3\fs22\cf1 1\plain\f4\fs22\cf1 ,PI/2),PI/6):
\par Gwiazda2:=plot::Group2d(Gwiazda,Gwiazda1):
\par plot(Gwiazda2)
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}dodatki:=proc(kol,grubosc)
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 local \plain\f3\fs22\cf1 B,C,sym,sym1\plain\f4\fs22\cf1 ;
\par \plain\f3\fs22\cf1 begin
\par \plain\f4\fs22\cf1 B:=plot::Turtle():
\par B::setLineColor(kol):
\par B::penUp(),B::push(),B::forward(2.7),
\par B::penDown(),B::forward(2.7),\plain\f3\fs22\cf1 B::right(PI/3),
\par B::penUp(),B::forward(2),B::penDown(),B::forward(3.35),B::left(PI/3):
\par for i from 1 to 2 do
\par \plain\f4\fs22\cf1    B::forward(\plain\f3\fs22\cf1 5.35\plain\f4\fs22\cf1 ):
\par    B::left(PI/3):
\par end_for:
\par B::pop(),\plain\f3\fs22\cf1 B::penUp(),B::forward(5.35),B::penDown(),B::right(PI/3),
\par B::penUp(),B::forward(2.1),B::penDown(),\plain\f4\fs22\cf1 B::left(PI/2),B::forward(9.45):
\par B:=plot::modify(B, LineWidth=grubosc):
\par \plain\f3\fs22\cf1 sym:=plot::Reflect2d([0,0],[0,1],B):\plain\f4\fs22\cf1 
\par sym1:=plot::Reflect2d([0,0],[-1,0],plot::Group2d(B,sym)):
\par C:=plot::Turtle():
\par C::setLineColor(kol):
\par C::penUp(),C::push(),C::right(PI/2),C::forward(2.7),
\par C::penDown(),C::forward(2.7),C::right(PI/3),C::penUp(),C::forward(2),
\par C::penDown(),C::left(PI/2),C::forward(3.4\plain\f3\fs22\cf1 )\plain\f4\fs22\cf1 ,\plain\f3\fs22\cf1 C::left(2*PI/3),C::forward(3.4):
\par C:=plot::modify(C, LineWidth=grubosc):
\par sym2:=plot::Reflect2d([0,0],[0,1],C):
\par \plain\f4\fs22\cf1 return(B,C,sym,sym1,sym2)
\par end_proc:
\par Ornament2:=plot::Group2d(Gwiazda,Gwiazda2,dodatki(RGB::YellowOchre,0.5)):
\par plot(Ornament2)
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}szesciokat:=proc(kol,grubosc)
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 local A;
\par begin
\par A:=plot::Turtle():
\par A::setLineColor(kol):
\par A::right(PI/2):
\par A::penUp():
\par A::forward(13.1):
\par A::penDown():\plain\f3\fs22\cf1 A::left(2*PI/3):\plain\f4\fs22\cf1 
\par for i from 1 to 6 do
\par  A::forward(13.1):\plain\f3\fs22\cf1 
\par \plain\f4\fs22\cf1  A::left(PI/3):
\par end_for:
\par A:=plot::modify(A,LineWidth=grubosc):
\par return(A)
\par end_proc:
\par Ornament:=plot::Group2d(szesciokat(\plain\f3\fs22\cf1 RGB::YellowBrown\plain\f4\fs22\cf1 ,0.5),Ornament2):
\par plot(Ornament)
\par 
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}Arabeska := proc(\plain\f3\fs22\cf1 n,m,\plain\f4\fs22\cf1  fig)
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 local rysunek, i, j;
\par begin
\par    rysunek :=();
\par  for i from 1 to n do
\par          wzor := plot::Translate2d([i*\plain\f3\fs22\cf1 9.25\plain\f4\fs22\cf1 ,i*16.25],fig):
\par          rysunek := rysunek.[wzor]:
\par         end_for:
\par  rysunek1:=op(rysunek):
\par for i from 1 to m do
\par          wzor := plot::Translate2d([i*9.25,-i*16.25],rysunek1):
\par          rysunek := rysunek.[wzor]:
\par         end_for:
\par    return(op(rysunek))
\par end_proc:
\par plot(Arabeska(3,2,Ornament)):
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf1 {\pntext\f1\'b7\tab}rysunek:=():
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf1 for i from 1 to 5\plain\f3\fs22\cf1  \plain\f4\fs22\cf1 do
\par A:=plot::Translate2d([i*\plain\f3\fs22\cf1 18.5\plain\f4\fs22\cf1 ,0],Ornament):
\par rysunek:=rysunek.[A]
\par end_for:
\par wzor:=op(rysunek):
\par \plain\f3\fs22\cf1 B:=plot::Translate2d([9.25,16.25],wzor):
\par C:=plot::Translate2d([0,32.5],wzor):
\par plot(plot::Group2d(wzor,B,C))\plain\f4\fs22\cf1 
\par 
\par \pard\ri4\plain\f4\fs22\cf2 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf2 {\pntext\f1\'b7\tab} \plain\f4\fs22\cf1 
\par }
 