Lines Matching +full:set +full:- +full:output

6 #  XSnap, X-Windows Snapshot.  A GUI for the ImageMagick import command
10 #  Copyright (C) 1999-2016 ImageMagick Studio LLC, a non-profit organization
50   toplevel .alert -class alert
60   frame .alert.top -relief raised -border 1
61   frame .alert.bottom -relief raised -border 1
64   message .alert.top.message -width 350 -justify left -text $message
70     set arg [lindex $args 0]
71     frame .alert.bottom.0 -relief sunken -border 1
73     button .alert.bottom.0.button -text [lindex $arg 0] \
74       -command "[lindex $arg 1]; destroy .alert"
78     set i 1
80       button .alert.bottom.$i -text [lindex $arg 0] \
81         -command "[lindex $arg 1]; destroy .alert"
83       set i [expr $i+1]
86   bind .alert <Any-Enter> [list focus .alert]
89     grab set .alert
99   set snap(format) \
101   set filename [$w.file.entry get]
102   set extension [file extension $filename]
104     [expr {[string length $filename]-[string length $extension]}] end
117   toplevel .options -class Options
118   wm title .options "Set Image Options"
127     label .options.input_title.label -text "Input"
130   frame .options.input -relief sunken -borderwidth 2
132       checkbutton .options.input.checks.border -text "Borders" -width 11 \
133         -anchor w -variable snap(border)
134       checkbutton .options.input.checks.frame -text "Frame" -width 11 \
135         -anchor w -variable snap(frame)
136       checkbutton .options.input.checks.screen -text "Screen" -width 11 \
137         -anchor w -variable snap(screen)
138       checkbutton .options.input.checks.descend -text "Descend" -anchor w \
139         -variable snap(descend)
141         .options.input.checks.screen .options.input.checks.descend -side left
144       label .options.input.delay.label -text "Delay:" -width 9 -anchor w
145       scale .options.input.delay.scale -orient horizontal -length 11c \
146         -from 0 -to 120 -tickinterval 15 -variable snap(delay)
147       pack .options.input.delay.label .options.input.delay.scale -side left
150       label .options.input.id.window -text "Window:" -width 9 -anchor w
151       entry .options.input.id.window_entry -width 18 -relief sunken \
152         -textvariable snap(window)
153       label .options.input.id.display -text "Display:"
154       entry .options.input.id.display_entry -width 18 -relief sunken \
155         -textvariable snap(display)
157         .options.input.id.display .options.input.id.display_entry -side left
159         -padx 1m -anchor w
160     pack .options.input.id -pady 1m
161   pack .options.input -expand 1 -fill both
163     label .options.processing_title.label -text "Image Processing"
166   frame .options.processing -relief sunken -borderwidth 2
168       checkbutton .options.processing.checks.dither -text "Dither" -width 11 \
169         -anchor w -variable snap(dither)
170       checkbutton .options.processing.checks.negate -text "Negate" -width 11 \
171         -anchor w -variable snap(negate)
172       checkbutton .options.processing.checks.monochrome -text "Monochrome" \
173         -width 11 -anchor w -variable snap(monochrome)
174       checkbutton .options.processing.checks.trim -text "Trim" -anchor w \
175         -variable snap(trim)
178         -side left
181       label .options.processing.colors.label -text "Colors:" -width 9 -anchor w
182       scale .options.processing.colors.scale -orient horizontal -length 11c \
183         -from 0 -to 256 -tickinterval 32 -variable snap(colors)
185         -side left
188       label .options.processing.rotate.label -text "Rotate:" -width 9 -anchor w
189       scale .options.processing.rotate.scale -orient horizontal -length 11c \
190         -from 0 -to 360 -tickinterval 45 -variable snap(degrees)
192         -side left
195       .options.processing.rotate -padx 1m -anchor w
196   pack .options.processing -expand 1 -fill both
198     label .options.output_title.label -text "Output"
201   frame .options.output -relief sunken -borderwidth 2
202     frame .options.output.checks
203       checkbutton .options.output.checks.compress -text "Compress" -width 11 \
204         -anchor w -variable snap(compress)
205       checkbutton .options.output.checks.interlace -text "Interlace" -width 11 \
206         -anchor w -variable snap(interlace)
207       checkbutton .options.output.checks.verbose -text "Verbose" -anchor w \
208         -variable snap(verbose)
209       pack .options.output.checks.compress .options.output.checks.interlace \
210         .options.output.checks.verbose -side left
211     pack .options.output.checks
212     frame .options.output.scene
213       label .options.output.scene.label -text "Scene:" -width 9 -anchor w
214       scale .options.output.scene.scale -orient horizontal -length 11c \
215         -from 0 -to 40 -tickinterval 5 -variable snap(scene)
216       pack .options.output.scene.label .options.output.scene.scale -side left
217     pack .options.output.scene
218     frame .options.output.comment
219       label .options.output.comment.label -text "Comment:" -width 9 -anchor w
220       entry .options.output.comment.entry -width 45 -relief sunken \
221         -textvariable snap(comment)
222       pack .options.output.comment.label .options.output.comment.entry \
223         -side left
224     pack .options.output.comment
225     frame .options.output.label
226       label .options.output.label.label -text "Label:" -width 9 -anchor w
227       entry .options.output.label.entry -width 45 -relief sunken \
228         -textvariable snap(label)
229       pack .options.output.label.label .options.output.label.entry -side left
230     pack .options.output.label
231     frame .options.output.id
232       label .options.output.id.page -text "Page:" -width 9 -anchor w
233       entry .options.output.id.page_entry -width 18 -relief sunken \
234         -textvariable snap(page)
235       label .options.output.id.density -text "Density:"
236       entry .options.output.id.density_entry -width 18 -relief sunken \
237         -textvariable snap(density)
238       pack .options.output.id.page .options.output.id.page_entry \
239         .options.output.id.density .options.output.id.density_entry -side left
240       pack .options.output.checks .options.output.scene \
241         .options.output.comment .options.output.label .options.output.id \
242         -padx 1m -anchor w
243     pack .options.output.id -pady 1m
244   pack .options.output -expand 1 -fill both
245   button .options.button -text Ok -command {destroy .options}
252     .options.processing .options.output_title .options.output .options.button \
253     -side top -padx 2m -pady 1m
262   . configure -cursor watch
264   set command convert
265   set command [concat $command $snap(snapshot)]
266   set option +compress
268     set option "-compress zip"
270   set command [concat $command $option]
271   set command [concat $command -density \"$snap(density)\"]
272   set command [concat $command -page \"$snap(page)\"]
273   set command [concat $command \"ps:|$snap(printer)\"]
275   . configure -cursor {}
286   toplevel .print -class Print
296     scrollbar .print.format.scroll -command ".print.format.list yview"
297     listbox .print.format.list -yscroll ".print.format.scroll set" -setgrid 1 \
298       -height 8
299     pack .print.format.scroll -side right -fill y
300     pack .print.format.list -side top -expand 1 -fill both
304     .print.format.list selection set 0
307     entry .print.file.entry -width 18 -relief sunken -textvariable snap(printer)
308     pack .print.file.entry -side right -expand 1 -fill both
311     button .print.buttons.print -text Print -command Print
312     button .print.buttons.cancel -text Cancel -command {destroy .print}
313     pack .print.buttons.print .print.buttons.cancel -side left -expand 1 \
314       -fill both -padx 2m
319   pack .print.format .print.file .print.buttons -padx 2m -pady 2m -expand 1 \
320     -fill both
335   . configure -cursor watch
337   set command convert
338   set command [concat $command $snap(snapshot)]
339   set option +compress
341     set option "-compress zip"
343   set command [concat $command $option]
344   set command [concat $command -density \"$snap(density)\"]
345   set command [concat $command -page \"$snap(page)\"]
346   set filename $snap(filename)
348     set filename "$snap(format):$snap(filename)"
350   set command [concat $command $filename]
352   . configure -cursor {}
360   toplevel .save -class Saves
370     scrollbar .save.format.scroll -command ".save.format.list yview"
371     listbox .save.format.list -yscroll ".save.format.scroll set" -setgrid 1 \
372       -height 8
373     pack .save.format.scroll -side right -fill y
374     pack .save.format.list -side top -expand 1 -fill both
380     .save.format.list selection set 0
383     entry .save.file.entry -width 18 -relief sunken -textvariable snap(filename)
384     pack .save.file.entry -side right -expand 1 -fill both
387     button .save.buttons.save -text Save -command Save
388     button .save.buttons.cancel -text Cancel -command {destroy .save}
389     pack .save.buttons.save .save.buttons.cancel -side left -expand 1 \
390       -fill both -padx 2m
395   bind .save.format.list <ButtonRelease-1> {
396     set snap(format) \
399   bind .save.format.list <Double-Button-1> {AppendImageFormat .save}
403   pack .save.format .save.file .save.buttons -padx 2m -pady 2m -expand 1 \
404     -fill both
409 # Proc ShowImage displays the full-sized snapped image in a top level window.
413   toplevel .show -visual best
415   button .show.image -image $name -command {destroy .show}
429   set command import
430   set command [concat $command -depth 8]
431   set option +border
433     set option -border
435   set command [concat $command $option]
437     set command [concat $command -colors $snap(colors)]
439   set command [concat $command -comment \"$snap(comment)\"]
440   set option +compress
442     set option "-compress zip"
444   set command [concat $command $option]
446     set command [concat $command -delay $snap(delay)]
448   set command [concat $command -density \"$snap(density)\"]
450     set command [concat $command -descend]
452   set command [concat $command -display \"$snap(display)\"]
453   set option +dither
455     set option -dither
457   set command [concat $command $option]
458   set option +frame
460     set option -frame
462   set command [concat $command $option]
463   set option +interlace
465     set option "-interlace plane"
467   set command [concat $command $option]
468   set command [concat $command -label \"$snap(label)\"]
469   set option +monochrome
471     set option -monochrome
473   set command [concat $command $option]
474   set option +negate
476     set option -negate
478   set command [concat $command $option]
479   set command [concat $command -page \"$snap(page)\"]
481     set command [concat $command -rotate $snap(degrees)]
484     set command [concat $command -scene $snap(scene)]
486   set option +screen
488     set option -screen
490   set command [concat $command $option]
492     set command [concat $command -crop 0x0]
494   set option +verbose
496     set option -verbose
498   set command [concat $command $option]
499   set command [concat $command $snap(snapshot)]
503   . configure -cursor watch
510   image create photo snapshot -file $snap(snapshot)
514   exec convert -geometry 320x320> $snap(snapshot) -depth 8 $snap(tile)
516   image create photo tile -file $snap(tile)
517   exec rm -f $snap(tile)
525   label .canvas.label -text $snap(filename)
526   button .canvas.button -image tile -relief sunken -borderwidth 2 \
527     -command { ShowImage $snap(filename) snapshot }
528   pack .canvas.label .canvas.button -side top -expand 1 -fill both \
529     -padx 1m -pady 1m
531   . configure -cursor {}
541   wm title . "X-Windows Snapshot"
546   frame .toolbar -relief raised -bd 2
547     menubutton .toolbar.file -text "File" -menu .toolbar.file.menu -underline 0
549     .toolbar.file.menu add command -label "Save" -command Save
550     .toolbar.file.menu add command -label "Save As ..." -command "SaveImage"
551     .toolbar.file.menu add command -label Print -command PrintImage
553     .toolbar.file.menu add command -label Quit \
554       -command { exec rm -f $snap(snapshot); exit }
555     pack .toolbar.file -side left
556   pack .toolbar -side top -fill x
557   canvas .canvas -width 256 -height 128
560     button .buttons.snap -text Snap -command Snap
561     button .buttons.options -text Options -command Options
562     pack .buttons.snap .buttons.options -side left -expand 1
563   pack .buttons -side bottom -fill x -padx 2m -pady 2m
573 set snap(border) 0
574 set snap(colors) 0
575 set snap(comment) "Imported from %m image: %f"
576 set snap(compress) 1
577 set snap(degrees) 0
578 set snap(delay) 0
579 set snap(density) 72x72
580 set snap(descend) 0
581 set snap(display) :0
583   set snap(display) $env(DISPLAY)
585 set snap(dither) 1
586 set snap(filename) magick.ps
587 set snap(format) {}
588 set snap(frame) 0
589 set snap(interlace) 1
590 set snap(label) "%f   %wx%h"
591 set snap(monochrome) 0
592 set snap(negate) 0
593 set snap(page) Letter
594 set snap(printer) lp
595 set snap(scene) 0
596 set snap(screen) 0
597 set snap(snapshot) /tmp/snap[pid].ppm
598 set snap(tile) /tmp/tile[pid].ppm
599 set snap(trim) 0
600 set snap(verbose) 0
606 exec rm -f $snap(snapshot)