●●●●TCL/TKなら俺に聞け 4●●●● (541ﾚｽ)
●●●●TCL/TKなら俺に聞け 4●●●● http://mevius.5ch.net/test/read.cgi/tech/1375678740/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
461: デフォルトの名無しさん [sage] 2021/11/19(金) 22:33:18.50 ID:OsKHDI1l >>460 LinuxならTkZinc が動くと思います リンク先の紹介では TkZinc used to support it. Now the project seems to have vanished. なんて書かれてますが https://github.com/asb-capfan/TkZinc にあります mac (Tcl/Tk X11版)では一部手直しが必要でしたがmakeできました Linuxならそのままで行けるでしょう > 透明なところクリックすると後ろのウィンドウがアクティブになったりする？ これも出来ます ( >>459 では出来ませんでした) package require Tkzinc package require zincGraphics pack [zinc .zc -width 600 -height 600 -render 1 -backcolor #fcc -lightangle 50] # canvasウィジットに於ける oval, line, etc. の要領で # zincウィジット(.zc)に パスを追加していきます set coords {} for {set i 0} {$i < 5} {incr i} { set a [expr 3.141692*2/5*$i] lappend coords [list [expr 300-200*sin(2*$a)] [expr 300-200*positivecos(2*$a)]] } set clip [.zc add curve 1 $coords -closed 1 -visible 0 -fillrule odd] # パスアイテム(clip)の形状(※)によりトップレベルウィンドウをクリッピング # ※サイズは勝手にスケールされてしまいます .zc itemconf 1 -clip $clip http://mevius.5ch.net/test/read.cgi/tech/1375678740/461
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 80 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.008s