LogIn E-mail
설계이야기
[wish]jplot
# 89 JMJS    10.5.12 14:39

#!/usr/bin/wish
wm title . $argv0
frame        .b
pack        .b        -side top -fill x -pady 2m
label        .b.l1        -text "File:" -width 5 -anchor c
entry        .b.f        -width 20 -textvariable f
        .b.f        insert 0 [lindex $argv 0]
label        .b.l2        -text "Size:" -width 5 -anchor c
entry        .b.hs        -width 4 -text 240 -textvariable hs
        .b.hs        insert 0 [lindex $argv 1]
label        .b.l3        -text "x" -width 1 -anchor c
entry        .b.vs        -width 4 -textvariable vs
        .b.vs        insert 0 [lindex $argv 2]
button        .b.d        -text Draw -command "cbox \$f \$hs \$vs"
button        .b.q        -text Quit -command "destroy ."
pack .b.l1 .b.f .b.l2 .b.hs .b.l3 .b.vs .b.d .b.q -side left -expand 1

proc cbox {f hs vs} {
        destroy .c
        if {$hs>0 && $vs>0} then {
                pack [canvas .c -width [expr {$hs+2}] -height [expr {$vs+2}]]
                jplot .c $f $hs $vs
        }
}

proc jplot {w f hs vs} {
        set f [open $f]
        for {set j 3} {$j<$vs+3} {incr j} {
                for {set i 3} {$i<$hs+3} {incr i} {
                        if {![eof $f]} {
                                set jcolor [read $f 6]
                                set x0 $i
                                set y0 $j
                                set x1 $i
                                set y1 [expr {$j+1}]
                                $w create line $x0 $y0 $x1 $y1 -width 1 -fill #$jcolor
                                set jcolor [read $f 1]
                        }
                }
                $w create line 2 2 [expr {$hs+3}] 2 -width 1 -fill black
                $w create line 2 [expr {$vs+3}] [expr {$hs+3}] [expr {$vs+3}] -width 1 -fill black
                $w create line 2 2 2 [expr {$vs+3}] -width 1 -fill black
                $w create line [expr {$hs+3}] 2 [expr {$hs+3}] [expr {$vs+3}] -width 1 -fill black
        }
}

cbox [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]

