Как уже
упоминалось выше, команды этого пакета позволяют
строить различные графические примитивы,
которые в дальнейшем могут быть использованы в
других графиках, а также производить различные
перемещения фигур. На приведенном примере
построены окружность и многоугольник и при
помощи команды rotate получено несколько
расположенных по окружности фигур (рис. 32).
> with(plottools):
c := circle([1,1], 0.5, color=red):
l := polygon([[0,0], [3,4], [3,1],[2,2],[0,5]], color=yellow, linestyle=3,
thickness=2):
r1:=seq(rotate(c, Pi*i/3),i=1..6):
r2:=seq(rotate(l,Pi*2*i/3),i=1..3):
plots[display](r1,r2);
рис. 32
|