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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
#
# tkextlib/tcllib/diagrams.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
# * Part of tcllib extension
# * Draw diagrams
#
require 'tk'
require 'tkextlib/tcllib.rb'
# TkPackage.require('Diagrams', '0.3')
TkPackage.require('Diagrams')
module Tk::Tcllib
module Diagrams
PACKAGE_NAME = 'Diagrams'.freeze
def self.package_name
PACKAGE_NAME
end
def self.package_version
begin
TkPackage.require('Diagrams')
rescue
''
end
end
end
end
class << Tk::Tcllib::Diagrams
include TkCore
def drawin(canvas)
tk_call('::Diagrams::drawin', canvas)
canvas
end
alias draw_in drawin
def saveps(filename)
tk_call('::Diagrams::saveps', filename)
filename
end
alias save_ps saveps
def direction(dir)
tk_call('::Diagrams::direction', dir)
dir
end
def currentpos(pos)
list(tk_call('::Diagrams::currentpos', pos))
end
alias current_pos currentpos
alias currentpos= currentpos
alias current_pos= currentpos
def getpos(anchor, obj)
list(tk_call('::Diagrams::getpos', anchor, obj))
end
alias get_pos getpos
def position(x, y)
list(tk_call('::Diagrams::position', x, y))
end
def box(text, width=nil, height=nil)
if width || height
width = '' unless width
height = '' unless height
list(tk_call('::Diagrams::box', text, width, height))
else
list(tk_call('::Diagrams::box', text))
end
end
def plaintext(text, width=nil, height=nil)
if width || height
width = '' unless width
height = '' unless height
list(tk_call('::Diagrams::plaintext', text, width, height))
else
list(tk_call('::Diagrams::plaintext', text))
end
end
def circle(text, radius=nil)
if radius
list(tk_call('::Diagrams::circle', text, radius))
else
list(tk_call('::Diagrams::circle', text))
end
end
def slanted(text, width=nil, height=nil, angle=nil)
if width || height || angle
width = '' unless width
height = '' unless height
if angle
list(tk_call('::Diagrams::slanted', text, width, height, angle))
else
list(tk_call('::Diagrams::slanted', text, width, height))
end
else
list(tk_call('::Diagrams::slanted', text))
end
end
def diamond(text, width=nil, height=nil)
if width || height
width = '' unless width
height = '' unless height
list(tk_call('::Diagrams::diamond', text, width, height))
else
list(tk_call('::Diagrams::diamond', text))
end
end
def drum(text, width=nil, height=nil)
if width || height
width = '' unless width
height = '' unless height
list(tk_call('::Diagrams::drum', text, width, height))
else
list(tk_call('::Diagrams::drum', text))
end
end
def arrow(text=nil, length=nil, head=nil)
if length || head
text = '' unless text
length = '' unless length
list(tk_call('::Diagrams::arrow', text, length, head))
else
if text
list(tk_call('::Diagrams::arrow', text))
else
list(tk_call('::Diagrams::arrow'))
end
end
end
def line(*args)
ary = []
args.each{|arg|
if arg.kind_of?(Array) && arg.length == 2 # [length, angle]
ary.concat arg
else # ["POSITION", x, y] or length or angle
ary << arg
end
}
list(tk_call('::Diagrams::line', *ary))
end
def bracket(dir, dist, from_pos, to_pos)
list(tk_call('::Diagrams::bracket', dir, dist, from_pos, to_pos))
end
def attach(anchor=None)
tk_call('::Diagrams::attach', anchor)
end
def color(name=None)
tk_call('::Diagrams::color', name)
end
def fillcolor(name=None)
tk_call('::Diagrams::fillcolor', name)
end
def textcolor(name=None)
tk_call('::Diagrams::textcolor', name)
end
def usegap(mode=None)
bool(tk_call('::Diagrams::usegap', mode))
end
alias use_gap usegap
def xgap(val=None)
number(tk_call('::Diagrams::xgap', val))
end
def ygap(val=None)
number(tk_call('::Diagrams::ygap', val))
end
def textfont(fnt=None)
tk_call('::Diagrams::textfont', fnt)
end
def linewidth(pixels=None)
number(tk_call('::Diagrams::linewidth', pixels))
end
def linestyle(style=None)
tk_call('::Diagrams::linestyle', style)
end
def pushstate
tk_call('::Diagrams::pushstate')
end
alias push_state pushstate
def popstate
tk_call('::Diagrams::popstate')
end
alias pop_state popstate
def computepos
list(tk_call('::Diagrams::computepos'))
end
alias compute_pos computepos
def boxcoords(x1, y1, x2, y2)
list(tk_call('::Diagrams::boxcoords', x1, y1, x2, y2))
end
def moveobject(obj)
list(tk_call('::Diagrams::moveobject', obj))
end
alias move_object moveobject
end
|
