Tcl & Tk 검색 결과

해당 글 316건

NORMDIST, TRUNC, ROUND 함수 구현

엑셀의 함수인 NORMDIST, TRUNC, ROUND를 Tcl로 구현해보았습니다.# ------------------------------------------------------------------------------# NORMDIST : 정규분포함수# TRUNC : 소수점이하 (특정위치이하) 버리기# ROUND : 특정위치에서 반올림# ------------------------------------------------------------------------------proc ROUND {number {num_digits 0}} { if { $num_digits } { return [expr {round(pow(10,$num_digits)*$numb..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:54

BLT의 barchart에 원 그리기

BLT 패키지는 다양한 graph, plot 등을 그릴 수 있는 위젯들을 제공합니다. 그중 barchart라는 위젯이 있는데, barchart는 line, polygon, bitmap, text 등을 지원하고 있습니다. 하지만 차트에 circle을 그려야 하는 상황이 오고 말았는데요. 어차피 circle은 연속된 라인들로 이루어진 것에 불과하니 line으로 구현해 보았습니다. 아래는 주어진 위치와 반지름의 길이를 기본으로 연속된 라인을 만들어 circle을 구현해 줍니다.proc GetCircleCoords { x y radius } { # 100정다각형 set coords [list] for {set i 0} {$i
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:52

gets vs read 대용량 파일 테스트

katie34님이 제공해 주신 팁입니다.안녕하세요. 파일을 행단위로 읽기 위해 주로 사용되는 gets와 read의 성능 테스트를 해봤습니다. 대용량 파일이라 그런가 결과는 사실 많이 놀라웠습니다. read + foreach, 즉, read의 메모리 사용과 foreach의 빠른 Loop로 인해 read가 더 우세할 것이라 생각했는데, 제 예상과 크게 달랐습니다. 파일에 대한 정보는 숫자 1~1억까지를 기록한 파일이며, 용량은 847.71MB입니다.read(평균 266초), gets(95초)로 gets가 2.8배 정도 더 빠른 것을 확인할 수 있었으며, 시스템 자원 사용 현황입니다read = CPU 10~35%가량 사용, 8Gb 메모리 풀 사용 + swap메모리 4Gb 추가 사용gets = CPU 100% ..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:50

반복문 별 소요 시간 테스트

katie34 님이 제공해 주신 팁입니다.안녕하세요. Tcl/Tk언어로 속도에 관한 테스트를 하는 게 의미 있는 일은 아니지만, 다른 프로그래밍 언어 커뮤니티에서는 이런 테스트 결과를 가지고 이야기하는 것이 부럽기도 해서 저도 한번 해봤습니다.^^; PC환경은 2011 Macbook air이고, tcl8.6이며, 각 반복문별 5회씩 테스트했으며, 숫자 1~1억까지입니다 결과는 foreach(평균 43.4초), while(80초), for(106.2초)입니다. 예상(?)했던 대로 foreach가 가장 빨랐고, for문이 생각보다 시간이 많이 걸린다는 게 좀 의아했습니다.# foreach testset max_num 100000000set start_time [clock seconds]set i 1while..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:46

Tcl로 구현한 텔넷 서버

아래의 스크립트는 Tcl로 구현된 심플한 텔넷 서버 입니다. #!/usr/bin/env tclsh# Pseudo-telnet server. Includes basic auth, but no separate identities# or proper multi-threaded operation, so whoever runs this had better# trust those he gives identities/passwords to and they had better trust# each other too. Note this script does not support command-line arguments.## The names of this array are IP addresses of hosts th..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:41

텍스트 위젯 라인 넘버 및 Wrap 이미지 보여주기

아래의 스크립트는 텍스트 위젯에 라인넘버 기능을 넣고, wrap 된 라인에 wrap이미지를 보여주는 스크립트입니다. 간단한 텍스트 편집기를 만들고자 하시는 분들께 도움이 되리라 생각이 듭니다.package require Tk 8.5image create bitmap wrap_bit -foreground #aac -data { #define wrap_width 8 #define wrap_height 8 static unsigned char wrap_bits[] = { 0x02, 0x02, 0x02, 0x22, 0x62, 0xfc, 0x60, 0x20 };}proc main {} { text .text \ -wrap word \ -borderwidth 0 \ ..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:39

popen 구현 하기

물론 bgexec 패키지를 이용하면 되겠지만, 직접 아래와 같이 커맨드 기반 프로그램의 stdout을 캡처할 수 있습니다.namespace eval subprocess {# this will be set to 1 when the subprocess has finishedvariable finished 0# here we can save the output of the subprocessvariable output {}}proc subprocess::handledata {f} { variable finished variable output if {[eof $f]} { set finished 1 } else { set x [read $f] puts ..
Tcl & Tk/팁 (Tip) 2025. 3. 26. 16:36