#------------------------------------------------------------------------------
# assign global directory paths
#------------------------------------------------------------------------------
LIB_PATH        := "d:/Maple/lib/":
STARTUP_PATH    := "d:/Maple/lib/":
UTILS_PATH      := "d:/Maple/lib/utils/":
PLOTTING_PATH   := "d:/Maple/lib/plotting/":
ODE_PATH        := "d:/Maple/lib/ode/":
CURVES_PATH     := "d:/Maple/lib/curves/":
SURFACES_PATH   := "d:/Maple/lib/surfaces/":
POLY_PATH       := "d:/Maple/lib/polynomials/":
DYNAMICS_PATH   := "d:/dynamics/":
SYMPLECTIC_PATH := "d:/dynamics/symplectic/":
AESOP_PATH      := "d:/optics/aesop/":
MMRES_PATH      := "d:/dynamics/resonances/":


#------------------------------------------------------------------------------
# Maple libraries
# (bug: you can only specify 5 paths besides c:/maple/lib)
#------------------------------------------------------------------------------
libname := STARTUP_PATH, 
           SYMPLECTIC_PATH, MMRES_PATH, AESOP_PATH, DYNAMICS_PATH, 
           #"c:/maple/share", "c:/maple/update", 
           "c:/maple/lib":

interface( warnlevel=0 ):
with(codegen,optimize,makeproc,cost):
with(plots):


#------------------------------------------------------------------------------
# interface
#------------------------------------------------------------------------------
interface(  verboseproc=2,   # print all procedures
            showassumed=0,   # zap the damned tildes
#           labelwidth=30,   # approx min width to trigger %n labels
            labeling=false,  # no %n labels
            echo=1,          # default screen echo
            prompt="",       # no command prompt (red text is enough of a clue)
            warnlevel=4,     # max sensitivity to warnings
            imaginaryunit=_i # change the imaginary unit symbol from I to _i
         ):
#infolevel[solve] := 1:
printlevel := 1:
_EnvAllSolutions := true:    #forces all trig solutions from solve()



#------------------------------------------------------------------------------
# macro substitutions
#------------------------------------------------------------------------------
macro( GLOBAL=1, LOCAL=0, ON=1, OFF=0, YES=1, NO=0, TRUE=1, FALSE=0 ):
macro( deg=Pi/180, arcmin=1/60*Pi/180, arcsec=1/3600*Pi/180 ):

mycolors := [black, blue, red, aquamarine, sienna,
             magenta, navy, maroon, green, turquoise, 
             coral, cyan, brown, gold, khaki, orange, pink, plum, tan, 
             violet, gray, wheat, yellow]:


#------------------------------------------------------------------------------
# aliases
#------------------------------------------------------------------------------
#lprint(`aliases:`);
alias( fn=unapply,
       #NOTE: norm, dot, mag, vec, mat, cross defined as functions in startup.p
       det=linalg[det],
       size=linalg[vectdim],    rows=linalg[rowdim],
       cols=linalg[coldim],     transpose=linalg[transpose],
       inverse=linalg[inverse], augment=linalg[augment],
       stack=linalg[stack],     extend=linalg[extend],
       grad=linalg[grad],       curl=linalg[curl],
       div=linalg[diverge],     laplacian=linalg[laplacian],
       angle=linalg[angle],     intparts=student[intparts]
     ):


#------------------------------------------------------------------------------
# default plot options
#------------------------------------------------------------------------------
plots[setoptions]( axes=frame, color=blue, titlefont=[HELVETICA,OBLIQUE,18],
    axesfont=[HELVETICA,OBLIQUE,12], labelfont=[HELVETICA,OBLIQUE,18],
    scaling=unconstrained, resolution=1600, style=line, symbol=circle, 
    symbolsize=8, thickness=2 ):

plots[setoptions3d]( axes=frame, titlefont=[HELVETICA,OBLIQUE,18],
    axesfont=[HELVETICA,OBLIQUE,12], labelfont=[HELVETICA,OBLIQUE,18],
    scaling=unconstrained, style=patchcontour, lightmodel=light4,
    shading=zhue, orientation=[55,70], projection=0.8, thickness=2 ):


#------------------------------------------------------------------------------
# load my libraries
#------------------------------------------------------------------------------
old_warnlevel := interface( warnlevel ):
interface( warnlevel=0 ):
#lprint(`startup:`);
with(startup):
#lprint(`utils:`);
with(utils):
utilsinit():
#lprint(`ode:`);
#with(ode):
#lprint(`plotting:`);
#with(plotting):
interface( warnlevel=old_warnlevel ):