wordwheel.mws
The program below works fine, but comes up with an error message: wrong number (or type) of parameters in function $. I'm confused as the Maple 7 Help on 'convert, bytes' the $ symbol is omitted. The program works fine: it is just a little disconcerting, as this is just the start of a general Wordwheel program.
The error seems to be related to the textplot command - but why?
| > |
restart:
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Wordwheel program - intended to be general
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
with(plots):
with(plottools):
#Number of letters, including the ? sign
nolett:=7:
#Angle of arc for each letter
ang:=2*Pi/nolett:
R:=5:
# Draw the circle
c:=circle([0,0], R, color=black):
#Draw the lines
for
i from 0 to nolett-1 do
lin[i] := line([0,0], [R*cos(i*ang),R*sin(i*ang)], color=black, linestyle=1):
end do: #i
#Upper & lower case alphabets
#s_L := convert( [$97..122], 'bytes' ): #a - z
s_U := convert( [$65..95], 'bytes' ): #A-Z
#s_L[25];
tp1:=textplot([1,2,s_U[6]],align={ABOVE,RIGHT}):
plots[display](c,tp1, seq(lin[i], i=0..nolett-1), scaling=constrained, axes=none);
|
|
Warning, the name changecoords has been redefined
Warning, the name arrow has been redefined
Error, wrong number (or type) of parameters in function $
|
|
|
Download wordwheel.mws
