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
|
#!/bin/sh
# next line is a comment in tcl \
exec tclsh "$0" ${1+"$@"}
package require Gdtclft
if 1 {
set font(1) /usr/add-on/share/ttf/blf.ttf
set font(2) /usr/add-on/share/ttf/atrox.ttf
set font(3) /usr/add-on/share/ttf/barcod39.ttf
set font(4) /usr/add-on/share/ttf/bkkoi8bi.ttf
set font(5) /usr/add-on/share/ttf/bkmaci.ttf
set font(6) /usr/add-on/share/ttf/times.ttf
set font(7) /usr/add-on/share/ttf/verdana.ttf
set font(8) /usr/add-on/share/ttf/arial.ttf
set font(9) /usr/add-on/share/ttf/frzquadb.ttf
} {
set font(1) /usr/add-on/share/ttf/times.ttf
set font(2) /usr/add-on/share/ttf/times.ttf
set font(3) /usr/add-on/share/ttf/times.ttf
set font(4) /usr/add-on/share/ttf/times.ttf
set font(5) /usr/add-on/share/ttf/times.ttf
set font(6) /usr/add-on/share/ttf/times.ttf
set font(7) /usr/add-on/share/ttf/times.ttf
set font(8) /usr/add-on/share/ttf/times.ttf
set font(9) /usr/add-on/share/ttf/times.ttf
}
#set string "ABC,abc.GJQYZ?gjqyz!M"
set string "mmmmmmmmmmmmmmmmmmmmmm"
set gd [gd create 600 700]
set white [gd color new $gd 255 255 255]
set green [gd color new $gd 0 255 0]
set black [gd color new $gd 0 0 0]
set start [clock clicks]
set angle .5
set x 50
set f 6
if 1 {
set y 40
for {set i 4} {$i < 18} {set i [expr $i + .5]} {
set y [expr $y + round($i) + 5]
gd fillpolygon $gd $green [gd text {} $black $font($f) $i $angle $x $y "$i: $string"]
gd text $gd $black $font($f) $i $angle $x $y "$i: $string"
}
} {
set y 250
set i 15.5
if 0 {
gd fillpolygon $gd $green [gd text {} $black $font($f) $i $angle $x $y "$i: $string"]
gd text $gd $black $font($f) $i $angle $x $y "$i: $string"
}
}
if 1 {
for {set f 1} {$f <= 9} {incr f} {
set y [expr $y + round($i) + 5]
gd text $gd $black $font($f) $i 0.0 $x $y "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
}
}
puts [expr [clock clicks] - $start]
set f [open "| xv -" w]
#set f [open "test.png" w]
gd writePNG $gd $f
close $f
|
