{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple O
utput" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 
3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" 
-1 -1 "" 0 1 0 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 {EXCHG {PARA 0 "" 0 "" {TEXT -1 285 " A fourth order Bezier cu
rve is of the form \nx=x0*(1-t)^4+4*x1*t*(1-t)^3+6*x2*t^2*(1-t)^2+4*x3
*t^3*(1-t)+x4*t^4 and\n y=y0*(1-t)^4+4*y1*t*(1-t)^3+6*y2*t^2*(1-t)^2+4
*y3*t^3*(1-t)+y4*t^4 where t ranges from 0 to 1 and (x0,y0), (x1,y1), \+
(x2,y2), (x3,y3); (x4,y4); are the control points.  " }}{PARA 0 "" 0 "
" {TEXT -1 107 "Some laser printers and other machines use Bezier curv
es to make the curves of letters and other symbols.  " }}{PARA 0 "" 0 
"" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 447 "Create a fourth order
 Bezier curve that traces out the letter S.  Choose the values you des
ire for the control points by entering them after each equal sign \"=
\" and before each semi colon \";\" in the first line of code.  Hit th
e enter key after you have entered x and y values for all control poin
ts.  After you have tried one set of control points, you may go back a
nd enter new ones, just make sure to hit the Enter key after you re-de
fine them. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "x0:=  ; y0:=  ; x
1:=  ; y1:=  ; x2:=  ; y2:=  ; x3:=  ; y3:=  ; x4:=  ; y4:=  ;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "x:=x0*(1-t)^4+4*x1*t*(1-t)^3
+6*x2*t^2*(1-t)^2+4*x3*t^3*(1-t)+x4*t^4;" }}{PARA 11 "" 1 "" {TEXT -1 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "y:=y0*(1-t)^4+4*y1*t
*(1-t)^3+6*y2*t^2*(1-t)^2+4*y3*t^3*(1-t)+y4*t^4;" }}{PARA 11 "" 1 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "bezier:=plo
t([x,y,t=0..1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(pl
ots):display(bezier);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 5 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }