This page uses TCL8/Expect 5.2 for windows to develop Refrigerator magnetic Poetry. For example, we are laying out tiles in random colors imprinted with text and symbols applied randomly. Would also like to develop a crude Mahjong program using some of these subroutines. test picture & screen shot [http://mini.net/files/fridge.jpg] '''Strengths''' ''Subroutine use whereever possible.'': This one [Refrigerator_Magnetic_Poetry] ---- #Refrigerator_Magnetic_Poetry # Start of Deck #Refrigerator_Magnetic_Poetry # Start of Deck #Refrigerator_Magnetic_Poetry # Start of Deck #Refrigerator_Magnetic_Poetry # Start of Deck package require Tk proc down(reset) {w x y} { reset $w } proc move(reset) {w x y} {} proc radio {w var values {col 0}} { frame $w set type [expr {$col? "-background" : "-text"}] foreach value $values { radiobutton $w.v$value $type $value -variable $var -value $value \ -indicatoron 0 if $col {$w.v$value config -selectcolor $value -borderwidth 3} } eval pack [winfo children $w] -side left set ::$var [lindex $values 0] set w } proc down(Draw) {w x y} { set ::ID [$w create line $x $y $x $y -fill $::Fill] } proc move(Draw) {w x y} { $w coords $::ID [concat [$w coords $::ID] $x $y] } #-- Movement of an item proc down(Move) {w x y} { set ::ID [$w find withtag current] set ::X $x; set ::Y $y } proc move(Move) {w x y} { $w move $::ID [expr {$x-$::X}] [expr {$y-$::Y}] set ::X $x; set ::Y $y } proc luniq {L} { # removes duplicates without sorting the input list set t {} foreach i $L {if {[lsearch -exact $t $i]==-1} {lappend t $i}} return $t } ;# RS #-- Clone an existing item proc serializeCanvasItem {c item} { set data [concat [$c type $item] [$c coords $item]] foreach opt [$c itemconfigure $item] { # Include any configuration that deviates from the default if {[lindex $opt end] != [lindex $opt end-1]} { lappend data [lindex $opt 0] [lindex $opt end] } } return $data } proc down(Clone) {w x y} { set current [$w find withtag current] if {[string length $current] > 0} { set itemData [serializeCanvasItem $w [$w find withtag current]] set ::ID [eval $w create $itemData] set ::X $x; set ::Y $y } } interp alias {} move(Clone) {} move(Move) #-- Drawing a rectangle proc down(Rect) {w x y} { set tile [expr {int(rand()*1000000000.)}] set poof "rectangle" ; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set ::ID [$w create rect $x $y $x $y -tags $tagx -fill $::Fill] } proc move(Rect) {w x y} { $w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y] } #-- Drawing an oval (or circle, if you're careful) proc down(Oval) {w x y} { set tile [expr {int(rand()*1000000000.)}] set poof "oval" ; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set ::ID [$w create oval $x $y $x $y -tags $tagx -fill $::Fill] } proc move(Oval) {w x y} { $w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y] } proc down(circle) {w x y} { set tile [expr {int(rand()*1000000000.)}] set poof "oval" ; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set dx 50 set dy 50 set ::ID [$w create oval [expr {$x+2}] [expr {$y+2}] [expr {$x+$dx-3}] [expr {$y+$dy-3}] -tags $tagx -fill $::Fill] } proc move(circle) {w x y} { #$w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y] } proc down(Poly) {w x y} { if [info exists ::Poly] { set tile [expr {int(rand()*1000000000.)}] set poof "poly" ; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set coords [$w coords $::Poly] foreach {x0 y0} $coords break if {hypot($y-$y0,$x-$x0)<10} { $w delete $::Poly $w create poly [lrange $coords 2 end] -fill $::Fill unset ::Poly } else { $w coords $::Poly [concat $coords $x $y] } } else { set ::Poly [$w create line $x $y $x $y -tags "obj_[expr {int(rand()*1000000000.)}]" -fill $::Fill ] } } proc ? L { lindex $L [expr {int(rand()*[llength $L])}] #suchenwirth_subroutine; } proc move(Poly) {w x y} {#nothing} #-- With little more coding, the Fill mode allows changing an item's fill color: proc down(Fill) {w x y} {$w itemconfig current -fill $::Fill} proc move(Fill) {w x y} {} proc lcount list { foreach x $list {lappend arr($x) {}} set res {} foreach name [array names arr] { lappend res [list $name [llength $arr($name)]] } return $res } #lcount {yes no no present yes yes no no yes present yes no no yes yes} #{no 6} {yes 7} {present 2} proc translationx {string dictName} { #suchenwirth_subroutine; upvar 1 $dictName dict set res {} foreach word $string { if [info exists dict($word)] {set word $dict($word)} lappend res $word } set res } proc plural word { switch -- $word { man {return men} foot {return feet} goose {return geese} louse {return lice} mouse {return mice} ox {return oxen} tooth {return teeth} calf - elf - half - hoof - leaf - loaf - scarf - self - sheaf - thief - wolf {return [string range $word 0 end-1]ves} knife - life - wife {return [string range $word 0 end-2]ves} auto - kangaroo - kilo - memo - photo - piano - pimento - pro - solo - soprano - studio - tattoo - video - zoo {return ${word}s} cod - deer - fish - offspring - perch - sheep - trout - species {return $word} genus {return genera} phylum {return phyla} radius {return radii} cherub {return cherubim} mythos {return mythoi} phenomenon {return phenomena} formula {return formulae} } switch -regexp -- $word { {[ei]x$} {return [string range $word 0 end-2]ices} {[sc]h$} - {[soxz]$} {return ${word}es} {[bcdfghjklmnprstvwxz]y$} {return [string range $word 0 end-1]ies} {child$} {return ${word}ren} {eau$} {return ${word}x} {is$} {return [string range $word 0 end-2]es} {woman$} {return [string range $word 0 end-2]en} } return ${word}s } proc keyget {list key} { foreach {lkey value} $list { if [string equal $lkey $key] {return $value} } } ;# RS # % keyget {fnm John lnm Brown phone (123)456-7890 email john@brown.com} phone # (123)456-7890 # % keyget {fnm John lnm Brown phone (123)456-7890 email john@brown.com} fax proc lswap list { set res {} foreach {a b} $list {lappend res $b $a} set res } ;# RS # % lswap {a b c d e f g h} # b a d c f e h g #Prepend elements to a list (add in front): proc lprepend {var args} { upvar 1 $var v set v [eval [list linsert $v 0] $args] } ;# DKF proc kvsearch {kvlist item} { set pos [lsearch $kvlist $item] if {$pos != -1} { lindex $kvlist [expr {$pos+1-2*($pos%2)}] } } ;# RS ## kvsearch {1 one 2 two 3 three} four ;# returns empty string/list # kvsearch {1 one 2 two 3 three} 1 #one #% kvsearch {1 one 2 two 3 three} one #1 #-- Building the UI set modes {Draw Move Clone Fill Rect Oval Poly circle canvas Poetry hairs zone help clear reset exit} set colors { blue3 white magenta brown red orange yellow green green3 green4 cyan blue blue2 purple} set colorz {black brown2 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4 LightYellow2 LightYellow3 LightYellow4 yellow2 yellow3 yellow4 gold2 gold3 gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4 DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3 orange3 orange4 DarkOrange1 DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4 tomato2 tomato3 tomato4 OrangeRed2 OrangeRed3 OrangeRed4 red2 red3 red4 DeepPink2 DeepPink3 DeepPink4 HotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2 } set colorx { blue4 AntiqueWhite3 \ Bisque1 Bisque2 Bisque3 Bisque4 \ SlateBlue3 RoyalBlue1 SteelBlue2 \ DeepSkyBlue3 LightBlue1 DarkSlateGray1 \ Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \ Yellow1 IndianRed1 IndianRed2 Tan1 \ lemonchiffon seashell honeydew mintcream azure \ peachpuff navajowhite moccasin cornsilk \ IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4 burlywood1 \ burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3 wheat4 \ tan2 tan4 chocolate1 chocolate2 chocolate3 firebrick1 firebrick2 \ firebrick3 firebrick4 \ } global helpx global liner global ind set ind 0 global movesit set helpx 0 set movesit 1 set colorground bisque global xhistory firstnode curnode set curnode "" set firstnode "" set xhistory [list aaa bbb ccc ddd eee fff ggg ] set xhistory [list ] set colorground bisque global selected_tile previous_tile set selected_tile "selected tile"; set previous_tile "previous tile"; global counter global liner global ind set ind 0 set liner [list a b c d e f g ] global tilex tagx tagz set tilex "obj_66666test" set tagx "obj_77777test" set tagz "obj_55555test " global entries set counter 0 grid [radio .1 Mode $modes] -sticky nw grid [radio .2 Fill $colors 1] -sticky nw grid [radio .3 Fill $colorx 2] -sticky nw grid [radio .4 Fill $colorz 3] -sticky nw grid [canvas .c -relief raised -borderwidth 1 -bg $colorground] - -sticky news grid rowconfig . 0 -weight 0 grid rowconfig . 1 -weight 1 grid rowconfig . 2 -weight 2 grid rowconfig . 3 -weight 3 button .b2 -text dismiss -command "destroy ." button .b3 -text exit -command "exit" button .b5 -text "Del_tank" -width 2 -command { .wxx delete 1.0 end} button .b6 -text "lt_bg" -bg gray -width 2 \ -command { set colorground LightBlue1; .c configure -bg $colorground } button .b7 -text "bis_bg" -width 3 \ -command { set colorground Bisque; \ .c configure -bg $colorground } grid .b2 .b3 .b5 .b6 .b7 grid rowconfig . 0 -weight 0 grid rowconfig . 1 -weight 1 grid [ label .wcc -text "list of selection history " ] grid [entry .wxxccc -textvar e -just left -bg beige -width 50] #.wxxccc insert end "$liner" set wow [.c find withtag current]; .wxxccc insert end "xxx starter xxx $wow xxx" focus .wxxccc ;# allow keyboard input set labelx [info tclversion]; grid [ label .ww -text "holding tank, version $labelx " ] set txt [text .wxx -width 20 -height 3 -bg beige] grid $txt -sticky news focus .wxx ;# allow keyboard input set wow [.c find withtag current]; .wxx insert 1.0 "xxx starter xxx $wow xxx "; #-- The current mode is retrieved at runtime from the global Mode variable: bind .c <1> {set firstnode [.c find withtag current];initialize %W %x %y ;down($Mode) %W %x %y} bind .c {move($Mode) %W %x %y} bind .c <2> {%W delete current} bind .c <3> { #set firstnode [.c find withtag green] set firstnode [.c find withtag current] set curnode [.c find withtag current] set tile [.c find withtag current] #set curnode [.c find withtag red] if {( $firstnode != "") && ($curnode != "")} { dualcheck $tile $firstnode $curnode }} proc move(Poetry) {w x y} { if [info exists ::X] { $w move $::ID [expr {$x-$::X}] [expr {$y-$::Y}] set ::X $x; set ::Y $y} } proc down(exit) {w x y} { exit } proc down(Poetry) {w x y} { global baseline global en_chinese global en_romanji set baseline [list ] set baseline2 [list ] set baseline3 [list ] set dy 40 set dx 40 set dk 10 set poof "tester"; set looky "stringx"; set tile "tile" set tagx [list aaaa bbbb cccc dddd eeee fffff gggg hhhh ] set tagx [list ] #set tags [list mv d-$val1$val2]; #set tile [expr {int(rand()*1000000000.)}] #set looky "stringx"; #set poof [xpop $looky ] ; #set tags [list $poof mv obj_$tile d-$val1$val2]; #set tags [list $poof mv "obj_$tile+1" d-$val1$val2]; #set tagx [list $poof mv "obj_$tile+1" d-$x$y]; for {set i 0; set y [expr {4+$y}];set x [expr {10+$dx}]; } {$i<5} {incr i; incr x $dx} { set state1 1; set tile [expr {int(rand()*1000000000.)}] set looky "stringx"; set poof [xpop $looky ] ; lappend baseline $poof; lappend caseline $poof; set tagx [list $poof mv "obj_$tile" d-$x$y]; set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ] } for {set i 0; set y [expr {8+$y}];set x [expr {10+$dx}] ;} {$i<7} {incr i; incr x $dx} { set state1 1; set tile [expr {int(rand()*1000000000.)}] set looky "stringx"; set poof [xpop $looky ] ; lappend baseline2 $poof; lappend caseline2 $poof; set tagx [list $poof mv "obj_$tile" d-$x$y]; set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ] } for {set i 0; set y [expr {12+$y}];set x [expr {15+$dx}];} {$i<5} {incr i; incr x $dx} { set state1 1; set tile [expr {int(rand()*1000000000.)}] set looky "stringx"; set poof [xpop $looky ] ; lappend baseline3 $poof; lappend caseline3 $poof; set tagx [list $poof mv "obj_$tile" d-$x$y]; set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ] } set topa [stringxxx [concat $baseline $baseline2 $baseline3]] ; .wxx insert 1.0 $topa; .wxx insert 1.0 [lcount $topa]; set topat [translationx $topa en_chinese]; .wxx insert 1.0 [lcount $topat]; .wxx insert 1.0 [concat $topa [lcount $topa] $topat [lcount $topat] ]; set k 20; set baseline [translationx $baseline en_chinese]; set k [expr {20+$y}]; set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ] set baseline [translationx $baseline2 en_chinese]; set k [expr {30+$y}]; set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ] set baseline [translationx $baseline3 en_chinese]; set k [expr {40+$y}]; set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ] set k 30; set j 20; set baseline [translationx $caseline en_romanji]; set k [expr {60+$y}]; set j [expr {20+$x}]; set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ] set baseline [translationx $caseline2 en_romanji]; set k [expr {70+$y}]; set j [expr {20+$x}]; set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ] set baseline [translationx $caseline3 en_romanji]; set k [expr {80+$y}]; set j [expr {20+$x}]; set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ] } proc history {xhistory } { set xhistory [list object history @]; global xhistory firstnode curnode global ind movesit set number 2 set numberx 2 set firstnode [.c find withtag current] lappend $xhistory $firstnode ; set ::ID [.c create text 100 200 -text $xhistory -tags " history " -fill $::Fill -fill black ] } proc dualcheck { tile firstnode curnode} { global match_id selected_tile tiles_left jack global newy oldy match oldx xhistory global selected_tile previous_tile global xhistory global tilex #global firstnode curnode set selected_tile "selected tile"; set colorxxx "test" set colorzzz "test" #set previous_tile "previous tile"; set numberx [.c gettags current]; regexp {obj_(\d+)} $numberx -> tilex regexp {colorit_(\d+)} $numberx -> colorxxx regexp {colorit_(\d+)} $numberx -> colorzzz set indexer [string first "mv" $numberx ]; set indexer [ expr { $indexer - 1 } ] set new [string range $numberx 0 $indexer ]; set tags [.c gettags current] #.c itemconfigure obj_$tilex -width 2 -outline red; #.c itemconfigure $previous_tile -width 2 -outline green; # .c itemconfigure obj_$tilex -width 3 ; # .c itemconfigure $previous_tile -width 3 ; set old "test" set kkk [.c gettags $previous_tile ] set indexer [string first "mv" $kkk ]; ; set indexer [ expr { $indexer - 1 } ] set old [string range $kkk 0 $indexer ]; if {$old == ""} {set old "poof $previous_tile"} set tx [string range $tilex 0 end ]; set rx [string range $previous_tile 4 end ]; if { $tx != $rx } { .wxx delete 1.0 end; .wxx insert end " pair error identified, text not equal !!!" ; } if { $old == $new } { set tx [string range $tilex 0 end ]; set rx [string range $previous_tile 4 end ]; if { $tx == $rx } { .wxx delete 1.0 end; .wxx insert end " pair error identified, double touch of same tile !!!" ; } if { $tx != $rx } { #.c itemconfigure obj_$tilex -width 2 -outline blue; #.c itemconfigure $previous_tile -width 2 -outline blue; .wxx delete 1.0 end; .wxx insert end " xxx $tilex xxx $tx xxx $rx xxx $previous_tile xxxx "; .wxx insert end $previous_tile; .wxx insert end " old $old "; .wxx insert end $old; .wxx insert end " identical pair identified !!!" ; .wxx insert end " xxx old $old xxx new xxx $new "; .wxx insert end $new; .wxx insert end "obj_tilex obj_$tilex " regexp {colorit_(\d+)} $numberx -> colorxxx regexp {colorit_(\d+)} $previous_tile -> colorzzz if { $colorxxx == $colorzzz } { .c delete "$previous_tile+1"; .c delete "obj_$tilex+1" ; .c delete obj_$tilex ; .c delete $previous_tile; } } } #.wxx delete 1.0 end; set $selected_tile $tags; .wxx insert end $tags ; .wxx insert end " selected_tile equals $new "; if { $previous_tile != $selected_tile } { set previous_tile [.c gettags current] set indexer [string first "mv" $previous_tile ]; set indexer [ expr { $indexer - 1 } ] set old [string range $previous_tile 0 $indexer ]; .wxx insert end " previous_tile equals $old "; } #.c itemconfigure $curnode -width 2 ; set previous_tile obj_$tilex set firstnode obj_$tilex; if { $firstnode != $curnode } { set curnode obj_$tilex;} .wxx insert end " current equals $curnode "; .wxx insert end " first equals $firstnode "; return } proc initialize {w x y} { global tile global xhistory firstnode curnode global ind movesit set tile [.c find withtag current] set number 2 set numberx 2 set ::_x $x; set ::_y $y; set firstnode [.c find withtag current] set number [$w gettags current] set indexer [string first "mv" $number ]; set numberx [string range $number 0 $indexer]; # this card deletes previous history in tank # reduces tank verbage but loses history # .wxx delete 1.0 end; # general reporting line .wxx insert 1.0 " xxx $number xxx $numberx xxx \ indexer xxx $indexer xxx number of tiles xxxx \ $ind xxxx object xxx $tile xxx $ind xxx number of \ straight moves xxx $movesit xxx "; #.wxxccc delete 1.0 end; # general reporting line .wxxccc insert end " xxx $number xxx $numberx xxx \ indexer xxx $indexer xxx number of tiles xxxx \ $ind xxxx object xxx $tile xxx $ind xxx number of \ straight moves xxx $movesit xxx "; incr movesit } proc lpick L {lindex $L [expr int(rand()*[llength $L])]; \ #suchenwirth_subroutine;} proc stringxxx s { #suchenwirth_subroutine; set res {} foreach line [split $s \n] { for {set i 0} {$i<[string length $line]} {incr i} { if {$i==[string wordstart $line $i]} { set w [string range $line $i [expr {[string wordend $line $i]-1}]] #if {$w!=" "} {lappend res $w} #if {$w!=" " && $w!="\{" && $w!="\}"} {lappend res $w} if {$w!=" " && $w!="\{" && $w!="\}" && $w!="\," && $w!="\\" && $w!="\/"} {lappend res $w} #if {$w!="\}"} {lappend res $w} #if {$w!="\{"} {lappend res $w} incr i [expr {[string length $w]-1}]; # always loop incr } } } set res } proc xpop { topper } { global liner global ind global baseline set poetsey aaaaa set liner [poemsorts $poetsey]; set goofy [stringxxx $liner] ; set topper [ lindex $goofy $ind ]; set ind [ expr { $ind + 1}] lappend $baseline $topper; return $topper; } proc helptext {stringxxx} { set text_texas { # Refrigerator magnet poetry # Refrigerator magnet poetry # program is mainly TCL8.0 and # Windows Expect5.2 offshoot of # Suchenwirth's Domino.tcl, circa 2004. # Tried to note which Suchenwirth subroutines # were mostly unchanged. # 5/7/5 words per line is # setting for Japanese Haiku poetry. # Other procedures working # on windows98 and old PC. # from goldshell7 on 10jun2006.} return $text_texas;} proc poemsorts {poetsey} { global liner #set liner [list q w e r] # alpha liner for test purposes set liner [list aaaa bbbb cccc dddd eeee fffff gggg hhhh ] set liner [list ] set adjective_poetic { {red} {sad} {blue} {blue} {glad} {glad} {deep} {black} {wild } { green } {pale } {bright} {rough } {gray } {brown } {long} {high } {thin} {brown } {lush} {dry } {poor} {lone } {far} {flat } {broad} {thick } {hard} {flat } {broad} {cool } {hard} } set noun_subject { cat mouse reed { pear } {quince } { peach } {hare } {bird} { smoke } { rain} { ice} { snow} {cloud} { home} { flower } {sky} {rice} { pine} { mist} {door} {wind} { cricket} { year } {moon} {crane } {grass } {rose} { ink} {thaw} { bloom } {lake} { cedar } {dusk} { autumn } {stone} { dawn} {stream} { tree } {heart} { boat} {grief} { tree } {boat} { boat} {rock} {town} {tear} {pool} {silk} {deer} {song} {barge} {moss} {night} {gate} {fence} {dove} {dream} {frost} {peace} {shade} {ghost} {road } {path} {root} {horse} {eve } {sound} {sleep} {leaves} {sea } {sail} {peak} {stem} {field} {wave} {slope} {bark} {crest} {weed} {moth} {wasp} {pond} {soil} {snail} {worm} {ant} {kelp} {cave} {month} {head} {jade} {branch} {bone} {head} {smile} {pea} {bone} {head} {smile} {elm} { morn} {carp} {nest} {oak} { bone} {perch} {breeze} mount plum storm hill } set verb_transitive {falls {snow} { burns} { flips} { flys } {lies} { walk } {flow } {fall} {fly} {know } {come} { meet } { drift} {shine } {soak} { cry } {dance} { lost} {cheer} {float } {dance} {roost} { move} { fade} { loves} {sleeps} {move} {takes } {sail} {sits} {leaps} {sits } {sit} {sits} {leaps} {grows } {waits} {loses} {hears} {wants } {watch} } set noun_objective { cloud {old home} flower { sky } rice {cricket} } set silly_propostion { for {by} towards { to } at {bygone} {to} {in} {in } {to } {to} {in} {fore } through } set poetsey "The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic] , [? $adjective_poetic] ,[? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject]," lappend liner $poetsey lappend liner $poetsey lappend liner $poetsey set poetsey $liner return $poetsey } #-- Activate F-keys (optional): bind . { exit} bind . {destroy .} bind . { set colorground LightBlue1; \ .c configure -bg $colorground} bind . {set colorground Bisque;.c \ configure -bg $colorground } bind . {set backcolor [lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 \ SlateBlue3 RoyalBlue1 SteelBlue2 \ DeepSkyBlue3 LightBlue1 DarkSlateGray1 \ Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \ Yellow1 IndianRed1 IndianRed2 Tan1 \ Tan4 gray}]; set colorground $backcolor; .c configure -bg $colorground } bind . {set backcolor [lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 \ SlateBlue3 RoyalBlue1 SteelBlue2 \ DeepSkyBlue3 LightBlue1 DarkSlateGray1 \ Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \ Yellow1 IndianRed1 IndianRed2 Tan1 \ Tan4 gray}]; set colorground $backcolor; .c configure -bg $colorground } bind . {set backcolor [lpick { Bisque Aquamarine }]; set colorground $backcolor; .c configure -bg $colorground } bind . {set backcolor [lpick {AntiqueWhite3 Bisque}]; set colorground $backcolor; .c configure -bg $colorground } bind . {set backcolor [lpick {SeaGreen1 Bisque}]; set colorground $backcolor; .c configure -bg $colorground } bind . {set backcolor [lpick {AntiqueWhite3 Bisque}]; set colorground $backcolor; .c configure -bg $colorground } # some words/meanings from 8th century poems # english articles dumped for asterisk # reduced volcabulary array set en_chinese { The * the * bird naio water shui cloud yun smoke yan come lai rain yu red hong sad nanguo blue lan glad gaoxing deep shen black hei wild yesheng green luse pale cangbai bright ming rough buping gray cangbai brown zongse long chang high gao thin shou lush duo dry gan poor qiong lone dandu far yuan flat ping broad kuan thick hou hard ying cool liang cat mao mouse laoshu reed cao pear li quince yingtao peach tao hare tuzhu bird naio smoke yan rain yu ice xue snow xue cloud yun home home flower hua sky tian rice mi pine song mist wu door men wind feng cricket kunchong year nian moon yue crane niao grass cao rose meigui ink moshui thaw thaw bloom hua lake he cedar song dusk heitian autumn qiu stone shi dawn liming stream he tree shu heart xin boat zhou grief nanguo rock shi town zhen tear lei pool chitang silk si deer lu song cedar barge bochuan moss lu night ye gate men fence liba dove naio dream meng frost shuang peace heping shade si ghost ti road li path xiaodao root gen horse ma eve wan sound sheng sleep shuimian leaves shu sea hai sail fan peak peak stem stem field yuan wave bolang slope shan bark shu crest xia weed zhiwu moth kunchong wasp huangfeng pond chitang soil du snail wongnui worm wongnu ant kunchong kelp haizhiwu cave shandong month yue head tou jade yu branch shuzhi bone gu smile xiao pea xiaodou elm shu morn zaochen carp yu nest chang oak shu perch yu breeze xiaofeng mount shan plum lizi storm fengbao hill shan falls liu burns huo flips zhou flys fei lies zhi walk zou flow liu fall liu fly fei know zhu come lai meet meet drift zhou shine guang soak shui cry ti dance tiaowu lost milu cheer guoxing float piao roost chang move zhou fade fade loves ai sleeps shuimian takes you sits zuo leaps tiao sit zuo grows sheng waits zhou loses loses hears ting wants yao watch kan old lao for wei by yu towards zai to ge at zai bygone yu in zai } array set en_romanji { The * the * red aka sad kanashii blue aoi_ao glad glad deep deep black kuroi wild yasee green midori-iro pale usui bright akarui_taiyoo rough rough gray guree brown chairo long long high takai thin thin lush subishii dry kawaite_iru poor bimboo lone subishii far far flat flat broad broad thick thick hard hard cool cool cat cat mouse mouse reed reed pear pear quince quince peach peach hare hare bird bird smoke smoke rain rain ice ice snow snow cloud cloud home home flower flower sky sky rice rice pine pine mist mist door door wind wind cricket cricket year year moon moon crane crane grass grass rose rose ink ink thaw thaw bloom bloom lake lake cedar cedar dusk dusk autumn autumn stone stone dawn dawn stream stream tree tree heart heart boat boat grief grief rock rock town town tear tear pool pool silk silk deer deer song song barge barge moss moss night night gate gate fence fence dove dove dream dream frost frost peace peace shade shade ghost ghost road road path path root root horse horse eve eve sound sound sleep sleep leaves leaves sea sea sail sail peak peak stem stem field field wave wave slope slope bark bark crest crest weed weed moth moth wasp wasp pond pond soil soil snail snail worm worm ant ant kelp kelp cave cave month month head head jade jade branch branch bone bone smile smile pea pea elm elm morn morn carp carp nest nest oak oak perch perch breeze breeze mount mount plum plum storm storm hill hill falls falls burns burns flips flips flys flys lies lies walk walk flow flow fall fall fly fly know know come come meet meet drift drift shine shine soak soak cry cry dance dance lost lost cheer cheer float float roost roost move move fade fade loves loves sleeps sleeps takes takes sits sits leaps leaps sit sit grows grows waits waits loses loses hears hears wants wants watch watch old old for for by by towards towards to to at at bygone bygone in in The * the * } proc phonesort2 { list } { #KBK (14 February 2001) foreach name $list { regsub {Ma?c ?([A-Z])} $name {M_\1} key lappend list2 [list $key $name] } foreach pair [lsort -index 0 -ascii $list2] { lappend list3 [lindex $pair 1] } return $list3 } global baseline global en_chinese set topa [stringxxx [poemsorts "aaaaa"]] ; .wxx insert 1.0 $topa; .wxx insert 1.0 [lcount $topa]; set baseline [list man goose foot woman dives]; foreach oppie $baseline { set letter "string"; set letter [string range $oppie end end]; set letterx "s"; if { $letter != $letterx } { lappend baseline [plural $oppie]; } else { lappend baseline $oppie; } } .wxx insert 1.0 " $baseline xxx"; .wxx insert 1.0 "man xxx [plural "man"] xxx"; set baseline [list water bird smoke come]; .wxx insert 1.0 "xxx $baseline xxx"; set stringj [list ]; set stringj [translationx "water bird smoke come" en_chinese] .wxx insert 1.0 $stringj ; .wxx insert 1.0 "xxxx trans [translationx $baseline en_chinese]" ; set listxxx [list MacDonald McArthur McEwan Lyttle Mabbs Jones] .wxx insert 1.0 "xxxx sort xxxx $listxxx xxx [phonesort2 "$listxxx"]" ; proc down(canvas) {w x y} {global colorground; set colorground $::Fill; \ .c configure -bg $colorground} proc move(canvas) {w x y} {} proc down(exit) {w x y} { exit; } proc move(exit) {w x y} {} proc down(help) {w x y} { set tile [expr {int(rand()*1000000000.)}] set poof "help" ; global helpx if {$helpx > 0} {return} set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set base "help"; set helpx 0; set baseline [helptext $base]; #if {![info exists L]} {set L {}} set ::ID [$w create text $x $y -text $baseline -tags $tagx -fill $::Fill ] set helpx 1; } proc move(help) {w x y} {} proc down(clear) {w x y} { global helpx $w delete "all"; set helpx 0; } proc reset {w} { global helpx $w delete "all" set helpx 0; } proc down(hairs) {w x y} { global helpx if {$helpx > 0} {return} set tile [expr {int(rand()*1000000000.)}] set poof "cross hair" ; set maximumxxxx 400 set maximumyyyy 400 set middlexxxx [expr { (400 + $x)/ 2 }] set middleyyyy [expr { (400 + $y)/ 2 }] set xx1 20; set xx2 15; set yy1 20; set yy2 10; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set base "help"; set helpx 0; set baseline $base; #if {![info exists L]} {set L {}} #set ::ID [$w create text $x $y -text $baseline -tags $tagx -fill $::Fill ] set ::ID [ $w create line $x $middleyyyy $maximumxxxx $middleyyyy -tags $tagx] set ::ID [$w create line $middlexxxx $y $middlexxxx $maximumyyyy -tags tagx ] bind ::ID [ $w create line $x $middleyyyy $maximumxxxx $middleyyyy -tags $tagx][$w create line $middlexxxx $y $middlexxxx $maximumyyyy -tags tagx ] set helpx 1; } proc move(hairs) {w x y} { set ::ID [$w find withtag hair ] $w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y] set ::X $x; set ::Y $y } proc down(zone) {w x y} { global helpx if {$helpx > 0} {return} set xx1 20; set xx2 15; set yy1 20; set yy2 10; set tile [expr {int(rand()*1000000000.)}]; set poof "zone" ; set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y]; set base "help"; #$w create rect 50 10 100 60 -tags "box" #$w create rect $xx1 $yy1 $xx2 $yy2 -tags "box" set ::ID [$w create rect $x $y [expr { $x + $xx1 }] [expr { $y + $yy1 }] -tags $tagx -fill $::Fill ] set helpx 1 } proc move(zone) {w x y} {} #end of deck #end of deck #end of deck #end of deck #end of deck #end of deck #end of deck #end of deck #end of deck ---- ''Code Reuse'': Tcl's package system makes it easy to write code that can be reused. Many other people have made their code available for reuse. ---- ''Q. from goldshell7'':I am trying to load a feature or subroutine "select&pair_then_die" , where one selects two equal pieces in color,text, or tags. If the two pieces are equal , both pairs disappear from the screen ( or to a hockey safety zone on the screen). Kind of like the old Microsoft Mahjong game, which was an elimination process of equal pairs. ---- ''A. received'' You should make up unique tags and assign them to both the rect and the text inside it, and for convenience, another one for the text only. incr n $w create rect ... -tags [list mv obj$n] $w create text ... -tags [list mv obj$n text$n] For moving, specify the obj.. tag so both move together. To get the tags of the current selection, try something like: set tags [$w gettags current] In the returned list, locate the tag with the obj number, e.g. like this regexp {obj(\d+)} $tags -> number You can retrieve the text by giving the tag set text [$w itemcget text$number -text] end of record. ---- ''Q. from goldshell7'':28jul2006,would like selected tiles to have a red, blue, or colored outline. However commented ".c itemconfigure tile_number -outline red" colored outine but reverts text font to vertical arranged text. Maybe somebody can figure how to keep text horizontal. ---- # test & extra chinese pinyin volcabulary # acrobatics zájì # acting yanchu # advance jìn # after ránhòu # after yihòu # afternoon xiàwu # again zài # all dou # also ye # although sui # always zongshì # among mínjian # and hé # appearance xiàng # appearance xiàng # approximately dàyue # army yíng # as rú # ask ràng # ask wèn # aspect guo # assist bang # assistance bangzhù # automatic zìdòng # autumn qiutian # axle zhóu # ballast_trackbed_ suìshí # ban shàng # ban yì # bank yínháng # banker_fire buji # basketball lánqiú # be shì # be_able huì # beat da # because yinwèi # beef niúròu # before qián # begin kaishi # between jian # bill dan # bill fapiào # birthday shengrì # blow gua # blow gua # bó Shànghai # board ban # bogie zhuanxiàngjià # book shu # book shu # both liang # both liang # box xiang # boxcar péngche # brake zhá # branch_line zhixiàn # bridge qiáo # bridge qiáo # bridge qiáo # bright cai # bright cai # brilliant jingcai # brother_younger dìdi # brothers xiongdì # bu duì # bù pao # builder_plate míngpái # bus gonggòngqìche # business míngpiàn # business shengyì # business yè # business_card míngpiàn # busy máng # but dànshì # but keshì # buy mai # caboose shouche # call jiào # can hòu # can ke # can néng # capacity dù # carriage kèche # carriage kèche # cash duì # category shu # catenary jiàkongshì_jiechùwang # certainly bì # chinese chén # chinese hànyu # chinese hànzì # class xiàkè # classics jing # clear qing # clear qingchu # climate qìhòu # clip jia # clock zhong # close jìnnear # coal méi_tàn # coalmine méikuàng # cold leng # college dàgài # colour_light_signal sèdeng_xìnhàoji # come lái # commerce shang # company gongsi # compare bijiào # competition bisài # complete zhou # continue jìxù # convenient fangbiàn # conveniently shùnbiàn # convert duìhuàn # cordial rèqíng # correct búcuò # correct rán # country guó # craft shouyì # cross_tie guizhen # curve quxiàn # cutting lùqiàn # dance wu # dance wudao # daughter nuér # day tian # deep shen # deliver jiao # depot jiwùduàn # device zhuangzhì # dialect yu # dictionary cídian # diesel cháiyóu # diesel_electric_locomotiv diànchuándòng_nèirán_jiche # diesel_hydraulic_locomoti yèlìchuándòng_nèirán_jiche # diesel_locomotive nèirán_jiche # different chà # difficult nán # difficult nán # dining_car canche # direct zhíjie # dish cài # display bai # distinct chu # divide fen # do duànliàn # do yíngyè # do zuò # domestic guónèi # double_track fùxiàn # dragon lóng # draw chou # drink he # driver siji # dumplings jiaozi # dynasty yuán # early xian # early xian # east dong # east # eat bao # eat chi # elder gege # elder jiejie # electric_locomotive diànlì_jiche # electricity diàn # electrification diànqìhuà # embankment lùdi # empty kong # end mò # energy jing # English yingyu # enter jìnadvance # especially tèbié # etween jian # even entirely # evening bàngwan # every mei # every meitian # everyday jingcháng # express_train gaosù # express_train kuàisù # express_train tèkuài # express_train kuàiche # extremely jí # eye mù # family jia # far yuan # fast kuài # father bàba # father fùmu # festival jié # fill man # Finland Fenlán # fire huo # first xiàn # fish yú # fishplate yúweiban # flat píng # fluent liúlì # football zúqiú # for gei # for gei # forecast yùbào # foreign wàiyu # fowl ji # frame jià # freight_car huòche # freight_train huòche # French fayu # friend péngyou # from cóng # from zì # fruit guo # fruit shuiguo # fuel cháiyóu # gas qì # gauge biao # generous dàfang # German déyu # Germany déguó # get jiéhun # gether yìqi # give qingkè # glut chán # go chu # go chuqù # go dào # go shàngban # go wang # gondola changche # gong bàn # gong gù # good hao # goodbye zàijiàn # goods_train huòche # goods_van péngche # gradient podù # graduation bìyè # guai kidnap # guan can # guàn xí # guards_van shouche # guest kèrén # habit xíguàn # half bàn # ham huotui # happy gaoxìng # happy kuàilè # happy lè # hard_sleeper yìngwò # have you # heat rè # heat rè # heater nuanqì # helper buji # high gao # hill shan # hog zhu # hot là # hot rè # house lóu # how duodà # how ji # how zenmeshuo # how_old duodà # however dànshì # hundred bai # I wo # ice bingqiú # if rúguo # if yàoshì # import jìnchukou # impression yìnxiàng # inn diàn # joyous huan # kick ti # kidnap guai # kind zhong # know liao # language wén # last shànggeyuè # leave lí # leave líkai # leave liú # length cháng # letter xìn # level_crossing dàokou # library túshuguan # light_rail qinggui # like xihuan # listen ting # loco_shed jiwùduàn # locomotive huochetóu # long jiu # look canguan # look see # lose yí # lóu Zhong # lower di # lunch wufàn # machine ji # machine ji # máfan trouble # main_line ganxiàn # make dadiànhuà # manager jingli # map dìtú # marshalling_yard bianzuchang # may keyi # may qingwèn # measure mi # meat ròu # mechanism qì # mechanism jigòu # medical yi # metering_device biao # middle zhong # might kenéng # minute fenzhong # mister xiansheng # mixed zá # mixed_train kèhuòhùnhé_lièche # money bì # month yuè # more yuèláiyuè # morrow míngtian # mother mama # mother ma # mountain shan # move gandòng # movement yùndòng # Mr. xiansheng # Mrs. tàitai # multiple_track fùxiàn # multiple_unit_train dòngchezu # my wode # name_personal míngzi # narrow_gauge_railway xiaohuoche # narrow_gauge_railway zhaigui_tielù # near jìn # necessary bìyào # negative méi # next míngnián # nice liángkuai # no búguò # no nali # Nokia Nuòjíyà # noon zhongwu # north bei # not bù # not bùshao # now xiànzài # number hào # observe obey # office bàngongshì # often cháng # oil yóu # one yi # one's xìng # only shiyou # only zhi # open_wagon changche # opportunity jihuì # ordinary píngcháng # ordinary_passenger_train putongche # ordinary_stopping_train putongche # ought gai # outside wài # overhead_wires jiàkongshì_jiechùwang # overpraise guòjiang # ox niú # pair duì # panfry chaosaute # pang ping # pantograph shòudiàngong # pass chuán # passenger lukè # passenger_train kèche # people mín # person rén # physical tiyù # pipe guan # plan dasuàn # plate ban # platform zhàntái # play wán # please qing # please qingbiàn # plural men # points dàochà # porch láng # pork zhuròu # present jièshào # profound shenkè # program jiémù # pronunciation fayin # quarterhour kè # question ne # rail ganggui # railroad tielù # railway tiedào # railway_track guidào # rain xiàyu # rank deng # read niàn # real zhen # really shízài # receipt fapiào # receive shou # receive zhaodài # regard suàn # regard suàn # regiment tuán # regret hàn # regret yíhàn # release fàng # release fàng # rén kè # rest xiuxi # return huí # return zhao # ride qí # right yòubian # road_formation dàochuáng # roadbed lùji # roadbed dàochuáng # roughly dàgài # roughly dàgài # route lù # run paobù # safety anquán # salad sèla # same yìban # saute chao # school xuéxiào # seat zuòwei # seat_hard yìngzuò # seat_soft ruanzuò # section kuan # see jiàn # self zìji # sell mài # semaphore_signal bìban_xìnhàoji # send fa # should gai # shrimp xia # shutter chuang # si gong # Sichuan Sìchuan # side cè # signal xìnhào_ji # silk sichóu # single_track danxiàn # sister_younger mèimei # sisters jiemèi # sit zuò # skill jì # sleeper tie_guizhen # sleeping_berth wòpù # slow màn # smoke chouyan # smoke yan # snow xiàxue # soft_sleeper ruanwò # son érzi # sorry_I_am duìbuqi # south nán # spare kòngr # speak shuo # spicey là # spoken kouyu # spring chuntian # stamp yìn # standard biaozhun # standard_gauge biaozhun_guijù # start chufa # station zhàn # station zhàntái # station huoche_zhàn # stay dai # steam zhengqì # steam_locomotive zhengqì_jiche # straight zhí # streetcar yougui_diànche # structual de # student xuésheng # study xué # suàn da # suburban_train shìjiao_lièche # subway dìtie # summer xiàtian # sunny qíngtian # Sweden Ruìdian # swim yóuyong # switch dàochà # table zhuozi # take qu # talk tán # talk tán # tank_car guànche # tanker guànche # taste cháng # tasty haochi # tasty haochi # tea chá # teach jiao # teacher laoshi # temple tiantán # tennis wangqiú # terms search # thank_you xièxie # that nà # the zuì # there have # this jinnián # this zhè # through_train zhídá # through_train zhítong_che # ticket chepiào # time shíhou # timetable shíkèbiao # train huoche # train huoche # train lièche # tram yougui_diànche # tread dao # trip luyóu # trolley_bus wúgui_diànche # truck_rail changche # tunnel suìdào # turntable zhuanpán # unable bùliao # underground_railway dìtie # understand dong # understand dong # unit kuàiyuan # university dàxué # useful youyòng # vacation jià # valve fá # vegetables shucài # vehicle che # very hen # volleyball páiqiú # wagon_car huòche # walk yóu # walk zou # want yào # warm nuan # water shui # water shui # water_crane shuihè # water_tower shuita # we women # we zánmen # weather tianqì # week xingqi # weekend zhoumò # welcome huanyíng # welcome yíng # west xi # west xi # Western-style xican # what shénme # what shénmeshíhou # what's guìxìng # wheel lún # where nali # which na # whistle míng # why wèishénme # wind feng # window chuangkou # wine jiu # wish zhù # with gen # word huà # work gongzuò # worksplate míngpái # write xie # year nián # yesterday zuótian # you_formal nín # zero líng # zhuangzhì # above shang # arrive daoda # author zuiozhe # bank yinhang # bathtub lahncheo # battery dianchi # bay haiwan # cat mao # cloud yun # come lai # girl nuer # he ta # horse ma # it ta # one yi # rain yu # smoke yan # two lian # water shui # aches tong # add jia # admiral haijunshang # air kongqi # airplane feiji # airport feijichang # alley hutong # apart lu # apple pingguo # apricot xing # arm gebo # armchair fushiuyi # arrow jian # ask wen # asparagus lusun # atlas dituji # attic gelou # autumn qiu # axe futou # axle lunzhou # baby yinger # bag bao # ball qiu # ballet baleiwu # barge bochuan # barley damai # barracks yingfang # beach haitan # bead jhuzi # beak hui # bean dou # bear xlong # beard huzi # beautiful meili # bed chuang # beehive fengxiang # beer pijiu # bell leeng # big da # bike zixingche # bird naio # biscuit binggan # black hei # blanket tanzi # blonde jinse # blood xue # bloom hua # blossom hua # blue lan # boat zhou # bone gu # book shu # bottle pingzi # bow gong # branch shuzhi # bright ming # broad kuan # brown zongse # by yu # bygone yu # carriage che # cup bei # cut duan # dance tiaowu # dark hei # deer lu # door men # dream meng # dry gan # duck ya # eve wan # fall liu # field yuan # fire huo # first xian # flat ping # frost shuang # gate men # goose yan # grass cao # green luse # guang shine # hard ying # head tou # hear ting # heart xin # high gao # hill shan # in zai # lamp deng # long chang # look kan # moon yue # night ye # not bu # open kai # path xiaodao # pear li # pearl zhenzhu # pine song # red hong # rice mi # river jiang # rock shi # root gen # sand sha # sea hai # see kan # she ta # shore an # sit zuo # sky tian # small xiao # snow xue # song ge # sound sheng # star xing # stove lu # sun ri # tear lei # The * # the * # to ge # tomarrow mingtian # town zhen # wants yao # wasp huangfeng # watch kan # white bai # wide kuan # wild yesheng # wind feng # year nian # yellow huang # cave shandong # cedar song # dawn liming # jumps tiao # leaps tiao # lone dandu # moth kunchong # rose meigui # soak shui # tree shu # walk zou # wave bolang # ant kunchong # at zai # bark shu # before zai # breeze xiaofeng # burns huo # carp yu # cheer guoxing # cherry yingtao # cool liang # crane niao # crest xia # cricket kunchong # cry ti # deep shen # deer lu # dove naio # drift zhou # drifts zhou # dusk heitian # elm shu # falls liu # far yuan # fence liba # flips zhou # float piao # flow liu # flower hua # fly fiji # flys fiji # for wei # fore zai # ghost ti # glad gaoxing # gray cangbai # grief nanguo # grows sheng # hare tuzhu # has you # hear ting # hears ting # ice xue # ink moshui # insect kunchong # is zhi # jade yu # kelp haizhiwu # know zhu # lake he # leaf shu # leaves shu # lies zhi # lost milu # loves ai # lush duo # mist wu # month yue # morn zaochen # morning zaochen # mosquito wenzi # moss lu # moss lu # mount shan # mouse laoshu # move zhou # move zhou # nest chang # oak shu # pale cangbai # pea xiaodou # peace heping # peach tao # perch yu # plant zhiwu # plum lizi # pond chitang # pool chitang # poor qiong # quince yingtao # rabbit tuzhu # reed cao # river he # road li # roost chang # rough buping # sad nanguo # sail fan # salt yan # serpent she # shade si # shine zhaoyao # shoe xie # silk si # sits zuo # sleep shuimian # sleeps shuimian # slope shan # smile xiao # snail wongnui # snake she # soil du # stone shi # storm fengbao # strean he # takes you # tea chai # thick hou # thin shou # through zai # towards zai # waits zho # waits zhou # weed zhiwu # worm wongnu # zero ling # 0 ling # 1 yi # one yi # 2 er # 3 san # three san # 4 si # four si # 5 wu # five wu # 6 liu # six liu # 7 ci # seven ci # 8 ba # eight ba # 9 jiu # nine jiu # 10 shi # ten shi # 11 shi_yi # eleven shi_yi # twelve shi_er # 20 er_shi # twenty er_shi # 21 er_shi_yi # twenty_two er_shi_yi # 100 bai_bye_yi_bai # hundred bai_bye_yi_bai # 300 san_bai # three_hundred san_bai # 1000 cian # thousand cian # 10000 yi_wan # ten_thousand yi_wan # 100000 shi_wan # hundred_thousand shi_wan # 1000000 yi_bai_wan # thousand_thousand yi_bai_wan # above shang # aches tong # add jia # admiral haijunshang # air kongqi # airplane feiji # airport feijichang # alley hutong # ant kunchong # apart lu # apple pingguo # apricot xing # arm gebo # armchair fushiuyi # arrive daoda # arrow jian # ask wen # asparagus lusun # at zai # atlas dituji # attic gelou # author zuiozhe # autumn qiu # axe futou # axle lunzhou # baby yinger # bag bao # ball qiu # ballet baleiwu # bank yinhang # barge bochuan # bark shu # barley damai # barracks yingfang # bathtub lahncheo # battery dianchi # bay haiwan # beach haitan # bead jhuzi # beak hui # bean dou # bear xlong # beard huzi # beautiful meili # bed chuang # beehive fengxiang # beer pijiu # before zai # bell leeng # big da # bike zixingche # bird naio # biscuit binggan # black hei # blanket tanzi # blonde jinse # blood xue # bloom hua # blossom hua # blue lan # boat zhou # bone gu # book shu # bottle pingzi # bow gong # branch shuzhi # breeze xiaofeng # bright ming # broad kuan # brown zongse # burns huo # by yu # bygone yu # carp yu # carriage che # cat mao # cave shandong # cedar song # cheer guoxing # cherry yingtao # cloud yun # come lai # cool liang # crane niao # crest xia # cricket kunchong # cry ti # cup bei # cut duan # dance tiaowu # dark hei # dawn liming # deep shen # deer lu # deer lu # door men # dove naio # dream meng # drift zhou # drifts zhou # dry gan # duck ya # dusk heitian # elm shu # eve wan # fall liu # falls liu # far yuan # fence liba # field yuan # fire huo # first xian # flat ping # flips zhou # float piao # flow liu # flower hua # fly fiji # flys fiji # for wei # fore zai # frost shuang # gate men # ghost ti # girl nuer # glad gaoxing # goose yan # grass cao # gray cangbai # green luse # grief nanguo # grows sheng # guang shine # hard ying # hare tuzhu # has you # he ta # head tou # hear ting # hear ting # hears ting # heart xin # high gao # hill shan # horse ma # ice xue # in zai # ink moshui # insect kunchong # is zhi # it ta # jade yu # jumps tiao # kelp haizhiwu # know zhu # lake he # lamp deng # leaf shu # leaps tiao # leaves shu # lies zhi # lone dandu # long chang # look kan # lost milu # loves ai # lush duo # mist wu # month yue # moon yue # morn zaochen # morning zaochen # mosquito wenzi # moss lu # moss lu # moth kunchong # mount shan # mouse laoshu # move zhou # move zhou # nest chang # night ye # not bu # oak shu # one yi # open kai # pale cangbai # path xiaodao # pea xiaodou # peace heping # peach tao # pear li # pearl zhenzhu # perch yu # pine song # plant zhiwu # plum lizi # pond chitang # pool chitang # poor qiong # quince yingtao # rabbit tuzhu # rain yu # red hong # reed cao # rice mi # river jiang # river he # road li # rock shi # roost chang # root gen # rose meigui # rough buping # sad nanguo # sail fan # salt yan # sand sha # sea hai # see kan # serpent she # shade si # she ta # shine zhaoyao # shoe xie # shore an # silk si # sit zuo # sits zuo # sky tian # sleep shuimian # sleeps shuimian # slope shan # small xiao # smile xiao # smoke yan # snail wongnui # snake she # snow xue # soak shui # soil du # song ge # sound sheng # star xing # stone shi # storm fengbao # stove lu # strean he # sun ri # takes you # tea chai # tear lei # The * # the * # thick hou # thin shou # through zai # to ge # tomarrow mingtian # towards zai # town zhen # tree shu # two lian # waits zho # waits zhou # walk zou # wants yao # wasp huangfeng # watch kan # water shui # wave bolang # weed zhiwu # white bai # wide kuan # wild yesheng # wind feng # worm wongnu # year nian # yellow huang # optional japanese romanji words array set en_romanji { red aka sad kanashii blue aoi_ao glad glad deep deep black kuroi wild yasee green midori-iro pale usui bright akarui_taiyoo rough rough gray guree brown chairo long long high takai thin thin lush subishii dry kawaite_iru poor bimboo lone subishii far far flat flat broad broad thick thick hard hard cool cool cat cat mouse mouse reed reed pear pear quince quince peach peach hare hare bird bird smoke smoke rain rain ice ice snow snow cloud cloud home home flower flower sky sky rice rice pine pine mist mist door door wind wind cricket cricket year year moon moon crane crane grass grass rose rose ink ink thaw thaw bloom bloom lake lake cedar cedar dusk dusk autumn autumn stone stone dawn dawn stream stream tree tree heart heart boat boat grief grief rock rock town town tear tear pool pool silk silk deer deer song song barge barge moss moss night night gate gate fence fence dove dove dream dream frost frost peace peace shade shade ghost ghost road road path path root root horse horse eve eve sound sound sleep sleep leaves leaves sea sea sail sail peak peak stem stem field field wave wave slope slope bark bark crest crest weed weed moth moth wasp wasp pond pond soil soil snail snail worm worm ant ant kelp kelp cave cave month month head head jade jade branch branch bone bone smile smile pea pea elm elm morn morn carp carp nest nest oak oak perch perch breeze breeze mount mount plum plum storm storm hill hill falls falls burns burns flips flips flys flys lies lies walk walk flow flow fall fall fly fly know know come come meet meet drift drift shine shine soak soak cry cry dance dance lost lost cheer cheer float float roost roost move move fade fade loves loves sleeps sleeps takes takes sits sits leaps leaps sit sit grows grows waits waits loses loses hears hears wants wants watch watch old old for for by by towards towards to to at at bygone bygone in in acorn donguri add tasu afraid kowai africa afurika agate menou ain_t jyanai airplane hikooki alley roji alligator arigeta alligator wani alphabet arufabetto also mo always itsumo ambulance kyukyusha anchor ikari angel tenshi angelfish enzerufisshu angle kakudo angry_mad ikatte_iru angry_mad okotte_iru animal doubutsu ankle ashikubi ant ari antartica nankyoku_tairiku antelope kamoshika ape saru apple ringo apron epuron aquarium suiso arch aachi archer syasyu are_you _ok arithmetic_problem sansu_no_mondai arm ude armchair hijikake_isu arrow ya art e artichoke aatichooku artist gaka asia ajia asleep nemuru assasin hitokiri asteroid showakusei astronaut uchuu_hikushi at ni athlete supotsuman atom genshi attention kiyo_tsuke australia osutoraria autumn_fall aki avacado abocado awesome saiko ax ono baby akanbo baddie mazui bag fukuro ball buru ballerina bareriina balloon gomu_fuusen bamboo_shoots takenoko bamboo_sword shinai banana banana barley mugi barn naya barrel taru baseball yakyu_boru baseball_bat batto baseball_cap boushi basket basuketto basket zaru bat_animal kumori bathing_swimming_s mizugi bathroom mitarai bathroom otearai bathtub yubune beach hama beach kaigan beak kuchibushi bear kuma beautiful kirei beautiful utsukushii beaver biiba bed beddo bee hachi bee_hive mitsubachi_no_su beehive hachi_no_su beetle kabutomushi begin_start hajime bell kane bellflower kikyo bicycle jitensha bird tori black kuro_kuroi blackbird burakku_berii blocks tsumiki bloomers bulma blouse burausu boat buto boat fune body karada bon_appetite itadakimasu bone hone book hon bookcase honbako boots butsu bottle bin bouquet hanataba bow chomusubi bowl boru box hako boy shonen boy bozu bracelet buresuretto brain nu brat gaki bread pan breakfast choshoku breast oppai bright ake broccoli burokkorii broom hoki brown chairo bucket baketsu buckwhe soba buffalo buffaru bug mushi building tatemono bull ushi bulldozer buruduzaa bun ban burdockroot gobo burn moeru bus basu but demo butter bataa butterfly cho button botan bye_parting_greeti ja_ne_ja cab takushii cabbage kyabetsu cactus saboten cake keeki calender karenda camel rakuda camera kamera camp kyampu_suru camper kyanpingu_ka can kanzume canary kanaria candle rusoku candy kyande cane tsue canoe kanue canyon kureyon car jidusha car kuruma carnation kaaniishon carpet kaapeto carrot ninjin cart niguruma castle shiro cat neko caterpiller kemushi cave hora_ana cave drawings celary serori cell_anatomy saibu chain kusari chair isu cheap chinke cheek_anatomy hoho cheese chiizu cherry sakurambo cherry_blossom flower chest mune chick hiyoko chicken niwatori child kodomo chimpanzee chimpanjii chin ago chopstick hashi church kyokai circle maru circus sakasu city toshi clam hamaguri claw tsume clay nendo clock tokei clothes fuku cloud kumo clown piero coat uwagi cobweb kumo coffin hitsugi coin koka color iro comb kushi comet suisei compass konpasu computer konpyuta cone ensuikei cookie kukkii cool kakoii cool suge coral sango corn tomorokoshi corner katsumi cotton_candy watagashi couch sofa cow meushi crab kani crane tsuru crap kuso crater kureta crazy_insane reijuu crocodile waniacorn donguri add tasu afraid kowai africa afurika agate menou ain_t jyanai airplane hikooki alley roji alligator arigeta alphabet arufabetto also mo always itsumo ambulance kyukyusha anchor ikari angel tenshi angelfish enzerufisshu angle kakudo angry_mad ikatte_iru angry_mad okotte_iru animal doubutsu ankle ashikubi ant ari antartica nankyoku_tairiku antelope kamoshika ape saru apple ringo apron epuron aquarium suiso arch aachi archer syasyu are_you _ok arithmetic_problem sansu_no_mondai arm ude armchair hijikake_isu arrow ya art e artichoke aatichooku artist gaka asia ajia asleep nemuru assasin hitokiri asteroid showakusei astronaut uchuu_hikushi at ni athlete supotsuman atom genshi attention kiyo_tsuke australia osutoraria autumn_fall aki avacado abocado awesome saiko ax ono baby akanbo baddie mazui bag fukuro ball buru ballerina bareriina balloon gomu_fuusen bamboo_shoots takenoko bamboo_sword shinai banana banana barley mugi barn naya barrel taru baseball yakyu_boru baseball_bat batto baseball_cap boushi basket basuketto basket zaru bat_animal kumori bathing_swimming_s mizugi bathroom mitarai bathroom otearai bathtub yubune beach hama beach kaigan beak kuchibushi bear kuma beautiful kirei beautiful utsukushii beaver biiba bed beddo bee hachi bee_hive mitsubachi_no_su beehive hachi_no_su beetle kabutomushi begin_start hajime bell kane bellflower kikyo bicycle jitensha bird tori black kuro_kuroi blackbird burakku_berii blocks tsumiki bloomers bulma blouse burausu boat buto boat fune body karada bon_appetite itadakimasu bone hone book hon bookcase honbako boots butsu bottle bin bouquet hanataba bow chomusubi bowl boru box hako boy shonen boy bozu bracelet buresuretto brain nu brat gaki bread pan breakfast choshoku breast oppai bright ake broccoli burokkorii broom hoki brown chairo bucket baketsu buckwhe soba buffalo buffaru bug mushi building tatemono bull ushi bulldozer buruduzaa bun ban burdockroot gobo burn moeru bus basu but demo butter bataa butterfly cho button botan bye_parting_greeti ja_ne_ja cab takushii cabbage kyabetsu cactus saboten cake keeki calender karenda camel rakuda camera kamera camp kyampu_suru camper kyanpingu_ka can kanzume canary kanaria candle rusoku candy kyande cane tsue canoe kanue canyon kureyon car jidusha car kuruma carnation kaaniishon carpet kaapeto carrot ninjin cart niguruma castle shiro cat neko caterpiller kemushi cave hora_ana cave drawings celary serori cell_anatomy saibu chain kusari chair isu cheap chinke cheek_anatomy hoho cheese chiizu cherry sakurambo cherry_blossom flower chest mune chick hiyoko chicken niwatori child kodomo chimpanzee chimpanjii chin ago chopstick hashi church kyokai circle maru circus sakasu city toshi clam hamaguri claw tsume clay nendo clock tokei clothes fuku cloud kumo clown piero coat uwagi cobweb kumo coffin hitsugi coin koka color iro comb kushi comet suisei compass konpasu computer konpyuta cone ensuikei cookie kukkii cool kakoii cool suge coral sango corn tomorokoshi corner katsumi cotton_candy watagashi couch sofa cow meushi crab kani crane tsuru crap kuso crater kureta crazy_insane reijuu crop_land sakumotsu crow karasu crown ookan cry naku crystal suishu cube ripputai cuckoo kakkoo cucumber kyuuri cucumber_and_rice kappa_maki cup kappu cupboard shokkidana curtain_drape katen cute kawaii cylinder enchu daisy hinagiku dance odoru dancer odorite danger kiken dangerous abunai dark sky day nichi deep fukai deer shika demon mazoku desert sabaku desk tsukue dessert dezaato devil akuma devil oni diamond daiyamondo dice saikoro die shin dinner yushoku dinosaur kyoryu dirt tsuchi dish sara doctor isha does_have nai dog aiken dog aikenka dog inu doll ningyo dollhouse ningyo_no_ie dolphin dorufin dolphin iruka donkey roba door doa dough kiji dove hato down shita dozen daasu dragon ryu dragonfly tombo draw kaku dream yume drill_tool doriru drum doramu duck ahiru duckling ahiru_no_go dude toko dump_truck dampu_kaa eagle washi ear mimi earmuffs mimiate earring iyaringu earth chikyuu easel iizeru eclipse nisshoku eel unagi egg tamago eggplant nasu elbow hiji elegant kotan elephant zo elevator erebeta elk shoyosei elk ujika elm nire emotion_feeling kanji energetic genki energy _power envelope fuutu equal byudu equalivent onaji equator sekidu eraser keshigomu europe yoroppa everyday mainichi everything subete evil_fortune akkun exclamation_mark kantanfu exercise undu_suru express tsutawaru eye hitomi eye me eyebrow mayu face kao family kazoku family_tree ikka_no_keizu far away farm nuju feather hane feeling kimochi fence kakoi fern shida feudal_era sengoku_jidai final saigo finger yubi fingernail yubi_no_tsume fire hi fire_hydrant shokasen firefighter shoboshi firetruck shobosha fireworks hanabi fish sakana fishbowl suizokukan fishing tsuri flag hata flame hono flame recca flamingo furamingo flashlight kaichuu flipper ashihire flour komugiko flour kona flower hana flower flower flower_stalk miki flowerbed kaden flute furuto fly tobu fly_insect hae food shokumotsu fool aho foot_feet ashi football amerikan_futtoboru footprint ashiato footstool sutsuru forehead hitai forest mori fossil kaeseki four yon fox kitsune friend tomodachi frog kaeru fruit furuutsu fruit kudamono fruit_juice furuutsu_jusu full_demon youkai funnel ruto furniture kagu future mirai galaxy gingakei game gemmu garbage gomi gate geto gem huseki geography chiri gerbil jaabiru ghost obake gift okurimono gill era giraffe kirin girl shojo glass_cutlery gurasu glass_cutlery koppu glasses_optical megane globe chikyugi glove tebukuro go_away ache_kaere goat yagi goldfish kingyo good_evening konbanwa good_fortune un good_morning ohayo_u_gozaimasu_gozaimash goodbye sayonara goose_geese gacho gorilla gorira grandfather_inform jijii grape budo grapefruit gurepufurutsu grass kusa grasshopper kirigirisu grasshopper batta gray haiiro green midori green_tea ocha greenhouse gurin_hausu guest kyaku guitar gita haiku haiku hair kaminoke hairbrush burashi half hanyo ham hamu hamburger hanbaga hammer kanazuchi hamster hamusutaa hand te handsome bishounen hanger hangaa happy shiawase happy ureshii harbor wave harp haapu hat bushi hate kirai hay hoshikusa haze moyatta head atama hear kikoeru heart_emotional kokoro heart_organ shinzou hedgehog harinezumi heel kakato hell naraku hello moshi_moshi helmet herumetto hemisphere hankyuu hen mendori hexagon shichikaki hey ne hi_hello konnichiwa hill oka hip koshi hippotomous kaba hire fin holly_plant hiragi home xx horn kiteki horse uma horseshoe titetsu hot_spring onsen hot_tub furo hour ji how do how ikaga how_are_you hajimemashite how_are_you o_genki)desu_ka how_many ikutsu how_much ikura human ningen hummingbird hachidori hungry onaka_ga_suiteiru hurricane harikiin hut koya i_ll_kill_you omae_o_korosu i_me_feminine watashi i_me_masculine ore i_me_masculine boku i_me_you_feminine anata iamfeminine watashi_wa ice kori ice_cream aisu_kuriimu ice_skate suketo_gutsu iceberg kyozan icicle tsurara idiot baka if to iloveyou daisuki iloveyou_formal aishiteru iloveyou_informal boku_ai ink inku insect konchuu international kokusai iris_flower ayame iron airon island shima ivy tsuta japanese_type kotatsu jerk bakayaro jewel tama leaf yoh letter tegami light yukata light denkyuu light hikari like konomi little_wolf syaoran lonely sabashii lord tono lotus root magic moho man otoko martial_arts_train dojo mat_mattress futon midnight mayonaka military_ruler shogun minute fun miracle kiseki mist kasumi monk houshi monster kaijuu moon usa moonlight gekko morning asa mountain yama my wa mysterious fushigi oops totto_totto passionate_love ai robe kimono rock_garden kare_san_sui romantic_love koi sexual_love seiai sorry sumimasen watashi atashi } # optional help notes set text_texas { # Refrigerator magnet poetry # Refrigerator magnet poetry # program is mainly TCL8.0 and # Windows Expect5.2 offshoot of # Suchenwirth's Domino.tcl, circa 2004. # Tried to note which Suchenwirth subroutines # were mostly unchanged. # This was the first TCL canvas code I # saw that one could create easy gamepieces. # Writing grouped designs # on top of canvas shape, so basic canvas # shape and "grouped" design would move # by mouse. "grouped" design is used # extensively in Microsoft powerpoint # and Harvard Graphics, etc. # This first effort is refrigerator # magnet poetry in English. # Believe a similar select & die could # be used for a computer Mahjong game # or coin&card games. # Could use TCL8.4 chinese charactors # on top of tiles for Chinese magnetic # poetry or colored Mahjong tiles. # Various Esc and F-keys activate # to exit program or change background color. # Sliding right mouse across piece # should delete same. # Pick and Sliding left mouse across piece # should move same. # Selecting piece with middle mouse # should delete same piece. # Selecting pair of [same text] pieces # [in sequence] with right mouse # should delete same piece. # Right mouse uses initialization from # left mouse, so one has to pick # one tile with left mouse for # game start. # 5/7/5 words per line is # setting for Japanese Haiku poetry. # Other procedures working # on windows98 and old PC. # from goldshell7 on 10jun2006.} Refrigerator_Magnetic_Poetry 冷却装置磁気詩歌を開発するのにこのページは窓のためにTCL8/Expect 5.2 を使用する。例えば、私達はテキストと捺印される任意色および任意に適用される記号のタイルを広げて置いている。またこれらのサブルーチンのいくつかを使用してMahjong 粗野なプログラムを開発することを望む。 テスト映像及びスクリーンの打撃 強さ 可能なサブルーチン使用whereever 。 この1 つ [ Refrigerator_Magnetic_Poetry ] -------------------------------------------------------------------------------- # Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキのパッケージの開始の開始の開始の開始はTk のproc のdown(reset) を{w x y} {調整$w 要求する} proc のmove(reset) の{w x y} {} proc のラジオ{w var の価値{col 0}} {フレーム$w の一定のタイプ[ expr {# か。"- 背景": "- $col {# 設定- selectcolor $value - borderwidth 3}} [ lindex $values 0 ] テキスト" の} ] foreach の価値$values {- radiobutton $w.v$value $type $value 可変的な$var - $value を\評価しなさい- indicatoron 0 eval パック[ winfo の子供# ] - 側面の左一定の::$var はw の} proc のdown(Draw) の{w x y} {::ID を[ # ライン$x $y $x $y を作成しなさい- $::fill を満たしなさい]} 置きなさいproc のmove(Draw) を{w x y} {concat $w のcoords $::id [ [ # coords $::id ] $x # ]} # - - 項目proc のdown(Move) の動き置いた{w x y} {::ID を[ # 発見のwithtag の流れ] 置く::X # 置きなさい; ::Y $y の} proc のmove(Move) の{w x y} {expr $w 移動$::id [ {#} ] [ expr を{#} ] 置きなさい::X # 置きなさい; ::Y $y の} proc のluniq {L} {# 入力リスト一定のt の{} foreach I 分類しないで複写を$L を取除く{{[ lsearch - [ 厳密$t #} {lappend t #} 置きなさい} 帰りの$t は}; # RS は# - - 既存の項目proc のserializeCanvasItem {c 項目} {データ[ concat を[ # タイプ# ] [ # coords # ] ] 置きなさいforeach のOPT をクローンとして作る[ # itemconfigure # ] {# デフォルトから逸脱する構成を含みなさい{[ lindex $opt の端は]! = [ lindex $opt の終り1 ]} {lindex $opt 0 ] [ lindex $opt の端] lappend データ[}} 帰りの$data の} proc のdown(Clone) は{w x y} {流れを[ # 発見のwithtag の流れ] 置きなさい{[ ひもの長さ# ] > 0} {itemData [ serializeCanvasItem $w を[ # 発見のwithtag の流れ置きなさい] ]::ID を[ eval $w は# 作成する] 置いた::X は# 置いた; ::Y $y の}} interp の別名で{} move(Clone) の{} move(Move) を# - - 置き長方形のproc のdown(Rect) を引く{w x y} {タイル[ expr {int(rand()*1000000000 を。) 置きなさい} ] poof "長方形" を置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; ::ID の[ # rect $x $y $x $y を満たし$::fill を作成し札$tagx - ]} proc のmove(Rect) {w x y} {lreplace $w のcoords $::id [ [ # coords $::id ] 2 3 $x # ]} # - - 置き注意したら楕円形の(または円を、) proc のdown(Oval) を引く{w x y} {タイル[ expr {int(rand()*1000000000 を。) 置きなさい} ] poof "楕円形" を置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; ::ID の[ # 楕円形の$x $y $x $y を満たす$::fill を作成しなさい札$tagx - ]} proc のmove(Oval) の{w x y} {lreplace $w のcoords $::id [ [ # coords $::id ] 2 3 $x # ]} proc のdown(circle) を置きなさい{w x y} {タイル[ expr {int(rand()*1000000000 を。) 置きなさい} ] poof "楕円形" を置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; dx 50 セットのdy 50 セットの::ID の[ # 楕円形[ expr を{# 作成しなさい} ] [ expr {#} ] [ expr を{#} ] 置きなさい[ expr {#} ] - # $tagx に付ける- # 盛り土$::fill の]} proc のmove(circle) の{w x y} {lreplace ## のcoords $::id [ [ # coords $::id ] 2 3 $x # ]} proc のdown(Poly) {w x y} {[ インフォメーションは::Poly] ある{タイル[ expr {int(rand()*1000000000 を。) 置きなさい} ] poof を"多" 置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; coords の[ # coords $::poly ] foreach {x0 y0} $coords の壊れ目を置きなさい{hypot($y-$y0 、$x-$x0)<10} {$w の削除$::poly $w は多[ lrange $coords 2 の端] - 盛り土$::fill 外した::Poly を} 作成する他に{concat $coords $w のcoords $::poly [ $x # ]}} 他に{::Poly を置きなさい[ # ライン$x $y $x $y を作成しなさい- 札の"obj_[expr {int(rand()*1000000000.)}]" は- $::fill の]}} proc を満たしなさいか。L {expr lindex $L [ int(rand()*[llength は{# ])} ] # suchenwirth_subroutine; } proc のmove(Poly) は{w x y} {# 何も} # - - 少しより多くのコーディングの…、盛り土モード項目の盛り土色を変えることを割り当てる: proc のdown(Fill) {w x y} {# itemconfig の流れ- 盛り土$::fill} proc のmove(Fill) の{w x y} {} proc のlcount のリスト{lappend arr($x) foreach X $list {{}} RES の{} foreach の名前[ lappend RES 配列名のarr ] {[ llength [ #) ] ]} リスト$name 帰りの$res を} # lcount {はい否の現在無しはいはいはいはいはいはい否の現在無し否無し} # {NO 6} {はい7} {現在2} 置いたproc のtranslationx {ひものdictName} {# suchenwirth_subroutine; [ インフォメーションはdict($word) ある] {単語を# 置きなさい)} upvar 1 つの$dictName のdict 一定のRES の{} foreach の単語$string の{lappend RES $word は} RES の} proc の複数単語{スイッチ-- $word {人{帰りの人の} フィート{帰りのフィートの} ガチョウ{帰りのガチョウの} 寄生虫{帰りの寄生虫の} マウス{帰りのマウスの} ウシ{帰りのウシの} 歯{帰りの歯の} 子牛- 半分エルフ- - ひづめ- 葉- 塊- スカーフ- 自己- 束- 盗人- オオカミ{リターン[ ひもの範囲$word 0 の終り1]ves} ナイフ- 生命- リターン妻{置いた[ ひもの範囲$word 0 の終り2]ves の} 自動車は- カンガルー- キロ- メモ- 写真- ピアノ- ピメント- プロ- 単独- ソプラノ- スタジオ- 入れ墨- ビデオ- 動物園{帰りの${word}s} タラ- シカ- 魚- 子孫- とまり木- ヒツジ- マス- 種{リターン#} 属{スイッチ帰り属} 門{帰り門} 半径{帰りの半径} 天使{帰りのcherubim} mythos {帰りのmythoi} 現象{帰り現象} 方式{帰りの方式}} - regexp -- $word {{[ ei]x$} {終り2]ices リターン[ ひもの範囲$word 0 の} {[ sc]h$} - {[ soxz]$} {帰りの${word}es} {[ bcdfghjklmnprstvwxz]y$} {リターン[ ひもの範囲$word 0 の終り1]ies} {child$} {帰りの${word}ren} {eau$} {帰りの${word}x} {リターンis$} {終り2]es} {リターンwoman$} [ ひもの範囲$word 0 の{終り2]en [ ひもの範囲$word 0 の}} [ 等しいひも$lkey # ] {リターン#}}} 帰りの${word}s の} proc のkeyget {foreach リストのキー} {価値} $list {lkey の{; # RS # keyget % の{fnm のジョンのlnm のブラウンの電話(123)456-7890 電子メールjohn@brown.com} 電話# (123)456-7890 # % のkeyget {fnm のジョンのlnm のブラウンの電話(123)456-7890 電子メールjohn@brown.com} ファクシミリのproc のlswap のリスト{RES の{} foreach {lappend RES b} $list を{$b は#} 置くRES を置きなさい}; # RS # lswap % は{b c d e f g h} リストに# b d c f e h g # 要素を付加する(前部で加えなさい): proc のlprepend {var のargs} {upvar 1 $var V セットのv [ eval [ リストのlinsert $v 0 ] # ]}; # DKF のproc のkvsearch {kvlist 項目} {pos [ lsearch を$kvlist # ] 置きなさい{#! = -1} {expr lindex $kvlist [ {#)} ]}}; # RS の## のkvsearch {1 1 2 2 3 3} 4; # リターンはstring/list # kvsearch {1 1 2 2 3 3} 1 # 1 # kvsearch % の{1 1 2 2 3 3} 1 #1 # - - 空け造るUI の一定モードを{引くこと移動クローンの盛り土のRect の楕円形の多円のキャンバスの詩歌の毛の地帯の助けのゆとりは出口を再調節した} 置く色{blue3 白いマゼンタの茶色の赤いオレンジ黄色緑green3 green4 の青緑色の青blue2 の紫色} 置いたcolorz {黒いbrown2 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4 LightYellow2 LightYellow3 LightYellow4 yellow2 yellow3 yellow4 gold2 gold3 gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4 DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3 orange3 orange4 DarkOrange1 DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4 tomato2 tomato3 tomato4 OrangeRed2 OrangeRed3 OrangeRed4 red2 red3 red4 DeepPink2 DeepPink3 DeepPink4 をHotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2 は} colorx {blue4 AntiqueWhite3 \Bisque1 Bisque2 Bisque3 Bisque4 \SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 Tan1 \lemonchiffon の貝殻の糖液のmintcream の紺碧\peachpuff のnavajowhite のmoccasin のcornsilk \IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4 burlywood1 \burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3 wheat4 \tan2 tan4 chocolate1 chocolate2 chocolate3 firebrick1 firebrick2 \firebrick3 firebrick4 \} 全体的なhelpx 全体的なはさみ金の全体的なind の一定のind 0 の全体的なmovesit の一定のhelpx 0 のセットのmovesit 1 のセットのcolorground のbisque の一定のcurnode が"" firstnode を"" 置いたxhistory 置いた全体的なxhistory firstnode のcurnode を置いた[ リストのAAA はbbb ccc のddd のeee のfff のggg は] 置いたxhistory [ リスト] colorground のbisque の全体的なselected_tile previous_tile セットのselected_tile "指定タイル" を置きなさい; previous_tile "前のタイル" を置きなさい; 全体的な反対の全体的なはさみ金の全体的なind の一定のind 0 一定のtilex が"obj_66666test" tagx を"obj_77777test" 置いたセットはさみ金の[ b c d e f g をリストしなさい] 全体的なtilex のtagx のtagz はtagz "obj_55555test" の全体的な記入項目を反対に置かれて0 の格子[ 無線の1 モード# ] - 粘着性があるnw 格子[ 無線の2 の盛り土$colors 1 ] - 置いた粘着性があるnw の格子[ - 無線の3 の盛り土$colorx 2 ] [ 無線の4 の盛り土$colorz 3 ] 粘着性があるnw の格子粘着性があるnw の格子[ - キャンバスのc 上がる救助borderwidth 1 の- bg # ] - - 粘着性があるニュースの格子rowconfig 。0 - 0 の格子rowconfig を重くしなさい。1 - 1 つの格子rowconfig を重くしなさい。2 - 重量2 の格子rowconfig 。3 つは- 重量3 ボタンのb2 - テキスト退去する- 命令は"破壊する。" ボタンのb3 - テキストの出口- "出口" ボタンb5 - テキスト"にDel_tank" - - 幅2 の- {wxx の削除1.0 の端} ボタンのb6 に命じなさい- テキスト"lt_bg" の- bg の灰色- 幅2 \命じる命じなさい{colorground LightBlue1 を置きなさい; c は- bg $colorground} ボタンのb7 - テキスト"bis_bg" を- - 幅3 \命じる形成する{colorground のBisque を置きなさい; \c は- bg $colorground の} 格子b2 のb3 のb5 のb6 のb7 の格子rowconfig を形成する。0 - 0 の格子rowconfig を重くしなさい。選択の歴史の1 つの- 重量1 の格子[ ラベルのwcc - テキスト"リスト" ] 格子[ 記入項目のwxxccc - textvar e - はちょうど残された- bg ベージュ色- 幅50 ] # wxxccc の挿入物の端"# " ワウ[ c の発見のwithtag の流れ] 置いた; wxxccc の挿入物の端"xxx 始動機xxx $wow xxx" の焦点のwxxccc; # キーボード入力に一定のlabelx [ インフォメーションのtclversion ] 与えなさい; 格子[ テキスト"保有物タンク、版$labelx" - ラベルのww ] 置いた粘着性があるニュースの焦点のwxx は- txt [ テキストのwxx の- 幅20 の- 高さ3 - bg ベージュ色] 格子$txt を; # キーボード入力に一定のワウ[ c の発見のwithtag の流れ] 与えなさい; wxx の挿入物1.0 "xxx 始動機xxx $wow xxx"; # - - 現在のモードは全体的なモード変数からランタイムに取り出される: 縛りのc < 1 つの> {firstnode の[ c の発見のwithtag は%W %x %y;down($Mode) %W %x %y をcurrent];initialize} 縛りのc < B1 動き> {move($Mode) %W %x %y を置きなさい} 縛りのc < 2 > の{%W の削除の流れ} 縛りのc < 3 > {# firstnode [ c の発見のwithtag の緑を] 置くfirstnode [ c の発見のwithtag の流れを] 置くcurnode [ c の発見のwithtag の流れを] 置くタイル[ c の発見のwithtag の流れを] # 置くcurnode [ c の発見のwithtag の赤を] 置きなさい{($firstnode! = "") && (#! = "")} {dualcheck $tile $firstnode $curnode}} proc のmove(Poetry) の{w x y} {[ インフォメーションは::X] {expr $w 移動$::id [ {# ある} ] [ expr {#} ]::X # 置きなさい; ::Y #}} proc のdown(exit) {w x y} {出口置きなさい} proc のdown(Poetry) {w x y} {一定ベースライン[ リスト] baseline2 [ リスト] baseline3 [ リスト] 置いたdy 40 セットのdx 40 のセットのdk 10 のセットのpoof "テスター" を置いた全体的なベースライン全体的なen_chinese 全体的なen_romanji は置いた; 一定のlooky "stringx"; タイル"タイル" を置くtagx [ リストのaaaa のbbbb cccc のdddd のeeee のfffff のgggg のhhhh ] 置くtagx [ リスト] # 置く札[ リストmv d-$val1$val2 ] 置きなさい; # 置きなさいタイル[ expr {int(rand()*1000000000 は。) を} ] # looky "stringx" を置きなさい; # poof [ xpop $looky ] 置きなさい; # 札[ リスト$poof mv obj_$tile d-$val1$val2 ] 置きなさい; # 札[ リスト$poof mv "obj_$tile+1" d-$val1$val2 ] 置きなさい; # tagx [ リスト$poof mv "obj_$tile+1" d-$x$y ] 置きなさい; のため{i 0 を置きなさい; y [ expr {4+$y}];set X 置きなさい[ expr {10+$dx} ]; } {#} {incr I; incr X #} {state1 1 を置きなさい; 置きなさいタイル[ expr {int(rand()*1000000000 は。) を} ] looky "stringx" を置きなさい; poof [ xpop $looky ] 置きなさい; lappend ベースライン#; lappend のcaseline #; tagx [ リスト$poof mv "obj_$tile" d-$x$y ] 置きなさい; ::ID を[ # テキスト$x $y を札$tagx 作成しなさいテキスト$poof - - $::fill を満たしなさい]} のための置きなさい{i 0 を置きなさい; y [ expr {8+$y}];set X [ expr {10+$dx は} ]; 置きなさい} {#} {incr I は; incr X #} {state1 1 を置きなさい; 置きなさいタイル[ expr {int(rand()*1000000000 は。) を} ] looky "stringx" を置きなさい; poof [ xpop $looky ] 置きなさい; lappend baseline2 #; lappend caseline2 #; tagx [ リスト$poof mv "obj_$tile" d-$x$y ] 置きなさい; ::ID を[ # テキスト$x $y を札$tagx 作成しなさいテキスト$poof - - $::fill を満たしなさい]} のための置きなさい{i 0 を置きなさい; y [ expr {12+$y}];set X [ expr {15+$dx は} ]; 置きなさい} {#} {incr I は; incr X #} {state1 1 を置きなさい; 置きなさいタイル[ expr {int(rand()*1000000000 は。) を} ] looky "stringx" を置きなさい; poof [ xpop $looky ] 置きなさい; lappend baseline3 #; lappend caseline3 #; tagx [ リスト$poof mv "obj_$tile" d-$x$y ] 置きなさい; ::ID を[ # テキスト$x $y を盛り土$::fill - 札$tagx 作成しなさいテキスト$poof - ]} 置くtopa [ concat $baseline stringxxx [ $baseline2 # ] ] 置きなさい; wxx の挿入物1.0 #; lcount wxx の挿入物1.0 [ # ]; topat [ en_chinese translationx $topa ] 置きなさい; lcount wxx の挿入物1.0 [ # ]; concat $topa wxx の挿入物1.0 [ lcount # ] $topat [ lcount [ # ] ]; k 20 を置きなさい; ベースライン[ en_chinese translationx $baseline ] 置きなさい; k [ expr {20+$y} ] 置きなさい; ::ID を[ # テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] 置くベースライン[ en_chinese translationx $baseline2 ] 置きなさい; k [ expr {30+$y} ] 置きなさい; ::ID を[ # テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] 置くベースライン[ en_chinese translationx $baseline3 ] 置きなさい; k [ expr {40+$y} ] 置きなさい; ::ID を[ # テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] 置くk 30 を置きなさい; j 20 を置きなさい; ベースライン[ translationx $caseline のen_romanji ] 置きなさい; k [ expr {60+$y} ] 置きなさい; j [ expr {20+$x} ] 置きなさい; ::ID を[ # テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] 置くベースライン[ translationx $caseline2 のen_romanji ] 置きなさい; k [ expr {70+$y} ] 置きなさい; j [ expr {20+$x} ] 置きなさい; ::ID を[ # テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] 置くベースライン[ translationx $caseline3 のen_romanji ] 置きなさい; k [ expr {80+$y} ] 置きなさい; j [ expr {20+$x} ] 置きなさい; {xhistory}::ID の[ # テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ]} proc の歴史を置きなさい{[ リストの目的の歴史@ 置きなさいxhistory ]; 全体的なxhistory firstnode のcurnode の全体的なind のmovesit の一定の第2 セットの第2 セットのfirstnode [ c の発見のwithtag の流れ] lappend $xhistory $firstnode; ::ID の[ c はテキストを作成する100 つは200 枚の- テキスト$xhistory - 札"歴史" - 盛り土$::fill - 黒い] 満たす} proc のdualcheck {タイルのfirstnode のcurnode} 置きなさい{全体的なmatch_id のselected_tile tiles_left のジャッキの全体的なnewy oldy マッチのoldx のxhistory 全体的なselected_tile previous_tile 全体的なxhistory 全体的なtilex は# 全体的なfirstnode のcurnode の一定のselected_tile "タイル" を選んだ; colorxxx "テスト" を置くcolorzzz "テスト" を# 置くprevious_tile "前のタイル" を置きなさい; numberx [ c のgettags の流れ] 置きなさい; regexp {obj_(\d+)} $numberx - > tilex のregexp {colorit_(\d+)} $numberx - > colorxxx のregexp {colorit_(\d+)} $numberx - > colorzzz の一定インデクサー[ 最初にひも"mv" $numberx ]; インデクサー[ expr {$indexer - 1} ] 置く新しく置きなさい[ ひもの範囲$numberx 0 $indexer ]; 札[ c のgettags の流れ] # 幅2 - c のitemconfigure obj_$tilex 輪郭を描く赤の置きなさい; # 幅2 - c のitemconfigure $previous_tile 緑の輪郭を描きなさい; # 幅3 - c のitemconfigure obj_$tilex; # 幅3 - c のitemconfigure $previous_tile; 一定の古い"テスト" はkkk [ c のgettags $previous_tile ] 置いたインデクサー[ 最初にひも"mv" $kkk ] 置いた; ; インデクサー[ expr {$indexer - 1} ] 置く古く置きなさい[ ひもの範囲$kkk 0 $indexer ]; {# == ""} {古い"poof を#" 置きなさい} tx [ ひもの範囲$tilex 0 の端] 置きなさい; rx [ ひもの範囲$previous_tile 4 の端] 置きなさい; {$tx は! = $rx} {wxx の削除1.0 の端は; wxx の挿入物の端"識別される組間違い等しくないテキストは!!!" の; } {$old の== $new} {tx [ ひもの範囲$tilex 0 の端を置きなさい]; rx [ ひもの範囲$previous_tile 4 の端] 置きなさい; {$tx の== $rx} {wxx の削除1.0 の端; wxx の挿入物の端"識別される組間違い同じタイルの二重接触!!!" の; } {$tx は! = $rx} {# 幅2 - c のitemconfigure obj_$tilex 青の輪郭を描きなさい; # 幅2 - c のitemconfigure $previous_tile 青の輪郭を描きなさい; wxx の削除1.0 の端; wxx の挿入物の端"xxx $tilex xxx $tx xxx $rx xxx $previous_tile xxxx"; wxx の挿入物の端#; wxx の挿入物の端"古い$old"; wxx の挿入物の端#; wxx の挿入物の端"同一の組識別した!!!" は; wxx の挿入物の端"xxx 古い$old xxx 新しいxxx $new" は; wxx の挿入物の端は#; wxx の挿入物の端の"obj_tilex obj_$tilex" のregexp {colorit_(\d+)} $numberx - > colorxxx のregexp {colorit_(\d+)} $previous_tile - > colorzzz {削除は$colorxxx の== $colorzzz} {c の"# "; c の削除"obj_$tilex+1" は; c の削除obj_$tilex は; c の削除は#; }}} # wxx の削除1.0 の端; $selected_tile # 置きなさい; wxx の挿入物の端$tags; wxx の挿入物の端"selected_tile 同輩$new"; {$previous_tile は! = $selected_tile} {[ c のgettags の流れ] 置くインデクサー[ 最初にひも"mv" $previous_tile を置きなさいprevious_tile ]; インデクサー[ expr {$indexer - 1} ] 置く古く置きなさい[ ひもの範囲$previous_tile 0 $indexer ]; wxx の挿入物の端"previous_tile 同輩$old"; } # 幅2 - c のitemconfigure $curnode; 一定のprevious_tile obj_$tilex の一定のfirstnode obj_$tilex; {$firstnode は! = $curnode} {curnode obj_$tilex を; 置きなさい} wxx の挿入物の端"流れ$curnode" に匹敵する; wxx の挿入物の端"第1 $firstnode" に匹敵する; リターン} proc は初期設定する{w x y} {全体的なタイルの全体的なxhistory firstnode のcurnode の全体的なind のmovesit の一定のタイル[ c の発見のwithtag の流れは] 第2 セットの第2 をセット::_x # 置いた; ::_y # 置きなさい; firstnode [ c の発見のwithtag の流れ] 置く数を[ # gettags の流れ] 置くインデクサー[ 最初にひも"mv" $number ] 置きなさい; numberx [ ひもの範囲$number 0 # ] 置きなさい; # このカードはタンクの前の歴史を# 減らしたりタンクverbage を失う歴史# wxx の削除1.0 の端を削除するが; # 一般的な報告ラインwxx の挿入物はタイルxxxx \$ind xxxx の目的xxx $tile xxx $ind xxx 数の\まっすぐにの1.0 "インデクサーxxx $indexer xxx xxx $number xxx $numberx xxx \数xxx $movesit xxx" を動かす; # wxxccc の削除1.0 の端; # 一般的な報告ラインタイルxxxx \$ind xxxx の目的xxx $tile xxx $ind xxx 数の\まっすぐにのwxxccc の挿入物の終わり"インデクサーxxx $indexer xxx xxx $number xxx $numberx xxx \数はxxx $movesit xxx" を動かす; lindex $L incr のmovesit の} proc のlpick L {int(rand()*[llength [ expr の# ]) ]; \# suchenwirth_subroutine は;} proc のstringxxx s {# suchenwirth_subroutine; {# wordstart $line # ]} RES の{} foreach ラインを[ $s の\n を裂きなさい] {{i 0 を置きなさい} {# 長さ# ]} {incr I のために} {{w [ expr ひもの範囲$line $i を[ 置きなさい{[ ひものwordend $line は#} ] ] # 置きなさい{#! = " "} {lappend RES #} # {#! =" "&& # "&& #!="\}"} は{lappend RES は#} {#! = " "&& # "&& #!="\}" && #!="\," は&& #!="\\" && #!="\/"} は{lappend RES #} # {#!="\}"} は{lappend RES #} # {# "} {lappend RES #} expr incr I [ {[ ひもの長さは#} ]; # 常にループincr は}}} RES の} proc のxpop {一定はさみ金上層} {poemsorts 全体的なはさみ金の全体的なind 全体的なベースライン一定のpoetsey のaaaaa の[ # ] 置いた; 一定の間抜け[ stringxxx # ]; 上層[ lindex $goofy $ind ] 置きなさい; ind [ expr {$ind + 1} ] lappend を$baseline # 置きなさい; リターン#; } proc のhelptext {stringxxx} {text_texas を置きなさい{# 冷却装置磁石の詩歌# 冷却装置磁石は詩歌# プログラム主にTCL8.0 であり、# Windows Expect5.2 の支流はの# Suchenwirth どのサブルーチンを# ワード大抵1 ラインにつき不変の# 5/7/5 があったか2004. 頃Suchenwirth のDomino.tcl 、# 注意することを試みられて# Haiku の日本の詩歌のための設定# 10jun2006 のgoldshell7 からのwindows98 そして古いPC に# # 取り組む他のプロシージャは。ある} リターンは#;} proc のpoemsorts {poetsey} {全体的なはさみ金は# はさみ金[ リストq w e r を] # テストの目的の置かれたはさみ金[ リストのaaaa のbbbb cccc のdddd のeeee のfffff のgggg のhhhh ] のためのアルファはさみ金置いたはさみ金[ リストを] 置いたadjective_poetic 置いた{{{悲しい} 赤} {青} {{嬉しい} 青を} {嬉しい} {深く} {黒} {{薄い} 野生の} {{薄い} 緑} {明るい} {荒い} {灰色} {{長い} 茶色の} {最高} {茶色} {酒} {乾燥した} {{単独} 貧乏人} {遠い} {平たい箱} {広い} {厚い} {堅い} {{広い} 平たい箱} {涼しい} {堅い}} 置きなさいnoun_subject {ナシ猫のマウスのリード{quince} {モモ} {ノウサギ} {鳥} {煙} {雨} {氷} {雪} {雲} {家} {花} {空} {米} {マツ} {霧} {ドア} {風} {コオロギ} {年}} {{月} {{草} クレーン} {上がった} {インク} {花雪解け} {湖} {ヒマラヤスギ} {薄暗がり} {秋} { } {石} {流れ夜明け} {木} {中心} {ボート} {悲しみ} {木} {ボート} {ボート} {石} {町} {破損} {プール} {絹} {シカ} {歌} {はしけ} {コケ} {夜} {ゲート} {塀} {鳩} {夢} {霜} {平和} {陰} {幻影} {道} {道} {根} {馬} {イブ} {音} {睡眠} {海葉}} {{帆} {ピーク} {{茎は}} {分野} {斜面波} {吠え声} {頂上} {雑草} {ガ} {スズメバチ} {池} {土} {かたつむり} {みみず} {蟻} {ケルプ} {洞窟} {頭部月}} {{ヒスイ} {枝} {骨} {頭部} {微笑} {エンドウ豆} {骨} {頭部} {微笑} {ニレ} {コイ曉}} {{巣} {カシ} {骨} {とまり木} {{微風}} 台紙のプラム嵐の丘は} verb_transitive 置いた{落下{焼跡雪} {{フリップは}} {flys} {歩行うそ} {{流れ}} {落下} {はえ} {来られて} {大会} {{輝やき} 漂流の} {浸しなさい} {叫び} {{失われる} ダンス} {喝采} {ダンス浮遊物} {ねぐら} {{移動}} {愛} {移動睡眠} {取得} {{帆}} {坐る} {跳躍} {坐る} {坐らせなさい} {坐る} {跳躍} {育つ} {待ち時間} {失う} {聞く} {ほしい{衰退しなさい}} {腕時計}} 置くnoun_objective {知りなさい} {雲は{古い家の} 花{空} 米{コオロギ}} silly_propostion を{のために{によって} の方に{へ} {へ} {で} {} {{へ} {} {前部} {に} 既往}} 置いたpoetsey を"置いた、[ か。# 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。$noun_subject],The 、[ か。# 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。$noun_subject],The 、[ か。# 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。$noun_subject],The 、[ か。# 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。$noun_subject],The [ か。# 、[ か。# ] の[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、[ か。# ] 、"lappend はさみ金$poetsey のlappend はさみ金$poetsey のlappend はさみ金$poetsey の一定のpoetsey $liner 帰りの$poetsey} # - - (任意) F キーを活動化させなさい: 縛り。< 脱出> の{出口} 縛り。< F1 > {。破壊しなさい} 縛り。< F2 > {colorground LightBlue1 を置きなさい; \c は- bg を#} 縛り形成する。< F3 > {colorground Bisque;.c を置きなさい\- bg $colorground を形成しなさい} 縛り。< F4 > {backcolor [ lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 を\SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 のTan1 \Tan4 灰色} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F4 > {backcolor [ lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 を\SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 のTan1 \Tan4 灰色} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F5 > {backcolor [ アクアマリンlpick を{Bisque の} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F6 > {backcolor [ Bisque lpick を{AntiqueWhite3} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F7 > {backcolor [ Bisque lpick を{SeaGreen1} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F8 > {backcolor [ Bisque lpick を{AntiqueWhite3} 置きなさい]; colorground を# 置きなさい; c は- bg $colorground は星じるしのために} # 第8 世紀の詩からのwords/meanings # 英国の記事# 減らされたvolcabulary 配列の一定のen_chinese 投げ出した{* 形成する* 鳥のnaio 水shui の雲のyun の煙yan は青いLAN 嬉しいgaoxing 深いshen 黒いhei の野生のyesheng の緑のluse の薄いcangbai の明るいming 荒いbuping 灰色のcangbai の茶色のzongse の長いchang 高い高のshou の緑豊かなデュオの乾燥したgan 悪いqiong の単独dandu の遠いyuan の平らなポーンの広いkuan 厚いhou は薄く来るlai 雨于赤い洪の悲しいnanguo の懸命に涼しい梁猫の毛のマウスのlaoshu のリードcao ナシのリチウムのquince のyingtao のモモのtao のノウサギのtuzhu の鳥のnaio の煙のyan 雨于の氷のxue の雪のxue の雲のyun をying 家の家の花の華の空のtian 米mi のマツ歌の霧のウーのドアの人の風のfeng のコオロギのkunchong 年のnian 月のユェクレーンniao の草cao のばら色のmeigui インクmoshui の雪解けの雪解けの花の華湖彼ヒマラヤスギの歌の薄暗がりの流れを石灰で消毒するheitian 秋のqiu の石のshi の夜明け彼木のshu の中心のxin のボートのzhou の悲しみのnanguo の石のshi の町のzhen の破損のlei のプールのchitang 絹のsi のシカlu の歌のヒマラヤスギのはしけのbochuan コケlu 夜ye のゲートの人の塀のliba の鳩のnaio の夢のmeng の霜のshuang の平和heping 陰si の幻影のチタニウムの道のリチウム道のxiaodao の根のGEN の馬のma イブの弱々しく健全なシェングの睡眠のshuimian 葉のshu の海のhai の帆ファンのピークのピークの茎の茎分野のyuan の波のbolang は斜面のシャン族の吠え声のshu の頂上のxia の雑草のzhiwu のガのkunchong のスズメバチのhuangfeng の池のchitang soil du snail のwongnui みみずのwongnu の蟻のkunchong のケルプのhaizhiwu の洞窟のshandong 月のユェのヘッドtou のヒスイの于の枝shuzhi の骨のグウの微笑のxiao のエンドウ豆のxiaodou のニレのshu の曉は朱は漂流zhou 輝やきguang がshui の叫びのチタニウムのダンスの浮遊物のpiao のねぐらのchang 移動zhou をguoxing tiaowu によって失われるmilu の喝采を衰退するshuimian 取得衰退するあなたがtiao がzuo を坐らせるzuo の跳躍を坐らせる愛ai 睡眠の浸すlai の大会の大会の来ることをfei が知っているコイの于の巣のchang のカシのshu のとまり木の于の微風のxiaofeng の台紙のシャン族のプラムlizi の嵐のfengbao の丘のシャン族の落下劉の焼跡のhuo フリップzhou のflys のfei のうそのzhi の歩行のzou の流れの劉の落下劉のはえをzaochen ting はzai のzai 既往の于でGE にzai の方の于によってwei のためのyao の腕時計のkan 古いラオス人がほしいと思うことを} zhou が失う聞く失うシェングの待ち時間を育てる 配列の一定のen_romanji { * * 赤いaka の悲しいkanashii の青いaoi_ao の嬉しく嬉しく深く深く黒いkuroi の野生のyasee の緑のmidori-iro の薄いusui の明るいakarui_taiyoo の荒く荒い灰色のguree の茶色のchairo の長く長く高いtakai の薄く薄く緑豊かなsubishii の乾燥したkawaite_iru の貧しいbimboo の単独subishii ずっとずっときっかりきっかり広く広く厚く厚く堅く堅く涼しく涼しい猫猫のマウスのマウスのリードリードナシのナシのquince のquince のモモのモモのノウサギのノウサギの鳥の鳥の煙の煙雨雨氷の氷の雪の雪の雲の雲の家の家の花の花の空の空の米の米のマツマツ霧の霧のドアのドアの風の風のコオロギのコオロギ年年の月の月クレーンクレーン草の草のばらばら色インクインク雪解けの雪解けの花の花湖湖のヒマラヤスギはヒマラヤスギの薄暗がりの薄暗がりの秋の秋の石の石の夜明けの夜明けの流れの流れの木の木の中心の中心のボートのボートの悲しみの悲しみの石の石の町の町の破損の破損のプールのプールの絹の絹のシカのシカの歌の歌のはしけのはしけのコケのコケ夜夜ゲートのゲートの塀の塀の鳩の鳩の夢の夢の霜の霜の平和平和陰の陰の幻影の幻影の道の道道道の根の根の馬の馬イブイブの音の音の睡眠の睡眠は残す葉の海の海の帆帆ピークのピークの茎の茎分野分野の波の波斜面斜面の吠え声の吠え声の頂上の頂上の雑草の雑草のガのガのスズメバチのスズメバチの池の池の土の土のかたつむりのかたつむりみみずみみずの蟻の蟻のケルプのケルプの洞窟の洞窟月月の頭部の頭部のヒスイのヒスイの枝枝骨の骨の微笑を微笑のエンドウ豆のエンドウ豆のニレのニレの曉の曉のコイのコイの巣の巣のカシのカシのとまり木のとまり木の微風の微風の台紙の台紙のプラムプラム嵐の嵐の丘の丘はうそうそがはえ来られた来られた大会の大会の漂流の漂流の輝やきの輝やきは浸す叫びの叫びのダンスのダンスによって失われる失われた喝采の喝采の浮遊物の浮遊物のねぐらのねぐら移動移動を衰退する取得衰退する取得が坐らせる跳躍が坐る育つ育てる待ち時間は* *} proc phonesort2 {の既往の既往ででににの方にの方に失う聞く聞くほしいほしいと思うのためののための腕時計の腕時計の古い古いがリストは失う待ち時間を坐らせる跳躍を坐らせる愛愛睡眠の睡眠の浸ることをはえが知っている知っている歩行の流れの流れの落下落下歩かせる落下焼跡の焼跡フリップフリップflys のflys の落ちる} {# regsub {Ma?c?([A-Z ] KBK (2001 年の2 月14 日) foreach の名前$list {)} リスト$name {M_\1} 主lappend list2 の[ $key # ]} foreach の組[ 索引0 - lsort ascii # ] {[ lindex $pair 1 ] lappend list3} 帰りの$list3} 全体的なベースライン全体的なen_chinese セットのtopa [ poemsorts stringxxx [ "aaaaa" ] ]; wxx の挿入物1.0 #; lcount wxx の挿入物1.0 [ # ]; ベースラインを置きなさい[ リストの人のガチョウのフィートの女性は潜る]; foreach のoppie $baseline {手紙"ひも" を置きなさい; 手紙[ ひもの範囲$oppie の端の端] 置きなさい; letterx "s" を置きなさい; {$letter は! = $letterx} {複数はlappend ベースライン[ # ]; } 他に{lappend ベースライン#; }} wxx の挿入物1.0 "$baseline xxx"; wxx の挿入物1.0 "人xxx [ 複数" 人"] xxx"; ベースラインを置きなさい[ リスト水鳥の煙は来る]; wxx の挿入物1.0 "xxx $baseline xxx"; stringj [ リスト] 置きなさい; stringj の[ translationx "水鳥煙" はen_chinese 来る] wxx の挿入物1.0 $stringj を置きなさい; wxx の挿入物1.0 "xxxx translationx $baseline TRANS [ en_chinese ]"; listxxx [ リストMacDonald McArthur McEwan Lyttle Mabbs ジョーンズ] wxx の挿入物1.0 "xxxx 種類xxxx $listxxx xxx [ phonesort2" # "]" を置きなさい; proc のdown(canvas) {w x y} {全体的なcolorground; colorground $::fill を置きなさい; \c は- bg を#} proc のmove(canvas) の{w x y} {} proc のdown(exit) 形成する{w x y} {出口; } proc のmove(exit) の{w x y} {} proc のdown(help) {w x y} {タイル[ expr {int(rand()*1000000000 を。) 置きなさい} ] poof "助け" を置きなさい; 全体的なhelpx {# > 0} {リターンは} tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y を置いた]; 基盤"助け" を置きなさい; helpx 0 を置きなさい; ベースライン[ helptext # ] 置きなさい; {![info はL ある]} {L を{置きなさい}} 置きなさい#::ID は[ # テキスト$x $y を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - ] helpx 1 を置いた; } proc のmove(help) の{w x y} {} proc のdown(clear) {w x y} {全体的なhelpx $w の削除"すべて"; helpx 0 を置きなさい; } proc は再調節した{w} {"すべて全体的なhelpx の$w は削除" helpx 0 を置いた; } proc のdown(hairs) {w x y} {全体的なhelpx {# > 0} {リターンは} タイル[ expr {int(rand()*1000000000 を。) 置いた} ] poof "十字毛" を置きなさい; セットのmiddlexxxx [ expr {(400 + # 2} ] middleyyyy [ expr {(400 + # 2} ] 置いたxx1 20 を置いたmaximumxxxx 400 セットのmaximumyyyy 400 を置きなさい; xx2 15 を置きなさい; yy1 20 を置きなさい; yy2 10 を置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; 基盤"助け" を置きなさい; helpx 0 を置きなさい; ベースラインを# 置きなさい; {![info はL ある]} {L を{置きなさい}} # 置きなさい#::ID は[ # テキスト$x $y を盛り土$::fill - 札$tagx ]::ID を[ $w はライン$x $middleyyyy $maximumxxxx $middleyyyy を作成する- 札# 作成しなさいテキスト$baseline - ] 置いた::ID の[ # ライン$middlexxxx $y $middlexxxx $maximumyyyy を- 札の] 縛り::ID を[ $w はライン$x $middleyyyy $maximumxxxx $middleyyyy を作成する- $tagx][$w がライン$middlexxxx $y $middlexxxx $maximumyyyy を- 札の作成するtagx 札作成しなさいtagx ] 置いたhelpx 1 を置いた; } proc のmove(hairs) は{w x y} {::ID [ # 発見のwithtag の毛] $w のcoords $::id を[ [ # coords $::id ] 2 3 $x # 置きなさいlreplace ]::X # 置いた; ::Y $y の} proc のdown(zone) を置きなさい{w x y} {全体的なhelpx {# > 0} {リターンは} xx1 20 を置いた; xx2 15 を置きなさい; yy1 20 を置きなさい; yy2 10 を置きなさい; 置きなさいタイル[ expr {int(rand()*1000000000.)}]; をpoof "地帯" を置きなさい; tagx [ リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y ] 置きなさい; 基盤"助け" を置きなさい; ## はrect 50 を10 枚の100 枚の60 枚の- 札"箱" の## はrect $xx1 $yy1 $xx2 $yy2 を作成する- 札"箱" が::ID を[ # 作成するexpr rect $x $y を[ {$x + $xx1} ] 置いた作成する[ expr {$y + $yy1} ] - 札$tagx - 盛り土$::fill は] helpx 1 の} proc のmove(zone) を{w x y} {} # デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキの端の端の端の端の端の端の端の端の端置いた -------------------------------------------------------------------------------- コード再使用 Tcl's のパッケージシステムは再使用することができるコードを書くことを容易にする。 多くの他の人々は彼らのコードを再使用のために使用できるようにした。 -------------------------------------------------------------------------------- ' ' 1 つが色、テキスト、または札の2 つの等しい部分を選ぶところ特徴かサブルーチン"select&pair_then_die" に荷を積むことを試みるgoldshell7'':I AM からのQ. 。2 部分が等しければ、組は両方ともスクリーンから消える(またはスクリーンのホッケーの安全地帯へ) 。ちょっと等しい組の除去プロセスだったマイクロソフト古いMahjong のゲームのように。 -------------------------------------------------------------------------------- ' ' 受け取られる"A. はテキストincr ただn $w のためのもう1 作成する移動のためのrect の... - 札[ リストmv obj$n ] $w はテキストを... 作成する- 札[ リストmv obj$n text$n ] 、指定するobj. の。札を独特な札を構成し、それの中のrect そしてテキスト両方に、そして便宜上割り当てるべきであるそう両方とも一緒に動かす。現在の選択の札を得るためには、何かをのような試みなさい: 戻されたリストの札を[ # gettags の流れ] 置きなさい、このregexp {obj(\d+)} のようなobj 数を用いる札を、例えば$tags - > 数札にレコード終端一定のテキストの[ # itemcget text$number - テキスト] 見つけなさい与えることによってテキストを取り出すことができる。 -------------------------------------------------------------------------------- ' ' 赤、青いかまたは着色された輪郭を備えるためにgoldshell7'':28jul2006 からのQ. は、指定タイルを望む。どんなにコメントされた"c itemconfigure tile_number -" の赤い輪郭はoutine を着色したが、縦の整理されたテキストにテキストの壷を戻す。テキストを横保つ方法を多分誰かは計算できる。 -------------------------------------------------------------------------------- yinw2ei # ビーフのni3ur2ou がのでr3u が# r2ang を# 頼むと同時にsui が# 常にm3injian の中のzongsh2i # # およびh3e # 出現のxi2ang # 出現のxi2ang # およそd2ayue # # y3ing 軍隊頼むが# volcabulary テスト及び余分中国のpinyin は# 曲芸のz3aj2i # 代理のyanchu # yih2ou # 午後のxi2awu の後のr3anh2ou の後の先発のj2in # # # 再度z2ai # すべてのdou # またye # # 面guo # 援助の強打# 援助のbangzh2u # 自動z2id2ong # qiutian 秋# 車軸zh3ou # ballast_trackbed _ su2ish3i # 禁止のsh2ang # 禁止のy2i # 銀行y3inh3ang # banker_fire のbuji # バスケットボールのl3anqi3u を# であるsh2i # be_able hu2i # 音da # w2en qi3an # jian 間のkaishi を# # 手形ダン# 手形のfapi2ao # 誕生日のshengr2i # 打撃のgua # 打撃のgua # b3o Sh2anghai # 板禁止# ボギーzhuanxi2angji2a # 本のshu # 本のshu # 両方梁# 両方梁# 箱のxiang # 有蓋貨車のp3engche # zhixi2an ブレーキzh3a # branch_line # 橋qi3ao # 橋qi3ao # 橋qi3ao # 明るいCAI # 明るいCAI # m3ingpi2an 華麗なjingcai # brother_younger のd2idi # 兄弟のxiongd2i # Bu のdu2i # b2u のpao # builder_plate のm3ingp3ai # バスgongg2ongq2iche # ビジネス# ビジネスshengy2i # ビジネスy2e # business_card のm3ingpi2an # 使用中のm3ang # d2ansh2i # kesh2i # 買物のmai # caboose のshouche 始めなさい前に# # 呼出しji2ao は# できるh2ou # できるKe # できるn3eng # 容量のd2u # キャリッジk2eche # キャリッジk2eche # 現金du2i # 部門のshu # 懸垂線状のji2akongsh2i_jiech2uwang # 確かにb2i # 中国語ch3en # 中国のh2anyu # 中国のh2anz2i # クラスのxi2ak2e # 古典jing # 明確なqing # 明確なqingchu # 気候のq2ih2ou # クリップjia # 時計のzhong # 近いj2innear # m3ei_t2an 石炭# coalmine のm3eiku2ang # 冷たいleng # 大学d2ag2ai # colour_light_signal のs2edeng_x2inh2aoji # 来られたl3ai # 商業のshang # 会社のgongsi # 比較するbiji2ao # 競争のbis2ai を# 完全なzhou # 続けるj2ix2u を# 便利なfangbi2an # 便利にsh2unbi2an # du2ihu2an 改宗者# r2eq3ing 強壮剤# 正しいb3ucu2o # 正しいr3an # 国のgu3o # 技術のshouy2i # cross_tie はguizhen # quxi2an カーブ# l2uqi2an 切断# ダンスウー# ダンスのwudao # tian 娘nu3er # 日# 深くshen # 渡すjiw2udu2an jiao # ターミナルを# 装置zhuangzh2i # 方言于# 辞書のc3idian # ディーゼルch3aiy3ou # diesel_electric_locomotiv のdi2anchu3and2ong_n2eir3an_jiche # diesel_hydraulic_locomoti のy2el2ichu3and2ong_n2eir3an_jiche # diesel_locomotive n2eir3an_jiche # 別のch2a # 困難なn3an # 困難なn3an # dining_car canche # 直接zh3ijie # 皿のc2ai # 表示bai # 明瞭な儲# 分けるfen を# するdu2anli2an # するy3ingy2e を# するzu2o を# 国内gu3on2ei # f2uxi2an double_track # ドラゴンのl3ong # 引くことのロゼット# 飲み物彼# 運転者のsiji # yu3an ゆで団子のjiaozi # 王朝# 早くxian # 早くxian は# 東にdong # 東# 食べるバオを# 食べるχを# より古いgege # より古いjiejie # electric_locomotive di2anl2i_jiche # di2an 電気# 帯電di2anq2ihu2a # 堤防のl2udi # 空のkong # 終わりのm2o # エネルギーjing # 英国のyingyu # 入るj2inadvance に# 特にt2ebi3e # etween jian # 完全に# b2angwan 夕方# あらゆるmei # あらゆるmeitian # 毎日のjingch3ang # express_train のgaos2u # express_train のku2ais2u # express_train のt2eku2ai # express_train のku2aiche # 非常にj3i # 目のm2u # 家族jia # ずっとyuan # 速いku2ai # 父のb2aba # 父のf2umu # 祝祭のji3e # 盛り土の人# フィンランドFenl3an # 火のhuo # 最初にxi2an # 魚のy3u # fishplate のy3uweiban # 平らなp3ing は# gei のgei のための流暢なli3ul2i # フットボールのz3uqi3u # # # 予測したy2ub2ao を# 外国のw2aiyu # 家禽季# フレームのji2a # freight_car hu2oche # freight_train のhu2oche # z2i # フルーツguo # フルーツのshuiguo # 燃料のch3aiy3ou # ガスのq2i # ゲージのbiao からのc3ong からのフランスのfayu # 友人のp3engyou # # # 寛大なd2afang # ドイツドイツのd3eyu # d3egu3o # 得るji3ehun # gether のy2iqi # ch3an 弾力性のqingk2e # 供給過剰を# 行く儲# chuq2u 行く# d2ao 行く# 行くsh2angban # 行くWang # b2an gondola のchangche # どら# どらのg2u # よいhao # さようならz2aiji2an # goods_train のhu2oche # goods_van p3engche # しかしy2aosh2i # 輸入のj2inchukou # 印象のy2inxi2ang # インのdi2an # 嬉しいhuan # 蹴りのチタニウムが# r3uguo # zenmeshuo # how_old のduod2a # d2ansh2i # 百bai # I wo # 氷のbingqi3u # かいかに季# かいかにduod2a # かいかに勾配のpod2u # 卒業のb2iy2e # guai は# guan 缶# gu2an x3i # guards_van shouche # ゲストk2er3en # x3igu2an 習慣# 半分b2an # ハムのhuotui # 幸せなgaox2ing # 幸せなku2ail2e # 幸せなl2e # hard_sleeper のy2ingw2o # 持っている# 熱r2e # 熱r2e # ヒーターのnuanq2i # 助手のbuji # 高く高# 丘のシャン語# ブタ朱# 熱いl2a # 熱いr2e # 家のl3ou # 誘拐する# y3i # l3ou Zhong を失うために# より低いディディミアム# wuf2an 昼食が# 機械季# 機械季# m3afan 悩み# ganxi2an main_line # dadi2anhu2a # マネージャーのjingli # 地図のd2it3u # marshalling_yard のbianzuchang を# かもしれないkeyi # かもしれないqingw2en # 測定mi # 肉r2ou # メカニズムのq2i # メカニズムのjig2ou # yi # metering_device の医学のbiao # 作ることをliao # 言語が# 最後のsh2anggeyu2e # 許可のl3i # 許可のl3ikai # 許可のli3u # 長さのch3ang # 手紙のx2in # level_crossing d2aokou # t3ushuguan 図書館# xihuan のようなlight_rail のqinggui # # ting 聞く# loco_shed jiw2udu2an # locomotive huochet3ou を# 長くjiu # canguan 一見# 一見見るw3en ことをguai を# 親切なzhong # 知っている誘拐しなさい中間のzhong は# かもしれなかったken3eng # 微細なfenzhong # 氏のxiansheng # 混合したz3a # mixed_train のk2ehu2oh2unh3e_li2eche # お金のb2i # 月のyu2e を# より多くのyu2el3aiyu2e # 翌日にm3ingtian # 母mama # 母ma # 山のシャン語# 移動gand2ong # 動きのy2und2ong # t2aitai # multiple_track j2in の近くで# multiple_unit_train のd2ongchezu # 私のwode # name_personal のm3ingzi # narrow_gauge_railway xiaohuoche # narrow_gauge_railway zhaigui_tiel2u # f2uxi2an 氏xiansheng # 夫人# 必要なb2iy2ao # 否定的なm3ei # 次にm3ingni3an # 素晴らしいli3angkuai # b3ugu2o # nali # Nokia Nu2oj3iy2a # 正午のzhongwu # 北にベイ# ないb2u # ないb2ushao # 今xi2anz2ai # 数h2ao # 従うために観察する# オフィスのb2angongsh2i # 頻繁にch3ang # オイルのy3ou は# 1 yi # x2ing # shiyou ただ# zhi ただ# open_wagon のchangche # 機会のjihu2i # 通常のp3ingch3ang # ordinary_passenger_train のputongche # ordinary_stopping_train のputongche # べきであるgai # 外側のw2ai # overhead_wires のji2akongsh2i_jiech2uwang # gu2ojiang # ウシのni3u # 組のdu2i をoverpraise ために# panfry chaosaute # 激痛のポーン# chu3an パンタグラフのsh2oudi2angong # パス# 乗客のluk2e # passenger_train のk2eche # 人々m3in # 人r3en # 物理的なtiy2u # guan 管# dasu2an 計画# 版の禁止# w3an プラットホームのzh2ant3ai # 演劇# qing # qingbi2an # 複数人# ポイントd2aoch2a # ポーチのl3ang # ポークzhur2ou # 現在のji2esh2ao # 深遠なshenk2e # プログラムji3em2u # 発音のfayin # quarterhour のk2e # 質問はne # 柵のganggui # 鉄道tiel2u # railway tied2ao # railway_track のguid2ao # 雨xi2ayu # 臭いdeng # 読んだni2an # 実質のzhen を# 実際にsh3iz2ai # レシートfapi2ao # 受け取るshou を# 受け取るsu2an zhaod2ai # 点を# su2an 点# tu3an 連隊# h2an 後悔# y3ih2an 後悔# 解放のf2ang # 解放のf2ang # r3en k2e # 残りのxiuxi を# 帰りのhu3i # zhao # 乗車の帰りのq3i # 右のy2oubian # road_formation のd2aochu3ang # 路床のl2uji # 路床のd2aochu3ang # 大体d2ag2ai # 大体d2ag2ai # ルートのl2u # 動かされたpaob2u # anqu3an 安全# サラダs2ela # 同じy2iban # saute chao # 学校のxu3exi2ao # 座席zu2owei を# # sleeping_berth のw2op2u # 遅いm2an # chouyan 煙# 煙yan # 雪のxi2axue # soft_sleeper のruanw2o # 息子の3erzi # sorry_I_am のdu2ibuqi # 南にn3an # 予備のk2ongr # 話せばshuo # spicey のl2a を# 話されていたkouyu # chuntian ばね# スタンプのy2in # 標準的なbiaozhun # standard_gauge のbiaozhun_guij2u # 開始のchufa が# tie_guizhen gai # エビxia # シャッターchuang # si のどら# 四川S2ichuan # 側面のc2e # 信号のx2inh2ao_ji # 絹のsich3ou # danxi2an single_track # sister_younger のm2eimei # 姉妹のjiem2ei # zu2o を坐らせるために# 技術のj2i # 眠る人もし# 自己のz2iji # 販売法のm2ai # semaphore_signal のb2iban_x2inh2aoji # 送るためfa # ことをji2an ことをseat_hard のy2ingzu2o # kuan seat_soft ruanzu2o # セクションは# 見るzh2an 場所は# 場所のzh2ant3ai # huoche_zh2an 場所# 滞在戴# 蒸気のzhengq2i # steam_locomotive zhengq2i_jiche # まっすぐにzh3i # streetcar のyougui_di2anche # structual de # 学生のxu3esheng # 調査のxu3e # su2an da # suburban_train のsh2ijiao_li2eche # 地下鉄のd2itie # 夏のxi2atian # 明るいq3ingtian # スウェーデンRu2idian # 水泳のy3ouyong # スイッチd2aoch2a # テーブルのzhuozi # 取得qu # t3an 話# 話のt3an # tank_car gu2anche # タンカーのgu2anche # 好みのch3ang # 風味がよいhaochi # 風味がよいhaochi # 茶ch3a # 教えるjiao # tiant3an 教師のlaoshi # 寺院を# テニスのwangqi3u # 言葉の調査# thank_you のxi2exie # そのn2a # zu2i # そこに持っている# このjinni3an # このzh2e # dong は# ku2aiyuan 単位が# 大学d2axu3e # 有用なyouy2ong # 休暇のji2a # 弁のf3a # 野菜のshuc2ai # 車のche # 非常に雌鶏# バレーボールのp3aiqi3u # wagon_car hu2oche # 歩行のy3ou # 歩行zou # y2ao が# 暖かいnuan # 水shui # 水shui # water_crane のshuih2e # water_tower のshuita # 私達女性# 私達z3anmen # 天候のtianq2i # ほしいと思うことをdong が# 理解することをthrough_train のzh3id3a # through_train のzh3itong_che # 切符のchepi2ao # 時間のsh3ihou # タイムテーブルのsh3ik2ebiao # 列車のhuoche # 列車のhuoche # 列車のli2eche # 市街電車のyougui_di2anche # 踏面のdao # 旅行のluy3ou # trolley_bus のw3ugui_di2anche # truck_rail のchangche # トンネルのsu2id2ao # 回転盤のzhuanp3an # ないb2uliao は# underground_railway d2itie # 理解するw2eish3enme # 風のfeng # 窓のchuangkou # ワインのjiu # の願いのzh2u が# GEN # 単語のhu2a # 仕事のgongzu2o # worksplate のm3ingp3ai # ni3an xie # 年を# 昨日zu3otian # you_formal n3in # l3ing ゼロ# shang の上のzhuangzh2i # # なぜ書くかnali # na # m3ing 笛# ところで# 車輪のl3un # gu2ix2ing 何が週のxingqi # huany3ing 週末のzhoum2o # 歓迎は# y3ing 歓迎# 西のXI # 西のXI # xican 西部様式# どんなsh3enme # どんなsh3enmesh3ihou # 着くdaoda # 著者のzuiozhe # 銀行yinhang # 浴槽のlahncheo # haiwan 電池dianchi # 湾# 猫毛# 雲のyun # 来られたlai # 女の子のnuer # 彼はta # 馬ma # それはta # 1 yi # 雨于# 煙yan # lian 2 # 水shui # 痛みはさみ# 加えるjia # 海軍大将のhaijunshang # 空気kongqi # 飛行機のfeiji # 空港feijichang # 細道のhutong を# 離れてlu # xing りんごのpingguo # 杏子# 腕のgebo # jian 肘掛け椅子のfushiuyi # 矢# 頼むwen # アスパラガスのlusun # 地図書のdituji # アチックのgelou # 秋のqiu # 斧のfutou # 車軸lunzhou # 赤ん坊のyinger # 袋バオ# 球のqiu # bochuan バレエのbaleiwu # はしけ# オオムギのdamai # haitan バラックyingfang # 浜# ビードのjhuzi # くちばしホイ# 豆dou # くまのxlong # ひげhuzi は# 美しいmeili # ベッドchuang # ミツバチの巣のfengxiang # ビールpijiu # 鐘のleeng # 大きいda # バイクのzixingche # 鳥のnaio # ビスケットのbinggan # 黒いhei # 総括的なtanzi # ブロンドのjinse # 血のxue # 花華# 花華# LAN # ボートzhou # 骨グウ# 本のshu # びんのpingzi # 弓どら# 枝shuzhi # 明るいming # 広いkuan # 茶色のzongse # 于によって青い# 于# キャリッジ既往のche # コップベイ# 切ったduan # ダンスのtiaowu を# 暗いhei # シカlu # ドアの人# dream meng # 乾燥したgan # 弱々しいアヒルya # イブ# 落下劉# 分野yuan # 火のhuo は# 最初にxian # 平らなポーン# 霜のshuang # ゲートの人# ガチョウyan # 草cao # guang の緑のluse # 輝やき# 懸命にying # ヘッドtou # 聞くting # 中心xin を# 高くzai # ランプdeng の高# 丘のシャン語# # 長くchang # kan 一見# 月ユェ# 夜ye # ないBu # 開いたkai # 道のxiaodao # ナシのリチウム# 真珠のzhenzhu # マツ歌# 赤い洪# 米mi # 川江# 石のshi # 根GEN # 砂シャ# 海のhai # kan 見るために# 彼女ta # 海岸# 坐らせるためにtian # 小さいzuo # 空をxiao は# 雪のxue # 歌はzai # 吠え声のshu でGE # 健全なシェング# xing 星# ストーブlu # 太陽のri # 破損のlei # * # * # にGE # mingtian tomarrow # 町zhen # zai # 微風xiaofeng が# huo # コイを燃やす前にyao # kan # 白いスズメバチのhuangfeng # 腕時計がbai # 広くnian # 石灰で消毒する黄色い黄# 洞窟shandong # ヒマラヤスギの歌# 夜明けkuan # 野生のyesheng # 風feng # 年# ジャンプのtiao # 跳躍のtiao # 単独dandu # ガのkunchong # ばら色のmeigui # 浸すshui # 木のshu # 歩行zou # 波のbolang # 蟻のkunchong を# # ほしいと思うting # 氷がxue # インクmoshui # 昆虫のkunchong # zhi # ヒスイ于# ケルプであることを于# guoxing 喝采は# チェリーのyingtao # 梁# クレーン涼しいniao # 頂上xia # コオロギのkunchong # 叫びのチタニウム# 深くshen # シカlu # 鳩のnaio # zhou # 薄暗がりheitian 漂流zhou # 漂流# ニレのshu # 落下劉# ずっとyuan # 塀のliba # フリップzhou # 浮遊物のpiao # 華# はえフィージー# flys フィージーwei のための流れ劉# 花# # 前部にzai # 幻影のチタニウム# 嬉しいgaoxing # 灰色のcangbai # 悲しみのnanguo # シェング# ノウサギのtuzhu を# 持っている# ting を聞くために# 聞く育てるhaizhiwu は# 朱# 湖が彼# 葉のshu # 葉のshu # うそのzhi # milu # 愛をai # 緑豊かなデュオ# 霧ウー# 月ユェ# 曉zaochen # 朝zaochen # カのwenzi # コケlu # コケlu # 台紙のシャン語# マウスのlaoshu # zhou # 巣chang # カシのshu 移動zhou # 移動# heping 薄いcangbai # エンドウ豆のxiaodou # 平和# モモtao # とまり木于# 植物のzhiwu # プラムlizi # 池のchitang # プールのchitang # 悪いqiong # quince のyingtao # ウサギのtuzhu # リードcao # 川彼# 道のリチウム# ねぐらchang # 荒いbuping # 悲しいnanguo # 帆失ったことを知っているファン# 塩yan # 蛇彼女はzai # 待ち時間のzho # 待ち時間zhou # 雑草のzhiwu # みみずのwongnu の方のzai によって# 陰si # 輝やきのzhaoyao # 靴のxie # 絹si # 坐らせるshuimian zuo # 睡眠を# shuimian 睡眠# 斜面のシャン語# 微笑xiao # かたつむりのwongnui # ヘビ彼女# 土DU # 石造りのshi # 嵐のfengbao # strean 彼# 取る# 茶シェ# 厚くhou # 薄いshou # # # ゼロヒース# 0 本のヒース# 1 yi # 1 yi # 2 えー# 3 サン# 3 サン# 4 si # 4 si # 5 ウー# 5 ウー# 6 劉# 6 劉は# 7 CI # 7 CI # 8 Ba # 8 Ba # 9 jiu # 9 jiu # 10 shi # 10 shi # 11 shi_yi # 11 shi_yi # 12 shi_er # 20 er_shi # 20 er_shi # 21 er_shi_yi # twenty_two のer_shi_yi # 100 bai_bye_yi_bai # 百bai_bye_yi_bai # 300 san_bai # three_hundred san_bai を# yi_wan 1000 cian # 千cian # 10000 # shi_wan ten_thousand yi_wan # 100000 # yi_bai_wan hundred_thousand shi_wan # 1000000 # shang # 痛みはさみの上で# yi_bai_wan thousand_thousand # 加えるjia # 海軍大将のhaijunshang # 空気kongqi # 飛行機のfeiji # 空港feijichang # 細道のhutong # 蟻のkunchong を# 離れてlu # xing りんごのpingguo # 杏子# 腕gebo # 肘掛け椅子のfushiuyi はzai # 地図書のdituji で# daoda # jian 矢着く# 頼むwen # アスパラガスのlusun # # アチックのgelou # 著者のzuiozhe # 秋のqiu # 斧のfutou # 車軸lunzhou # 赤ん坊のyinger # 袋バオ# 球のqiu # バレエのbaleiwu # bochuan 銀行yinhang # はしけ# 吠え声のshu # オオムギのdamai # バラックのyingfang # 浴槽のlahncheo # haiwan 電池dianchi # 湾# zai # 鐘のleeng の前に# ビードのjhuzi # くちばしホイ# 豆dou # くまのxlong # ひげのhuzi # 美しいmeili # ベッドchuang # ミツバチの巣のfengxiang # ビールpijiu # haitan 浜# 大きいda # バイクのzixingche # 鳥のnaio # ビスケットbinggan # 黒いhei は# 総括的なtanzi # ブロンドのjinse # 血のxue # 花華# 花華# LAN # ボートzhou # 骨グウ# 本のshu # びんのpingzi # 弓どら# 枝shuzhi # 微風xiaofeng # 明るいming # 広いkuan # 茶色のzongse # 焼跡のhuo # 于によって青い# guoxing 既往の于# コイ于# キャリッジche # 猫毛# 洞窟shandong # ヒマラヤスギの歌# 喝采# チェリーのyingtao # 雲のyun # lai 来る# 梁# クレーン涼しいniao # 頂上xia # コオロギのkunchong # 叫びのチタニウム# コップベイ# duan # ダンスの切られたtiaowu # 暗いhei # 石灰で消毒する夜明け# 深くshen # シカはlu # シカlu # ドアの人# 鳩のnaio # dream meng # 漂流zhou # 漂流zhou # 乾燥したgan # heitian アヒルのya # 薄暗がり# 弱々しいニレshu # イブ# 落下劉# 落下劉# ずっとyuan # 塀のliba # 分野yuan # 火のhuo # 最初にxian # 華# はえフィージー# flys フィージーwei のための平らなポーン# フリップzhou # 浮遊物のpiao # 流れ劉# 花# # 前部にzai # 霜のshuang # ゲートの人# 幻影のチタニウム# 女の子のnuer # 嬉しいgaoxing # ガチョウyan # 草cao # 灰色のcangbai # 緑のluse # 悲しみのnanguo # 育てるシェング# guang を朱# 湖が彼# ランプdeng # 葉のshu # 跳躍のtiao # 葉のshu # うそのzhi # 単独dandu # 長くchang # kan 一見# 失われたmilu # 愛ai # 緑豊かなデュオ# ユェ# 月ユェ# 曉霧ウー# 月# 朝zaochen # カzaochen ことをting # 中心xin が# 高く高# 丘のシャン語# 馬ma # zai # インクmoshui の氷のxue # # 昆虫のkunchong # zhi # それta # ヒスイ于# ジャンプのtiao # ケルプのhaizhiwu # 知っているであることを輝やきに# 懸命にying # ノウサギのtuzhu # # 彼ta # ヘッドtou # ting を聞くために# ting を聞くために# 聞くあるwenzi # コケlu # コケlu # ガのkunchong # 台紙のシャン語# マウスのlaoshu # zhou # 巣chang # 夜ye 移動zhou # 移動# ないBu # カシのshu # 1 yi # 開いたkai # 薄いcangbai # 道のxiaodao # heping エンドウ豆のxiaodou # 平和# モモtao # ナシのリチウム# 真珠のzhenzhu # とまり木于# マツ歌# 植物のzhiwu # プラムlizi # 池のchitang # プールのchitang # 悪いqiong # quince のyingtao # ウサギのtuzhu # 雨于# 赤い洪# リードcao # 米mi # 川江# 川彼は# 道のリチウム# 石のshi # ねぐらchang # 根GEN # 上がったmeigui は# 荒いbuping # 悲しいnanguo # 帆ファン# 塩yan # 砂シャ# 海のhai # 見るkan # 蛇彼女# 陰si # 彼女ta # 輝やきのzhaoyao # 靴のxie # 海岸# 絹si # zuo を坐らせるために# 坐らせるtian zuo # 空を# shuimian 睡眠# shuimian 睡眠# 斜面のシャン語# 小さいxiao # 微笑xiao # 煙yan # かたつむりのwongnui # ヘビ彼女# 雪のxue # 浸すshui # 土をDU # 歌GE # 健全なシェング# xing 星# 石造りのshi # 嵐のfengbao # ストーブlu # strean 彼# 太陽のri # 取得# 茶シェ# 破損のlei # * # * # 厚くhou は# zai による薄いshou # # へのGE # zai # 町zhen # 木のshu の方に# mingtian tomarrow # lian 2 # 待ち時間のzho # 待ち時間zhou # 歩行zou # ほしいと思うyao # kan スズメバチのhuangfeng # 腕時計が# 水shui # 波のbolang # 雑草のzhiwu # 白いbai # 広くkuan # 野生のyesheng # 風のfeng # みみずのwongnu # 年のnian # 黄色い黄# 任意日本のromanji の単語の配列の一定のen_romanji {赤いaka の悲しいkanashii の青いaoi_ao の嬉しく嬉しく深く深く黒いkuroi の野生のyasee の緑のmidori-iro の薄いusui の明るいakarui_taiyoo の荒く荒い灰色のguree の茶色のchairo の長く長く高いtakai 薄く薄く緑豊かなsubishii の乾燥したkawaite_iru の悪いbimboo の単独subishii ずっとずっときっかりきっかり広く広く厚く厚く堅く堅く涼しく涼しい猫猫のマウスのマウスのリードリードナシのナシのquince のquince のモモのモモのノウサギのノウサギの鳥の鳥の煙の煙雨雨氷の氷の雪の雪の雲の雲の家の家の花の花の空の空の米の米のマツマツ霧の霧のドアのドアの風の風のコオロギのコオロギ年年の月の月クレーンクレーン草の草のばらばら色インクインク雪解けの雪解けの花の花湖湖のヒマラヤスギのヒマラヤスギの薄暗がりの薄暗がりの秋の秋の石の石の夜明けの夜明けの流れの流れの木の木の中心の中心のボートのボートの悲しみの悲しみの石の石の町の町の破損の破損のプールのプールの絹の絹のシカのシカの歌の歌のはしけのはしけのコケのコケは夜夜ゲートのゲートの塀の塀の鳩の鳩の夢の夢の霜の霜の平和平和陰の陰の幻影の幻影の道の道道道の根の根の馬の馬イブイブの音の音の睡眠の睡眠は残す葉の海の海の帆帆ピークのピークの茎の茎分野分野の波の波斜面斜面の吠え声の吠え声の頂上の頂上の雑草の雑草のガのガのスズメバチのスズメバチの池の池の土の土のかたつむりのかたつむりみみずみみずの蟻の蟻のケルプのケルプの洞窟の洞窟月月の頭部の頭部のヒスイのヒスイの枝枝骨の骨の微笑の微笑のエンドウ豆のエンドウ豆のニレのニレの曉の曉のコイのコイの巣の巣のカシのカシのとまり木のとまり木の微風の微風の台紙の台紙のプラムプラム嵐の嵐の丘の丘の落下落下焼跡の焼跡フリップフリップflys のflys のうそのうその歩行の歩行を流れの流れの落下落下はえのはえは来られた来られた大会の大会の漂流の漂流の輝やきの輝やきが浸す叫びの叫びのダンスのダンスによって失われる失われた喝采の喝采の浮遊物の浮遊物のねぐらのねぐら移動移動を衰退する取得衰退する取得が坐らせる跳躍が坐る育つ育てる待ち時間は失う聞く聞くほしいほしいと思うのためののための古い古いドングリのdonguri の既往の既往ででへへの方にの方にtasu の恐れているkowai のアフリカのafurika の瑪瑙のmenou のain_t のjyanai の飛行機のhikooki の細道のroji のわにarigeta のわにwani のアルファベットのarufabetto のmo のitsumo の救急車のkyukyusha のアンカーikari の天使のtenshi のangelfish のenzerufisshu の角度のkakudo のangry_mad のikatte_iru のangry_mad のokotte_iru の動物のdoubutsu の足首のashikubi の蟻のari を常にまた加える腕時計の腕時計が失う待ち時間を坐らせる跳躍を坐らせる愛愛睡眠の睡眠の浸ることを知っている知っているantartica のnankyoku_tairiku のカモシカのkamoshika のサルのsaru のりんごのringo のエプロンepuron のアクアリウムのsuiso のアーチのaachi の射手のsyasyu のare_you の_ 良いarithmetic_problem のsansu_no_mondai の腕のude の肘掛け椅子のhijikake_isu の矢のya の芸術e のアーティチョークのaatichooku の芸術家のgaka のアジアのajia の眠ったnemuru のassasin のhitokiri のNI の運動選手supotsuman 原子のgenshi の注意のkiyo_tsuke のオーストラリアのosutoraria のautumn_fall のaki のavacado のabocado の驚くばかりのsaiko の斧のono の赤ん坊のakanbo の不良のmazui 袋のfukuro の球のburu のバレリーナのbareriina の気球の星状のshowakusei の宇宙飛行士のuchuu_hikushi はgomu_fuusen bamboo_shoots のtakenoko のbamboo_sword のshinai のバナナのバナナのオオムギのmugi の納屋のnaya のバレルのtaru の野球のyakyu_boru のbaseball_bat のbatto のbaseball_cap のboushi のバスケットのbasuketto のバスケットのzaru のbat_animal kumori のbathing_swimming_s のmizugi の浴室のmitarai の浴室のotearai の浴槽のyubune 浜のhama 浜のkaigan くちばしのkuchibushi くまのkuma の美しいkirei の美しいutsukushii のビーバーのbiiba のベッドをbeddo の蜂のhachi のbee_hive mitsubachi_no_su のミツバチの巣のhachi_no_su のカブトムシのkabutomushi のbegin_start のhajime の鐘のkane のホタルブクロのkikyo の自転車のjitensha の鳥のトルスの黒いkuro_kuroi のクロドリのburakku_berii のブロックのtsumiki のbloomers のbulma のブラウスのburausu のボートのbuto のボートのfune ボディkarada のbon_appetite のitadakimasu の骨の砥石の本のhon の本箱のhonbako のブーツのbutsu のびんの大箱の花束のhanataba の弓chomusubi ボールのboru 箱のhako の男の子は男の子のbozu のブレスレットのburesuretto の頭脳のnu のbrat のgaki のパン焼皿の朝食のchoshoku 胸のoppai の明るいブロッコリーのburokkorii のほうきのhoki の茶色のchairo のバケツのbaketsu のbuckwhe のsoba の水牛のbuffaru の虫のmushi の建物のtatemono の雄牛のushi のブルドーザーのburuduzaa のパンの禁止のburdockroot のgobo の焼跡のmoeru バスbasu をake shonen が、デモのバターbataa の蝶cho ボタンのbotan bye_parting_greeti のja_ne_ja のタクシーのtakushii のキャベツkyabetsu のサボテンはsaboten ケーキのkeeki をカレンダーにかけるkarenda のラクダのrakuda のカメラのkamera のキャンプのkyampu_suru のキャンピングカーのkyanpingu_ka の缶のkanzume のcanary kanaria の蝋燭のrusoku キャンデーのkyande の杖のtsue のカヌーのkanue 渓谷のkureyon 車のjidusha 車のkuruma のカーネーションのkaaniishon のカーペットのkaapeto のにんじんのninjin のカートのniguruma の城のshiro 猫のneko のcaterpiller のkemushi の洞窟のhora_ana の洞窟のデッサンのcelary serori のcell_anatomy saibu の鎖のkusari の椅子のisu の安いchinke のcheek_anatomy hoho のチーズchiizu のチェリーのsakurambo のcherry_blossom の花の箱のmune のひよこのhiyoko の鶏のniwatori の子供のkodomo のチンパンジーのchimpanjii の顎の前にchopstick のhashi 教会kyokai の円のmaru のサーカスのsakasu 都市toshi のハマグリのhamaguri の爪のtsume の粘土のnendo の時計のtokei は着せるfuku の雲のkumo の道化師のpiero のコートのuwagi のクモの巣のkumo の棺のhitsugi の硬貨のkoka 色のiro の櫛のkushi の彗星のsuisei のコンパスのkonpasu コンピュータkonpyuta の円錐形のensuikei のクッキーにkukkii の涼しいkakoii の涼しいsuge の珊瑚のsango のトウモロコシのtomorokoshi のコーナーのkatsumi のcotton_candy watagashi のソファのソファー牛meushi のカニのkani クレーンtsuru のがらくたのkuso の噴火口のkureta のcrazy_insane のreijuu のワニのwaniacorn のdonguri はNI の運動選手のsupotsuman 原子で常にまた加えるtasu の恐れているkowai のアフリカのafurika の瑪瑙のmenou のain_t のjyanai の飛行機のhikooki の細道のroji のわにarigeta のアルファベットのarufabetto のmo のitsumo の救急車のkyukyusha のアンカーikari の天使のtenshi のangelfish のenzerufisshu の角度のkakudo のangry_mad のikatte_iru のangry_mad のokotte_iru の動物のdoubutsu の足首のashikubi の蟻のari のantartica のnankyoku_tairiku のカモシカのkamoshika のサルのsaru のりんごのringo のエプロンepuron のアクアリウムのsuiso のアーチのaachi の射手のsyasyu のare_you の_ 良いarithmetic_problem のsansu_no_mondai の腕のude の肘掛け椅子のhijikake_isu の矢のya の芸術e のアーティチョークのaatichooku の芸術家のgaka のアジアのajia の眠ったnemuru のassasin のhitokiri の星状のshowakusei の宇宙飛行士のuchuu_hikushi をgenshi の注意のkiyo_tsuke のオーストラリアのosutoraria のautumn_fall のaki のavacado のabocado の驚くばかりのsaiko の斧のono の赤ん坊のakanbo の不良のmazui 袋のfukuro の球のburu のバレリーナのbareriina の気球はgomu_fuusen bamboo_shoots のtakenoko のbamboo_sword のshinai のバナナのバナナのオオムギのmugi の納屋のnaya のバレルのtaru の野球のyakyu_boru のbaseball_bat のbatto のbaseball_cap のboushi のバスケットのbasuketto のバスケットのzaru のbat_animal kumori のbathing_swimming_s のmizugi の浴室のmitarai の浴室のotearai の浴槽のyubune 浜のhama 浜のkaigan くちばしのkuchibushi くまのkuma の美しいkirei の美しいutsukushii のビーバーのbiiba のベッドのbeddo の蜂のhachi のbee_hive mitsubachi_no_su のミツバチの巣のhachi_no_su のカブトムシのkabutomushi のbegin_start のhajime の鐘のkane のホタルブクロのkikyo の自転車のjitensha の鳥のトルスの黒いkuro_kuroi のクロドリのburakku_berii のブロックのtsumiki のbloomers のbulma のブラウスのburausu のボートのbuto のボートのfune ボディkarada のbon_appetite のitadakimasu の骨の砥石の本のhon の本箱のhonbako のブーツのbutsu のびんの大箱の花束をhanataba の弓chomusubi ボールのboru 箱のhako の男の子は男の子のbozu のブレスレットのburesuretto の頭脳のnu のbrat のgaki のパン焼皿の朝食のchoshoku 胸のoppai の明るいブロッコリーのburokkorii のほうきのhoki の茶色のchairo のバケツのbaketsu のbuckwhe のsoba の水牛のbuffaru の虫のmushi の建物のtatemono の雄牛のushi のブルドーザーのburuduzaa のパンの禁止のburdockroot のgobo の焼跡のmoeru バスbasu をake shonen が、デモのバターbataa の蝶cho ボタンのbotan bye_parting_greeti のja_ne_ja のタクシーのtakushii のキャベツkyabetsu のサボテンはsaboten ケーキのkeeki をカレンダーにかけるkarenda のラクダのrakuda のカメラのkamera のキャンプのkyampu_suru のキャンピングカーのkyanpingu_ka の缶のkanzume のcell_anatomy canary kanaria の蝋燭のrusoku キャンデーのkyande の杖のtsue のカヌーのkanue 渓谷のkureyon 車のjidusha 車のkuruma のカーネーションのkaaniishon のカーペットのkaapeto のにんじんのninjin のカートのniguruma の城のshiro 猫のneko のcaterpiller のkemushi の洞窟のhora_ana の洞窟のデッサンのcelary serori をsaibu のチェーンkusari の椅子のisu の安いchinke のcheek_anatomy hoho のチーズchiizu のチェリーのsakurambo のcherry_blossom の花の箱のmune のひよこのhiyoko の鶏のniwatori の子供のkodomo のチンパンジーのchimpanjii の顎の前にchopstick のhashi 教会kyokai の円のmaru のサーカスのsakasu 都市toshi のハマグリのhamaguri の爪のtsume の粘土のnendo の時計のtokei の衣服のfuku の雲のkumo の道化師のpiero のコートのuwagi のクモの巣のkumo の棺のhitsugi の硬貨のkoka 色のiro の櫛のkushi の彗星のsuisei のコンパスのkonpasu コンピュータkonpyuta の円錐形のensuikei のクッキーのkukkii の涼しいkakoii の涼しいsuge の珊瑚のsango のトウモロコシのtomorokoshi のコーナーのkatsumi のcotton_candy watagashi のソファのソファー牛meushi のカニのkani クレーンtsuru のがらくたのkuso の噴火口のkureta のcrazy_insane のreijuu のcrop_land のsakumotsu のカラスのkarasu の王冠のookan 叫びのnaku の水晶suishu の立方体のripputai のかっこうのkakkoo のきゅうりのkyuuri のcucumber_and_rice のkappa_maki のコップのkappu の食器棚はshokkidana のcurtain_drape はかわいいkawaii シリンダーenchu のヒナギクのhinagiku のダンスのodoru のダンサーをkaten odorite の危険が危ないabunai の暗い空日のnichi の深いfukai のシカのshika の鬼のmazoku の砂漠のsabaku の机のtsukue のデザートのdezaato の悪魔のakuma の悪魔のoni のダイヤモンドのdaiyamondo のダイスをkiken saikoro のダイスが夕食のyushoku の恐竜のkyoryu の土のtsuchi の皿のsara の医者をshin isha のdoes_have のnai 犬がaiken 犬のaikenka 犬のinu の人形のningyo のdollhouse のningyo_no_ie のイルカのdorufin のイルカのiruka のろばのroba のドアのdoa のこね粉のkiji の鳩のhato のshita をダースつのdaasu のドラゴンのryu のトンボのtombo の引くことのkaku の夢のyume のdrill_tool のdoriru のドラムdoramu のアヒルのahiru の子ガモのahiru_no_go の男のtoko のdump_truck のdampu_kaa のワシのwashi の耳mimi のイヤーマフのmimiate のイヤリングのiyaringu の地球のchikyuu のイーゼルのiizeru 食のnisshoku のウナギのunagi の卵のtamago のナスnasu の肘のhiji 優雅なkotan 象のzo のエレベーターのerebeta のオオシカのshoyosei のオオシカのujika のニレのnire のemotion_feeling 漢字の精力的なgenki エネルギー_ 力の封筒のfuutu の同輩のbyudu のequalivent onaji 赤道sekidu の消す物のkeshigomu のヨーロッパのyoroppa の毎日のmainichi はすべてsubete のevil_fortune のakkun のexclamation_mark のkantanfu の練習のundu_suru の明白なtsutawaru の目のhitomi の目私遠くの眉毛のmayu の表面kao 家族のkazoku のfamily_tree のikka_no_keizu nuju の羽のhane の感じのkimochi の塀のkakoi のシダのshida のfeudal_era のsengoku_jidai の高いfire_hydrant 消防士のshoboshi のfiretruck のshobosha の花火のhanabi の魚のsakana のfishbowl suizokukan 釣tsuri の旗のhata の炎のhono の炎のrecca のフラミンゴをshokasen 最終的なsaigo 指のyubi の指の爪のyubi_no_tsume の火を耕作するfuramingo の懐中電燈のkaichuu の足ひれのashihire の小麦粉のkomugiko の小麦粉のkona の花のhana の花の花のflower_stalk のmiki の花壇がkaden フルートのfuruto をはえのtobu のfly_insect のhae の食糧shokumotsu の愚か者のaho のfoot_feet のashi のフットボールのamerikan_futtoboru の足跡のashiato のfootstool のsutsuru の額のhitai の森林mori の化石のkaeseki 4 のyon 孤のkitsune の友人のtomodachi のカエルのkaeru のフルーツのfuruutsu のフルーツのkudamono のfruit_juice のfuruutsu_jusu のfull_demon のyoukai の漏斗のruto の家具のkagu の未来のmirai ギャラクシーgingakei のゲームのgemmu の廃物のgomi のゲートのgeto の宝石のhuseki の地理学のchiri のgerbil のjaabiru の幻影のobake のギフトのokurimono のえら時代のキリンのkirin の女の子のshojo のglass_cutlery のgurasu のglass_cutlery のkoppu のglasses_optical megane の地球のchikyugi の手袋のtebukuro のgo_away ache_kaere のヤギのyagi の金魚のkingyo のohayo_u_gozaimasu_gozaimash のさようならsayonara のgoose_geese gacho のゴリラのgorira のgrandfather_inform のjijii のブドウのbudo のグレープフルーツのgurepufurutsu の草のkusa のバッタのkirigirisu のバッタのbatta の灰色のhaiiro の緑のmidori のgreen_tea のocha の温室のgurin_hausu のゲストのkyaku のギターのgita をgood_morning good_evening konbanwa のgood_fortune 国連はhaiku のhaiku の毛のkaminoke のhairbrush のburashi のハンサムな半分のhanyo のハムのhamu のハンバーガーのhanbaga のハンマーのkanazuchi のハムスターのhamusutaa 手のte はいかにikaga のhow_are_you のhajimemashite のhow_are_you のo_genki)desu_ka のhow_many ikutsu のhow_much のikura の人間のningen のhummingbird のhachidori の空腹なonaka_ga_suiteiru のハリケーンのharikiin 小屋のkoya のi_ll_kill_you のomae_o_korosu のi_me_feminine のwatashi のi_me_masculine の鉱石のi_me_masculine のboku がかいかにかkikoeru はheart_emotional のkokoro のhot_spring heart_organ shinzou のhedgehog のharinezumi のかかとのkakato の地獄のnaraku のこんにちはmoshi_moshi のヘルメットのherumetto 半球のhankyuu の雌鶏のmendori の六角形のshichikaki のちょっとne のhi_hello のkonnichiwa の丘のoka のhip koshi のhippotomous kaba の賃借りのひれのholly_plant hiragi の家XX の角のkiteki の馬のuma のU 字形のtitetsu hot_tub のfuro 時間季をonsen ことをハンガーのhangaa の幸せなshiawase のatama が聞く幸せなureshii 港の波のハープのhaapu の帽子のbushi の憎悪のkirai の干し草のhoshikusa の霞のmoyatta の頭部をbishounen iloveyou のdaisuki のiloveyou_formal aishiteru のiloveyou_informal boku_ai インクinku の昆虫のkonchuu のkonomi のlittle_wolf のsyaoran の孤独なsabashii の主のtono のはす根の魔法のmoho の人のotoko のmartial_arts_train のdojo のmat_mattress のfuton の真夜中のmayonaka のmilitary_ruler のshogun の微細な楽しみの奇跡のkiseki の霧のkasumi の修道士のhoushi モンスターのkaijuu の月の米国の月光のgekko の朝asa 山のyama のような国際的なkokusai のiris_flower のayame の鉄のairon の島のshima のキヅタのtsuta のjapanese_type のkotatsu の急な動きのbakayaro の宝石のtama の葉のyoh の手紙のtegami ライトyukata ライトdenkyuu ライトhikari に私のwa の神秘的なfushigi のoops のtotto_totto のpassionate_love ai ローブの着物が残念なkare_san_sui のromantic_love のkoi のsexual_love のseiai をrock_garden i_me_you_feminine のanata のiamfeminine のwatashi_wa の氷のkori のice_cream のaisu_kuriimu のice_skate のsuketo_gutsu の氷山のkyozan つららのtsurara の馬鹿のbaka はsumimasen watashi のatashi を} # 置かれる任意助けのノートはキャンバスの形、従って基本的なキャンバス# 形の上にgamepieces. # 分かれた執筆設計する# 容易作成でき、"分けられた" 設計はマウスによって# 動くことをtext_texas {# 冷却装置磁石の詩歌# 冷却装置磁石は詩歌# プログラム主にTCL8.0 及び# Windows Expect5.2 の支流の# 2004. 頃Suchenwirth のDomino.tcl 、# Suchenwirth どのサブルーチン# 大抵不変# これがだった最初のTCL のキャンバスコードI # 見ただったか注意することを試みられてである。設計を使用されマイクロソフトのpowerpoint で# 広く# "分け、" ハーバードグラフィック、等は# この最初努力英語の冷却装置# 磁石の詩歌# 信じであり類似したの同じを動かすべきであることを及びダイスが# コンピュータMahjong のゲームに使用するために# できるか、ことをまたはcoin&card が中国磁気のためにタイルの上にゲーム# # 詩歌TCL8.4 中国のcharactors を# 使用できるか、ことをまたは着色されたMahjong が# 様々なEsc タイルを張り、ことをF キーが# プログラムを出るために活動化するか、ことをまたは変更が背景色# 滑らせて部分を渡る右のマウスを# # 一突き選ぶ部分を渡る左のマウスを滑らせることが# # 同じを削除するべきで、ことを中間のマウスが付いている部分を# 同じ部分を削除するべきである# 選び組をの選ぶ[ 同じテキストは右のマウスと] # [ 順に] # 同じ部分を# 右のマウスの使用初期設定から削除するべきである# 残マウス継ぎ合わさる、従って1 つは# ゲームの開始# 1 ラインにつきワード5/7/5 のある# Haiku の日本の詩歌のための設定# 10jun2006 のgoldshell7 からのwindows98 そして古いPC に# # 取り組む他のプロシージャは。# 左のマウスが付いている1 のタイルをのための選ばなければならない} 部門のおもちゃ -------------------------------------------------------------------------------- 更新済 2006 年8 月28 日、16:15 のGMT - Refrigerator_Magnetic_Poetry を 編集しなさい - 修正 調査 - 最近の変更 - Wikit についての… - Tcler の Wiki に行きなさい - 助け [Category Toys]