전체 글 검색 결과

해당 글 418건

폭스 레인저 리메이크: IBM-PC최초의 상용게임

2018년도 11월에 고생해서 개발했던 도스용 게임이 있었지.. 아래는 당시에 도스박물관 네이버 카페에 공개하면서 적었던 글..소개안녕하세요. 하늘소입니다. 저는 42살의 게임하고는 상관이 없는 개발을 업으로 네 식구를 책임지고 있는 평범한 대한민국 유부남입니다. 평생 그간 저의 오랜 바람이었던 도스 게임을 제작해서 이렇게 테스트 버전을 내놓게 되었습니다. 그것도 IBM-PC 최초 상용 슈팅 게임이었던 폭스 레인저의 리메이크 버전을 내놓게 되어 상당한 심적 부담감을 느끼면서 공개해 봅니다.  많은 분들이 보통 리메이크작이면 현세대 플랫폼으로 왜 내놓지 않냐 하시지만, 저는 도스 플랫폼이 너무 좋고, 도스용 게임을 한 번도 제작해 본 적이 없어서 죽기 전에 한 번은 도스용 게임으로 제작해보고 싶은 작은 소..
블로그 (Blog)/프로젝트 (Projects) 2025. 3. 29. 22:29

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