1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/env tclsh
## -*- tcl -*-
# @@ Meta Begin
# Application diagram-viewer 1.0
# Meta platform tcl
# Meta summary Lightweight Diagram Processor
# Meta description This application is a processor for documents
# Meta description written in the tklib diagram language. It
# Meta description should cover the most common use cases,
# Meta description rendering to canvas for display, and batch
# Meta description conversion to raster images.
# Meta category Processing tklib diagrams
# Meta subject diagram drawing point line spline arrow ellipse box circle
# Meta subject intersection interpolation picture drum arc diamond text
# Meta subject ellipse plotting vector {plane geometry} {2D geometry} move
# Meta subject canvas image {raster image}
# Meta require diagram::application
# Meta author Andreas Kupries
# Meta license BSD
# @@ Meta End
# # ## ### ##### ######## ############# #####################
package require diagram::application
if {[catch {
diagram::application $argv
} msg]} {
#puts $::errorInfo
diagram::application::showerror $msg
}
# # ## ### ##### ######## ############# #####################
exit
|
