ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/do_file.tcl

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.2 by greg, Thu Dec 1 09:53:55 1994 UTC vs.
Revision 2.9 by greg, Thu Jul 6 12:15:54 1995 UTC

#	Line 19 | Line 19 | proc preen {} {                        # clean up radvar
19		set n 1
20		foreach v $oldval {
21		if {"[string index $v 0]" == "-"} {
22	<	lappend radvar(view) "$n $v"
22	>	lappend radvar(view) "u$n $v"
23		} elseif {[lsearch -glob $radvar(view) \
24		"[lindex $v 0] *"] >= 0} {
25		continue
#	Line 66 | Line 66 | proc preen {} {                        # clean up radvar
66		} else {
67		set radvar(PENUMBRAS) False
68		}
69	+	if [info exists radvar(RAWSAVE)] {
70	+	cardval radvar(RAWSAVE) {True False}
71	+	} else {
72	+	set radvar(RAWSAVE) False
73	+	}
74		if [info exists radvar(VARIABILITY)] {
75		cardval radvar(VARIABILITY) {High Medium Low}
76		} else {
#	Line 98 | Line 103 | proc setradvar stmt {          # assign a rad variable
103		IND* { set radvar(INDIRECT) $vval }
104		DET* { set radvar(DETAIL) $vval }
105		PEN* { set radvar(PENUMBRAS) $vval }
106	+	RAW* { set radvar(RAWSAVE) $vval }
107		VAR* { set radvar(VARIABILITY) $vval }
108		REP* { set radvar(REPORT) $vval }
109		}
#	Line 119 | Line 125 | proc putradvar {fi vn} {       # print out a rad variable
125		}
126		if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
127		EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
128	<	VARIABILITY REPORT} $vn] >= 0} {
128	>	RAWSAVE VARIABILITY REPORT} $vn] >= 0} {
129		puts $fi "$vn= $radvar($vn)"
130		return
131		}
#	Line 148 | Line 154 | proc load_vars {f {vl all}} {  # load RIF variables
154		}
155		if {"$vl" == "all" && ! [chksave]} {return 0}
156		set curmess {Please wait...}
157	<	update idletasks
157	>	update
158		if [catch {exec rad -n -w -e $f >& /usr/tmp/ro[pid]}] {
159		set curmess [exec cat /usr/tmp/ro[pid]]
160		exec rm -f /usr/tmp/ro[pid]
#	Line 167 | Line 173 | proc load_vars {f {vl all}} {  # load RIF variables
173		set curmess {Project loaded.}
174		} else {
175		foreach n $vl {
176	<	set radvar($n) {}
176	>	catch {unset radvar($n)}
177		}
178		while {[gets $fi curli] != -1} {
179		if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {
#	Line 242 | Line 248 | proc newsave f {               # save a RIF
248		return 0
249		}
250		}
251	+	if {[file exists $f] && ! [file writable $f] &&
252	+	[catch {exec chmod u+w $f} curmess]} {
253	+	beep
254	+	return 0
255	+	}
256		if [save_vars $f] {
257		set rifname [pwd]/$f
258		set readonly 0
#	Line 282 | Line 293 | proc do_file w {
293		pack $w.left -side left
294		button $w.left.load -text LOAD -width 5 \
295		-relief raised -command {newload $curfile}
296	<	button $w.left.save -text SAVE -width 5 \
297	<	-relief raised -command {newsave $curfile}
296	>	button $w.left.save -text SAVE -width 5 -relief raised \
297	>	-command "newsave \$curfile; update_dir $w.right"
298		button $w.left.new -text NEW -width 5 \
299		-relief raised -command {newnew $curfile}
300		pack $w.left.load $w.left.save $w.left.new -side top -pady 15 -padx 20

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)