첨부파일: jplot
게시물: 104 건, 현재: 1 / 2 쪽
번호 제       목 작성자 등록일 방문
107  [sh]array JMJS 19.8.14 5
106  arithmetic in a makefile, shell pwd export JMJS 17.9.8 705
105  Split and merge large files JMJS 16.3.21 653
104  [Makefile]random JMJS 14.12.5 1004
100  윈도우7 용량부족 winsxs 폴더 최적화 JMJS 14.10.14 1919
99  [sh,csh]while loop JMJS 13.2.6 2028
98  hostname, hostid, /sbin/ifconfig eth0 JMJS 13.1.4 3911
97  [linux]fedora 16 gome-shell extension JMJS 12.3.12 1676
96  [linux]fedora 16 grub boot order change JMJS 12.3.10 1966
95  [linux]fedora Input Method,ibus,hangul JMJS 12.3.8 1659
94  [linux]audio,mp3,mplayer,gstreamer,vlc JMJS 12.3.7 2187
93  [sh].wrapper example JMJS 11.6.15 1881
92  [make]for loop JMJS 11.9.8 1658
91  [make]conditional expression JMJS 11.5.12 1558
90  [make]shell 실행 JMJS 11.3.9 1665
89  [wish]jplot JMJS 10.5.12 1335
88  yum JMJS 09.8.12 1371
87  [CYGWIN]X setup하기 JMJS 10.8.6 2568
86  [Make]Makefile Brief JMJS 10.8.6 1363
85  ldd /user/bin/xterm JMJS 09.4.24 1080
84  [HTML]어도비 SVG 뷰어와 HTML JMJS 09.4.24 1613
83  [DOS]DOS command JMJS 09.7.20 1300
82  [DOS]DOS command brief JMJS 07.2.21 1760
81  웹페이지 소스보기 JMJS 09.4.24 1288
80  [html]자동으로 글자색 바뀜 JMJS 07.1.10 1260
79  [html]복사, 드래그 금지 JMJS 07.1.10 1752
78  [csh]cshell에서 function 못쓴다네요 JMJS 11.3.17 1289
77  리눅스에서 i386,i586,i686, x86의 차이점 JMJS 06.10.16 1571
76  [CSH]$status JMJS 06.8.21 1048
75  [sh]substr, read, until,IFS,for,dirname JMJS 14.12.19 1249
74  [sh]rgbview.sh . hello.sh JMJS 10.11.30 1154
73  automount - /etc/fstab JMJS 06.2.23 1194
72  lmutil.csh JMJS 05.11.8 1502
71  화일이름에 못오는 문자 JMJS 05.9.8 1258
70  /usr/ucb /usr/ccs JMJS 05.9.5 1172
69  Solaris Version JMJS 05.9.5 1395
68  /usr/ccs/bin/nm -x debpli.so JMJS 05.8.31 1651
67  tar, gzip, zcat, uncompress, mn(.a 파일보기) JMJS 13.1.6 1502
66  find . -name -print -exec perl JMJS 09.4.17 1465
65  pkgadd -d packagefile JMJS 05.5.9 1222
64  prstat JMJS 08.10.2 1456
63  vi 명령어, vim명령어 gvim JMJS 11.2.11 4339
62  multiple directory 에서 grep ? JMJS 04.5.31 1620
61  [csh].cshrc_axis JMJS 04.5.14 1515
60  [csh].cshrc_modelsim JMJS 04.5.14 1586
59  [csh].cshrc_cadence JMJS 04.5.14 1651
58  [csh].cshrc_novas JMJS 04.5.14 1533
57  [csh].cshrc_verisity JMJS 04.5.14 1898
56  lmgrd JMJS 09.6.22 2248
55  [csh]which case JMJS 04.5.14 1518
54  [bash]example 2 JMJS 04.5.12 1674
53  [bash]example 1 JMJS 04.5.12 1601
52  fedora 12에서 touchpad disable JMJS 11.1.17 1694
51  [Perl]한국어 인코딩 JMJS 04.1.16 2464
50  [Perl]HTML에서 기호 표시를 위한 문자치환 JMJS 04.1.5 10193
49  [csh]make awk JMJS 03.6.6 1852
48  [csh]wordsplit JMJS 03.6.6 1531
47  [csh]vi2 JMJS 03.6.6 1357
46  [csh]cat.csh JMJS 03.6.6 1445
45  [csh]chgword.csh JMJS 03.6.6 1347
44  [bash]password JMJS 11.3.9 1302
43  [Tcl]bi2int JMJS 02.11.29 1295
42  [PC]ask 검색창이 자꾸 뜬다면 JMJS 09.4.24 1743
41  [csh]backup_copyc.csh; foreach; continue JMJS 09.4.24 1468
40  uname, uname -s -r, uname -p, uname -a JMJS 09.4.24 1669
39  [tk]새 창 열고 닫기 예제 JMJS 09.4.24 11258
38  [sh]if [[ "$abc" == "abc" && "$bbc" == "bbc" ]]; ... JMJS 11.3.17 1357
37  [expect]expect_scp.exp JMJS 11.3.9 1459
36  ssh -x -l soc lion scp -r ... JMJS 11.3.9 1256
35  TclTk 배열 JMJS 09.7.20 1336
34  ./configure make make install JMJS 11.1.13 1257
33  [csh]diff JMJS 10.7.14 1333
32  tr abc 123 < file1 > file2 JMJS 11.4.11 1273
31  Installing RPMforge JMJS 10.2.8 1348
30  [태그]글자색이 사라짐 JMJS 09.4.24 1435
29  [태그]자동으로 글자색이 변함 JMJS 09.4.24 1416
28  글자태그 모음 JMJS 09.4.24 1530
27  색상명과 RGB값 표 JMJS 09.4.24 1562
26  RGB 색상표 JMJS 09.4.24 1732
25  한글특수문자표 JMJS 09.4.24 1517
24  bc -l JMJS 01.5.22 1281
23  file *,  od -xc *, cat * JMJS 01.3.28 1608
22  Linux Memo JMJS 09.7.20 1471
21  xterm -fn 10x20 & JMJS 12.3.7 1319
20  W/S Tip JMJS 09.4.29 1395
19  [awk]example JMJS 10.10.30 1598
18  [csh].cshrc JMJS 11.6.21 1969
17  stop & background job JMJS 00.11.14 1258
16  W/S shout down JMJS 00.11.14 1273
15  [sed]example JMJS 16.9.5 1648
14  [DOS]Memo JMJS 00.10.29 1387
13  [csh]리스트를 만들어 foreach로 처리할때 JMJS 00.10.7 4841
12  [Tcl]Tool Command Language JMJS 09.7.24 2604
11  [csh]vi.csh JMJS 00.6.27 1389
10  [csh]Check Process JMJS 00.6.27 1284
9  [csh]Get Character and get char without 'return' JMJS 10.2.8 1427
8  [csh]foreach SED JMJS 00.6.27 1694
7  [Window]오류보고 안 뜨게하는 방법 JMJS 09.9.23 1328
6  [csh]echo.csh JMJS 00.6.27 1489
5  set DDD = `date '+%y%m'` JMJS 00.6.27 1264
[1] [2]