#!/bin/csh
#\
exec ./grsh -f $0 $*
#############################################################################
#############################################################################
#                             A small demo
#
#                            Thomas Pflaum
#                             tpflaum@cgl
#############################################################################
#############################################################################

#############################################################################
# A sample Tcl/Tk script that allows to draw X lines in a frame.
#############################################################################

set title $argv0
set description "A Sample Tcl/Tk Script"
wm title . "Assignment 1 - Sample"
wm minsize . 200 200
wm maxsize . 850 700

#------------------------------------------------------------------------------
# The menu bar 
#------------------------------------------------------------------------------
frame .mbar -relief raised -bd 4
pack .mbar -side top -anchor w -fill x

menubutton .mbar.file -text File -menu .mbar.file.menu
menu .mbar.file.menu
.mbar.file.menu add command -label "Clear" -command {
    gr_clear
}
.mbar.file.menu add command -label "Quit" -command {
    exit
}

pack .mbar.file -side left


#..............................................................................
# The OpenGL raster widget, set off with a raised frame
#..............................................................................
frame .fl -bd 2 -relief raised
frame .fl.c -width 400 -height 600
pack  .fl.c
pack .fl -side left


#..............................................................................
# create some function
#..............................................................................

set curX 0
set curY 0

bind .fl.c <Map> {
    gr_setWindow .fl.c
}

bind .fl.c <Button-1> {
    global curX curY
    # store the current X and Y coordinates

    set curX %x
    set curY %y
}


bind .fl.c <ButtonRelease-1> {
    global curX, curY
    
    # draw the line
    gr_drawLine $curX $curY %x %y
}