default.example

startup2
    # user startup macro
    define TeX_strings 1
    define line_up_exponents 1
    define TRUE 1
    define FALSE 0
    load2 "BDlib/bdlib.sm"
    init BDlib
    update

load2 1
    # load macros in local default directory
    local define macro2 :       # get user directory
    macro read "$!macro2"$1     # read macro file

update
    # update macros, global variables, plot settings, etc
    #import module
    #load2 filename.sm
    #reset_plot

upd
    del1 update

reload
    # reload default file
    local define macro2 :
    del1 load2 default

whiteboard
    # open a white X11 display
    dev x11 -bg white -fg black -ndevice 10 -focus

q
    # check, then quit
    define 2 $verbose verbose 0
    del1 define 1 1     # default value
    define 1 ? {Are you sure? Enter 1 or y to really quit}
    if('$1' == '1' || '$1' == 'y') { quit }
    verbose $2

qq
    # fast quit
    del1 quit

## SAFETY PIG

## Working with SM can be very distressing;
## a safety pig is provided below for your benefit.
##                          _
##  _._ _..._ .-',     _.._(`))
## '-. `     '  /-._.-'    ',/
##    )         \            '.
##   / _    _    |             \
##  |  a    a    /              |
##  \   .-.                     ;
##   '-('' ).-'       ,'       ;
##      '-;           |      .'
##         \           \    /
##         | 7  .__  _.-\   \
##         | |  |  ``/  /`  /
##        /,_|  |   /,_/   /
##           /,_/      '`-'
##
##

## HERE BE DRAGONS

##===============================================================================
##
##  DANGER ! DANGER ! DANGER !                     /===-_---~~~~~~~~~------____
##                                                |===-~___                _.-'
##                 -==\\                         `//~\\   ~~~~`---.___.-~~
##             ______-==|                         | |  \\           _-~`
##       __--~~~  .-/-==\\                        | |   `\        .'
##    _-~       /'    |  \\                      / /      \      /
##  .'        /       |   \\                   /' /        \   /'
## /  ____  /         |    \`\.__/-~~ ~ \ _ _/'  /          \/'
##/-'~    ~~~~~---__  |     ~-/~         ( )   /'        _--~`
##                  \_|      /        _)   :  ).   __--~~
##                    '~~--_/      _-~/-  / \   '-~ \           SM IN NO LONGER
##                   {\__--_/}    / \\_>- )<__\      \      SUPPORTED BY ANYONE
##                   /'   (_/  _-~  | |__>--<__|      |
##                  |O  O _/) )-~     | |__>--<__|     |  THERE WILL BE DRAGONS
##                  / /~ ._/       / /__>---<__/      | AND YOU'LL BE ALL ALONE
##                 o o _//        /-~_>---<__-~      /
##                 (^)~          /~_>---<__-      _-~               THINK TWICE
##                ./|           /__>--<__/     _-~
##             .//('(          |__>--<__|     /                  .----_
##            ( ( '))          |__>--<__|    |                 /' _---_~\
##         `-)) )) (           |__>--<__|    |               /'  /     ~\`\
##        ./.'//( (             \__>--<__\    \            /'  //        ||
##      .( ( ((. ))              ~-__>--<_~-_  ~--____---~' _/'/        /'
##    `~/  )` ) ./|                 ~-_~>--<_/-__       __-~ _/
##  ._-~//( )/ ))                      ~~-'_/_/ /~~~~~~~__--~
##   :'( ')/ .)(                              ~~~~~~~~~~
##  ' ') '( (/
##    '   '  `
##    o-<-<    <--- THIS IS YOU IF YOU CONTINUE FURTHER
##