← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to plotting/mgnuplot

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-11-13 18:39:14 UTC
  • mto: (2.1.2 hoary) (3.2.1 sid) (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20041113183914-ttig0evwuatnqosl
Tags: upstream-5.9.1
Import upstream version 5.9.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
plotting/mgnuplot
1
 
#!/bin/sh
2
 
# comment \
3
 
exec wish "$0" "$@"
4
 
 
5
 
 
6
 
#set gnuPlotstream [open {|  gnuplot /d19/staff/wfs/tmp/jo } w]
7
 
set gnuPlotstream [open {|  gnuplot  } r+]
8
 
 
9
 
 
10
 
proc sendgnu com {
11
 
    global gnuPlotstream
12
 
    puts stdout $com ; flush stdout
13
 
    puts $gnuPlotstream $com ; flush $gnuPlotstream
14
 
}
15
 
 
16
 
set ii 0
17
 
while {$ii < $argc} {
18
 
 switch -exact "X[lindex $argv $ii]"  {
19
 
    X-parametric3d {
20
 
    sendgnu "set parametric\n" 
21
 
    sendgnu "set data style lines\n"
22
 
    sendgnu "set hidden\n"
23
 
    set ii [expr {$ii + 1}]
24
 
    sendgnu "splot '[lindex $argv $ii]'\n" }
25
 
    X-plot2d {
26
 
    set ii [expr {$ii + 1}]
27
 
    sendgnu "set data style lines"
28
 
    sendgnu "plot '[lindex $argv $ii]'\n" 
29
 
    }
30
 
    X-title {
31
 
    set ii [expr {$ii + 1}]
32
 
    sendgnu "set title '[lindex $argv $ii]'\n" }
33
 
    
34
 
    }
35
 
    set ii [expr {$ii +1}]
36
 
    }
37
 
      
38
 
set xrot 60
39
 
set zrot 30
40
 
 
41
 
 
42
 
text .text
43
 
.text configure -height 4 -width 40
44
 
 
45
 
proc getoptions {} {
46
 
#    unlink gnu-optionsxx
47
 
    set tmp gnu-optionsxx
48
 
    exec rm -f $tmp
49
 
    sendgnu "save '$tmp'\n"
50
 
    while {[file exists $tmp] <= 0} {exec sleep 0}
51
 
    set at [.fra.options nearest 0]
52
 
    set f [ open gnu-optionsxx ]
53
 
    .fra.options delete 0 end
54
 
    while { [gets $f line] >= 0 } {
55
 
        .fra.options insert end [lrange $line 0 end ]}
56
 
    .fra.options yview $at      
57
 
    }
58
 
 
59
 
frame .fra -bd 2
60
 
label .fra.label -text "Current Set Options"
61
 
scrollbar .fra.scroll -command ".fra.options yview"    
62
 
listbox .fra.options -yscrollcommand ".fra.scroll set" -relief sunken -bd 2
63
 
pack .fra.label
64
 
pack .fra.options -side left
65
 
pack .fra.scroll -side right -fill y
66
 
bind .fra.options <Double-1> "set selected_option  \[lindex \[selection get\] 0\]"
67
 
frame .option_edit
68
 
 
69
 
proc msg a {global $a
70
 
 sendgnu [format "%s\n\nreplot\n" [expr $$a]] ;
71
 
 set $a ""
72
 
 getoptions}
73
 
 
74
 
proc mkOption_edit {a b} {
75
 
    global $b
76
 
   label $a.label -text "Edit: "
77
 
   entry $a.entry -width 20 -relief sunken -bd 2 -textvariable $b
78
 
    bind $a.entry  <Return> "msg  $b"
79
 
   pack $a.label $a.entry -side left -padx 1m -pady 2m
80
 
}
81
 
 
82
 
mkOption_edit .option_edit selected_option
83
 
 
84
 
 
85
 
getoptions
86
 
 
87
 
button .exit -text "Exit" -command {
88
 
    sendgnu  "exit\n"
89
 
    destroy .
90
 
}
91
 
 
92
 
button .save -text "save gnuplot.out" -command {
93
 
    sendgnu "save 'gnuplot.out'\n"
94
 
 }
95
 
 
96
 
scale .rotxscale -label "xrotation"  \
97
 
   -orient horizontal -length 200 -from 0 -to 180 \
98
 
    -command gnuPlotsetview -tickinterval 60
99
 
scale .rotzscale -label "zrotation" \
100
 
    -orient horizontal -length 200 -from 0 -to 360 \
101
 
    -command gnuPlotsetview -tickinterval 120
102
 
 
103
 
set initted 0
104
 
.rotxscale set $xrot
105
 
.rotzscale set $zrot
106
 
 
107
 
proc gnuPlotsetview value  {
108
 
    global initted
109
 
    if { $initted < 2 } { set initted [expr {$initted + 1}]} \
110
 
    else \
111
 
    {sendgnu [format "set view %d,%d\nreplot\n" [.rotxscale get] [.rotzscale get]]}}
112
 
 
113
 
pack .exit   .rotxscale .rotzscale .fra .option_edit .save
114
 
 
115