●●●●TCL/TKなら俺に聞け 4●●●● (541ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

33: 2013/09/22(日)08:43:42.60 AAS
太古の時代、シムシティのプロトタイプだか最初期のバージョンはTcl/Tkで作られていたらしい。

---

137(1): 2015/02/07(土)18:57:34.60 ID:ELt/AoK9(1) AAS
jpgやpngは使えないのか?

---

148: 2015/05/10(日)23:04:24.60 ID:syRH8lp1(1) AAS
i rouleについてか、TCLについてか？

---

296: 本田 2018/11/03(土)19:17:35.60 ID:2xrpGt4x(1) AAS
Tcl/Tk による I18N(国際化) プログラミングの試み
外部ﾘﾝｸ[html]:www.yk.rim.or.jp

---

331: 2019/02/16(土)12:37:52.60 ID:8dsmpsXe(1/5) AAS
何がやりたいの？
lstの要素が1、2、3で変数sの値を文字列"1 2 3"にしたいなら下のでいいけど
set s $lst

---

463: 2021/11/20(土)21:48:15.60 ID:EfeaK0DT(1) AAS
複合パスによるクリッピングがうまくいかない件
TkZinc のソースを軽く見た感じでは使われてる三角分割アルゴリズムが単純な形状しか想定してないようです
なので Linuxでも変わらないかと思います
ただし、代わりに自力で三角分割して .zc add triangles 〜 で座標列を渡せば穴開きでもなんでもいけます
とにかく領域を三角形で埋め尽くす、非連結な領域間も潰れた三角形で橋渡しすればOKです

package require Tkzinc
package require zincGraphics
pack [zinc .zc -width 600 -height 600 -render 1 \
-highlightthickness 0 -backcolor white -lightangle 50]

set n 64
set coords {}; foreach xc {150 450} {
for {set i 0} {$i <= $n} {incr i} {
set a [expr 3.141592*2/$n*$i]
lappend coords [list [expr $xc+150*sin($a)] [expr 300-300*cos($a)]] \
[list [expr $xc+ 50*sin($a)] [expr 300- 100*cos($a)]] \
}
if {$xc == 150} {
lappend coords {150 0} {150 0} {450 0}
}
}
set clip [.zc add triangles 1 $coords -visible 0]
.zc itemconf 1 -clip $clip

画像ﾘﾝｸ

やりたかった xeyesモドキが出来ました

---

516: 本田 2023/11/21(火)23:49:15.60 ID:/+nx+5fX(1) AAS
外部ﾘﾝｸ:sourceforge.net

tcl9.0b1rc0-src.tar.gz 2023-11-15 6.7 MB

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.030s