{VERSION 5 0 "Mac OS X" "5.0" }
{USTYLETAB {PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 0
 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ord
ered List 5" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 
2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Ordered List 1" -1
 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 
0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 
-1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2
 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0
 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Lef
t Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1
 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 
1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 
"Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1
 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 
64 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Headi
ng 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0 0 1
 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3
 2 72 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Tim
es" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1
 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 
3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times
" 1 12 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Ordered List 4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Maple \+
Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 
0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0
 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 
"Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1
 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2
 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8
 1 {CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 
1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" 
-1 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 
2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0
 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Title
" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 0 0 1 }3
 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 2" -1 204 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3
 2 36 2 0 2 2 -1 1 }{CSTYLE "Help Variable" -1 25 "Courier" 1 12 0 0 0
 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2
 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0 1 2 1 2
 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2
 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 201 "Times" 1 1 0 0 
0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 1 
12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0
 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Courier" 1 
12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1
 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times
" 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier
" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12
 0 128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1
 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12
 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10
 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 202
 "Courier" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Bold
 Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Mat
h" -1 2 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes"
 -1 37 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underli
ned Bold" -1 41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Hyp
erlink" -1 17 "Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "2
D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }
{CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }
{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }
{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 
}{CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1
 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1
 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 
}{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 2 2 2 
0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 2 
0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "Times" 1 12 147 0 15 1 
2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 22 "Times" 1 12 0 0 
0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12
 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 12 0 0 0
 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 12 0 0 0 
1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 1 12 0 0 0 1 2 
1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Times" 1 12 0 0 0 
1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 
1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 
1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times
" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT 203 31 "Animation:  Rotating the Square"
 }}{PARA 0 "" 0 "" {TEXT 203 17 "(Using plottools)" }}{PARA 0 "" 0 "" 
{TEXT 203 14 "By John Boncek" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "restart:\n" }{MPLTEXT 1 0 28 "with(plots):with(plottools):" }}
{PARA 7 "" 1 "" {TEXT 204 49 "Warning, the name changecoords has been \+
redefined" }}{PARA 7 "" 1 "" {TEXT 204 57 "Warning, the assigned name \+
arrow now has a global binding" }}}{PARA 0 "" 0 "" {TEXT 203 0 "" }}
{PARA 0 "" 0 "" {TEXT 203 45 "Define the square you want the student t
o see" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "L1:=line([1,1], [1,
-1], color=blue, thickness=5):\n" }{MPLTEXT 1 0 50 "L2:=line([-1,1], [
1,1], color=red, thickness=5):\n" }{MPLTEXT 1 0 54 "L3:=line([-1,1], [
-1,-1], color=green, thickness=5):\n" }{MPLTEXT 1 0 55 "L4:=line([-1,-
1], [1,-1], color=yellow, thickness=5):\n" }{MPLTEXT 1 0 36 "Square:=d
isplay(\{L1, L2, L3, L4\}):" }}}{PARA 0 "" 0 "" {TEXT 203 0 "" }}
{PARA 0 "" 0 "" {TEXT 203 78 "Define a \"rotate the square function\",
 and build a list of plots to animate." }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "R:=t->rotate(Square, t*Pi/8, [0,0]):\n" }{MPLTEXT 1 
0 24 "Lst:=seq(R(t), t=0..16):" }}}{PARA 0 "" 0 "" {TEXT 203 0 "" }}
{PARA 0 "" 0 "" {TEXT 203 106 "Use display with the insequence=true pa
rameter to define the animation.  Note:  You'll want to adjust the " }
}{PARA 0 "" 0 "" {TEXT 203 6 "speed." }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "display(Lst, insequence=true);" }}{PARA 13 "" 1 "" 
{TEXT 205 0 "" }{GLPLOT2D 400 400 400 {PLOTDATA 2 "6#-%(ANIMATEG637&-%
'CURVESG6%7$7$$\"\"\"\"\"!F,7$F,$!\"\"F.-%*THICKNESSG6#\"\"&-%&COLORG6
&%$RGBG$F.F1F:$\"#5F1-F(6%7$7$F0F,F+F2-F76&F9F;F:F:-F(6%7$F@7$F0F0F2-F
76&F9F:F;F:-F(6%7$FFF/F2-F76&F9F;F;F:7&-F(6%7$7$$\"++5'>T&!#5$\"+lHc18
!\"*7$FV$!++5'>T&FUF2F6-F(6%7$7$$!+lHc18FXFSFRF2FA-F(6%7$Fin7$FZFjnF2F
G-F(6%7$F_oFYF2FL7&-F(6%7$7$$F.F.$\"+iN@99FX7$FioFhoF2F6-F(6%7$7$$!+iN
@99FXFhoFgoF2FA-F(6%7$F_p7$FhoF`pF2FG-F(6%7$FepF[pF2FL7&-F(6%7$7$FZFV7
$FVFSF2F6-F(6%7$7$FjnFZF]qF2FA-F(6%7$Fbq7$FSFjnF2FG-F(6%7$FfqF^qF2FL7&
-F(6%F?F2F6-F(6%7$FFF@F2FA-F(6%FKF2FG-F(6%7$F/F+F2FL7&-F(6%FhnF2F6-F(6
%7$F_oFinF2FA-F(6%FboF2FG-F(6%7$FYFRF2FL7&-F(6%F^pF2F6-F(6%7$FepF_pF2F
A-F(6%FhpF2FG-F(6%7$F[pFgoF2FL7&-F(6%FaqF2F6-F(6%7$FfqFbqF2FA-F(6%FiqF
2FG-F(6%7$F^qF]qF2FL7&-F(6%F_rF2F6-F(6%7$F/FFF2FA-F(6%FdrF2FG-F(6%7$F+
F@F2FL7&-F(6%FjrF2F6-F(6%7$FYF_oF2FA-F(6%F_sF2FG-F(6%7$FRFinF2FL7&-F(6
%FesF2F6-F(6%7$F[pFepF2FA-F(6%FjsF2FG-F(6%7$FgoF_pF2FL7&-F(6%F`tF2F6-F
(6%7$F^qFfqF2FA-F(6%FetF2FG-F(6%7$F]qFbqF2FL7&-F(6%F[uF2F6-F(6%F*F2FA-
F(6%F`uF2FG-F(6%FEF2FL7&-F(6%FfuF2F6-F(6%FQF2FA-F(6%F[vF2FG-F(6%F^oF2F
L7&-F(6%FavF2F6-F(6%FfoF2FA-F(6%FfvF2FG-F(6%FdpF2FL7&-F(6%F\\wF2F6-F(6
%F\\qF2FA-F(6%FawF2FG-F(6%FeqF2FLF&" 1 2 2 1 10 1 2 6 1 4 2 1.0 45.0 
45.0 1 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "
Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 1
3" "Curve 14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "
Curve 20" "Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curv
e 26" "Curve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32
" "Curve 33" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" "C
urve 39" "Curve 40" "Curve 41" "Curve 42" "Curve 43" "Curve 44" "Curve
 45" "Curve 46" "Curve 47" "Curve 48" "Curve 49" "Curve 50" "Curve 51"
 "Curve 52" "Curve 53" "Curve 54" "Curve 55" "Curve 56" "Curve 57" "Cu
rve 58" "Curve 59" "Curve 60" "Curve 61" "Curve 62" "Curve 63" "Curve \+
64" "Curve 65" "Curve 66" "Curve 67" "Curve 68" }}{TEXT 205 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 15 10 1804 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }