echo
echo Hello there!
echo
set pager "/usr/local/bin/less -ME"
macro vl!oad 1
	vi $1
	load $1
stop
macro efitp!lot 4
	save vector $1 $2 $3 $4 $Tmp.fit
	pmode plot '$Tmp.fit' us 1:4 wi li, '$Tmp.fit' us 1:2:3 wi err
stop
macro fitp!lot 2
	save vector $1 $2 $2FIT $Tmp.fit
	pmode plot '$Tmp.fit' us 1:2, '$Tmp.fit' us 1:3 wi li
stop
macro egnu!plot 3
	save vector $1 $2 $3 $Tmp.2
	pmode plot '$Tmp.2' us 1:2:3 wi err
stop
macro rgnu!plot 2
	save vector $1 $2 $Tmp.2
	pmode replot '$Tmp.2' wi li
stop
macro pv 1 
	show vec $1 # show vectors
stop
macro cd 1
	pmode cd '$1'
	&cd $1
stop
# Print a copy using the laser printer (square)
macro psqpost 0
	sqpost $Tmp.post
	! (sleep 10; lpr $Tmp.post ; rm -f $Tmp.post ) &
stop
# Make a postscript file of the current plot (square)
macro sqpost 1
    pmode set size 0.7,0.92
    pmode set term post port 'Helvetica-Bold'
    pmode set outp '$1'
    pmode rep
    x11
    pmode rep
stop
# Make a postscript copy of the current plot
macro post 1
    pmode set size 0.7,1.0
    pmode set term post port 'Helvetica-Bold'
    pmode set outp '$1'
    pmode rep
    x11
    pmode rep
stop
# Make a fig copy of the current plot
macro fig 1
    pmode set size 0.7,1
    pmode set term bfig
    pmode set outp '$1'
stop

# Some UNiX aliases
alias date	!date
alias mv	!mv -i
alias cp	!cp -i
alias rm	!rm -i
alias m		!more -c
alias clear	!clear
alias sh 	show

# Some more Gnuplot macros and aliases
alias ResetPlot let plot_num = 0.0
ResetPlot

# Reset and plot
macro Pl!ot  2
   ResetPlot
   plot $1 $2
stop

# auto replot for gnuplot (between ResetPlot calls)
# uses default line or points
macro pl!ot 2
	save vector $1 $2 $Tmp.$plot_num
	if (plot_num) then
     	pm replot '$Tmp.$plot_num' 
	else 
     	pm plot '$Tmp.$plot_num' 
	endif 
	let plot_num++
stop

# auto replot for gnuplot with points
macro ppl!ot 2
	save vector $1 $2 $Tmp.$plot_num
	if (plot_num) then
     	pm replot '$Tmp.$plot_num' with points 1 2 
	else 
     	pm plot '$Tmp.$plot_num' with points 1 2
	endif 
	let plot_num++
stop

# auto replot for gnuplot with lines and titles
macro tpl!ot 3
	save vector $1 $2 $Tmp.$plot_num
	if (plot_num) then
     	pm replot '$Tmp.$plot_num' title '$3' with lines
	else 
     	pm plot '$Tmp.$plot_num' title '$3' with lines
	endif 
	let plot_num++
stop

# auto replot for gnuplot with titles and points
macro tppl!ot 3
	save vector $1 $2 $Tmp.$plot_num
	if (plot_num) then
     	pm replot '$Tmp.$plot_num' title '$3' with points 1 2
	else 
     	pm plot '$Tmp.$plot_num' title '$3' with points 1 2
	endif 
	let plot_num++
stop

# Init batch plot
macro initbat!ch 0
	set output $Tmp.batch
stop

# Plot for gnuplot batch plots and titles
macro tbpl!ot 3
	save vector $1 $2 $Tmp.$plot_num
	if (plot_num) then
    	let print ", '$Tmp.$plot_num' title '$3'"
	else 
    	let print "plot '$Tmp.$plot_num' title '$3'"
	endif 
	let plot_num++
stop

# Tell gnuplot to start
macro bat!chplot 0
	let print "\n" 
	set output stdout
	pmode load "$Tmp.batch"
	pmode pause 0  "Batch plotted"
stop

# More Gnuplot aliases
alias rep!lot pm replot
alias log pm set log
alias nolog pm set nolog
alias xrange pm set xrange
alias yrange pm set yrange
alias auto pm set auto
alias title pm set title
alias xlabel pm set xlabel
alias ylabel pm set ylabel
alias line!s pm set data style line
alias point!s pm set data style points
alias nokey pm set nokey
alias key pm set key
alias source load
alias format pm set format 
