JAPLA /12/07 gl2 1 1 J Java C C++ J APL J J J J J J 5.01a for Windows 2 gl2 J gl2 isigraph isigraph isigraph gl2 gl2 J Help Mapping Mode gl2

Size: px

Start display at page:

Download "JAPLA /12/07 gl2 1 1 J Java C C++ J APL J J J J J J 5.01a for Windows 2 gl2 J gl2 isigraph isigraph isigraph gl2 gl2 J Help Mapping Mode gl2"

ありさあわたけ
5 years ago
Views:

1 gl2 1 1 J Java C C++ J APL J J J J J J 5.01a for Windows 2 gl2 J gl2 isigraph isigraph isigraph gl2 gl2 J Help Mapping Mode gl2 isigraph Event isigraph 2.1 Mapping Mode Mapping Mode J 5.01a for Windows 4 4 1

2 5 Mapping Mode 4 MM DEFAULT MM RIGHTDOWN MM RAW MM TWIPS , , 0 0, twip (win32 Mapping Mode gl2 glmap MM DEFAULT Mapping Mode (0, 0 (1000, 1000 x y glclear MM RIGHTDOWN MM RAW MM TWIPS y MM_DEFAULT x y MM_RIGHTDOWN x y MM_RIGHTDOWN twip twip 1/20pt 1pt 1/72 1twip 1/ isigraph Event isigraph Event isigraph mmove mbldbl mbldown mblup mbrdbl mbrdown mbrup 7 aaa bbb isigraph aaa_bbb_mbldown=: 3 :

4 vs mouse game tesuu KomaSente,KomaGote MochiSente,MochiGote Banmen moji w,h x1,y1,x2,y2 ko 1 1 isibanmen 1, HasamiShogi run Shokika IdoHantei IdoShori 1 0 KieruHantei Banmen KieruShori ShobuHantei DrawBanmen computer TorareruHantei Tonari Banmen Banmen isibanmen com computer computer 4

5 5 NB. 6*6 Hasami Shogi NB. Programed by Masanori Shioya NB. Last modified 2002/12/05 path=: e:\hasamishogi\ bmppath=: default\ coinsert jgl2 load gl2 NB. Files Fullpath NB. Bmp Directory NB. Load gl2 Command HASAMISHOGI=: 0 : 0 NB. Settings of Window pc HasamiShogi; xywh ;cc isisente isipicture ws_border; xywh ;cc isigote isipicture ws_border; xywh ;cc isibanmen isigraph ws_border; xywh ;cc mc radiobutton;cn "man vs com"; xywh ;cc cm radiobutton group;cn "com vs man"; xywh ;cc mm radiobutton group;cn "man vs man"; xywh ;cc btnstart button;cn "Start"; xywh ;cc btnreset button;cn "Reset"; xywh ;cc btnend button;cn "E N D"; xywh ;cc te editm ws_vscroll es_readonly; setfont te "Courier New" 11; xywh ;cc yoko1 static ss_center;cn "A"; xywh ;cc yoko2 static ss_center;cn "B"; xywh ;cc yoko3 static ss_center;cn "C"; xywh ;cc yoko4 static ss_center;cn "D"; xywh ;cc yoko5 static ss_center;cn "E"; xywh ;cc yoko6 static ss_center;cn "F"; xywh ;cc tate1 static ss_center;cn "1"; xywh ;cc tate2 static ss_center;cn "2"; xywh ;cc tate3 static ss_center;cn "3"; xywh ;cc tate4 static ss_center;cn "4"; xywh ;cc tate5 static ss_center;cn "5"; xywh ;cc tate6 static ss_center;cn "6"; xywh ;cc lblsente static;cn "Sente="; xywh ;cc lblgote static;cn "Gote ="; xywh ;cc lbltesuu static;cn "Tesuu="; xywh ;cc msg static;cn ""; pas 10 10;pcenter; HasamiShogi_run=: 3 : 0 wd HASAMISHOGI vs=:1 glclear glmap MM_RAW Shokika wd pshow;ptop 1 NB. Run Verb Shokika=: 3 : 0 NB. Initialize Verb mouse=: game=: tesuu=: 0 KomaSente =:KomaGote =: 6 MochiSente=:MochiGote=: 0 Banmen=:(-b,(4 6$0,b=.6#1 moji=: wd set lblsente ", Sente=,(":KomaSente, " wd set lblgote ", Gote =,(":KomaGote, " wd set te ",moji, " glsel isibanmen glmap MM_RAW w h =:glqwh DrawBanmen Banmen HasamiShogi_btnStart_button=: 3 : 0 if. game=1 do. return. HasamiShogi_btnReset_button game=:1 wd set msg "sente ban" if. _1=vs do. computer NB. Start Button HasamiShogi_btnReset_button=: 3 : 0 NB. Reset Button Shokika wd set lbltesuu ", Tesuu=,(":tesuu, " wd set msg "" HasamiShogi_btnEnd_button=: HasamiShogi_close NB. Shuryo Shori 5

6 HasamiShogi_close=: 3 : 0 glclear wd pclose HasamiShogi_mc_button=: 3 : 0 NB. Radio Button Shori if. game=1 do. radio else. vs=:1 HasamiShogi_cm_button=: 3 : 0 if. game=1 do. radio else. vs=:_1 HasamiShogi_mm_button=: 3 : 0 if. game=1 do. radio else. vs=:0 radio=: 3 : 0 select. vs case. 1 do. wd set mc 1 case. _1 do. wd set cm 1 case. 0 do. wd set mm 1 IdoHantei=: 4 : 0 NB.Ido Hantei t=.0 if. 0=game do. t=.0 tx1 ty1 tx2 ty2 k =.y. ban=..x. if. (tx1~:tx2*.(ty1=ty2 do. if. 1>+/k=tempx=.(>:tx1<.tx2}.(tx1>.tx2{.ty1{ban do. if. 2>+/(-k=tempx do. t=.1 elseif. (tx1=tx2*.(ty1~:ty2 do. if. 1>+/k=tempy=.(>:ty1<.ty2}.(ty1>.ty2{.tx1{ :ban do. if. 2>+/(-k=tempy do. t=.1 t IdoShori=: 3 : 0 NB. Ido Shori x1 y1 x2 y2 =:y. if. -.*/(x1,y1=(x2,y2 do. Banmen=:.0 (<y1,x1}.banmen Banmen=:.ko (<y2,x2}.banmen tesuu=:>:tesuu moji=:({.x1}. ABCDEF,(":>:y1, -->,({.x2}. ABCDEF,(":>:y2,CRLF,moji wd set lbltesuu ", Tesuu=,(":tesuu, " wd set te ",moji, " KieruHantei=: 4 : 0 NB. Kieru Hantei ban=..x. tx2 ty2 k =.y. m=. tempx=.tx2 if. 0<tempx=.<:tempx do. NB. Check left while. (-k=tempx{ty2{ban do. if. 1>tempx do. break. tempx=.<:tempx if. k=tempx{ty2{ban do. m=.m,<"1 ty2,"0 >:tempx+i.<:tx2-tempx tempx=.tx2 if. 5>tempx=.>:tempx do. NB. Check right while. (-k=tempx{ty2{ban do. if. 4<tempx do. break. tempx=.>:tempx if. k=tempx{ty2{ban do. m=.m,<"1 ty2,"0 >:tx2+i.<:tempx-tx2 tempx=.tx2 tempy=.ty2 if. 5>tempy=.>:tempy do. NB. Check up while. (-k=tx2{tempy{ban do. if. 4<tempy do. break. tempy=.>:tempy if. k=tx2{tempy{ban do. m=.m,<"1 (>:ty2+i.<:tempy-ty2,"0 tx2 tempy=.ty2 if. 0<tempy=.<:tempy do. NB. Check down while. (-k=tx2{tempy{ban do. if. 1>tempy do. break. tempy=.<:tempy if. k=tx2{tempy{ban do. m=.m,<"1 (>:tempy+i.<:ty2-tempy,"0 tx2 6

7 if. (*/4 5=tx2,ty2*.(k=5{4{ban*.((-k=5{5{ban do. m=.m,(<5 5 if. (*/5 4=tx2,ty2*.(k=4{5{ban*.((-k=5{5{ban do. m=.m,(<5 5 if. (*/0 4=tx2,ty2*.(k=1{5{ban*.((-k=0{5{ban do. m=.m,(<5 0 if. (*/1 5=tx2,ty2*.(k=0{4{ban*.((-k=0{5{ban do. m=.m,(<5 0 if. (*/4 0=tx2,ty2*.(k=5{1{ban*.((-k=5{0{ban do. m=.m,(<0 5 if. (*/5 1=tx2,ty2*.(k=4{0{ban*.((-k=5{0{ban do. m=.m,(<0 5 if. (*/0 1=tx2,ty2*.(k=1{0{ban*.((-k=0{0{ban do. m=.m,(<0 0 if. (*/1 0=tx2,ty2*.(k=0{1{ban*.((-k=0{0{ban do. m=.m,(<0 0 m KieruShori=: 3 : 0 NB. Kieru Shori Banmen=:.0 y.}.banmen KomaSente=:+/(,Banmene.1 KomaGote =:+/(,Banmene._1 select. ko case. 1 do. if. (0=MochiSente*.(KomaGote<6+( MochiGote do. MochiSente=:1 case. _1 do. if. (0=MochiGote*.(KomaSente<6+( MochiSente do. MochiGote=:1 if. 1=MochiSente do. temps=.(":komasente, + 1 else. temps=.":komasente if. 1=MochiGote do. tempg=.(":komagote, + 1 else. tempg=.":komagote wd set lblsente ", Sente=,temps, " wd set lblgote ", Gote =,tempg, " ShobuHantei=: 3 : 0 NB. Shobu Hantei if. (2>KomaGote+0<MochiGote+.temp=.(2>KomaSente+0<MochiSente do. game=:0 wd set msg ",(,>(<:+:temp{. gote win! ; sente win!, " wd beep 1 elseif. 70<:tesuu do. game=:0 if. (KomaGote+0<MochiGote>(KomaSente+0<MochiSente do. temp=. gote win! elseif. (KomaGote+0<MochiGote<(KomaSente+0<MochiSente do. temp=. sente win! elseif. 1 do. temp=. draw game wd set msg ",temp, " wd beep 1 HasamiShogi_isiBanmen_mbldown=: 3 : 0 NB. Mouse Button Left Down if. game=0 do. return. x y =.2{.".sysdata if. 0=2 tesuu do. ko=:1 else. ko=:_1 i=.<.6*x%w j=.<.6*y%h if. ko=i{j{.banmen do. mdx1=:i mdy1=:j mouse=:1 HasamiShogi_isiBanmen_mmove=: 3 : 0 NB. Mouse Move if. mouse=0 do. return. x y =.2{.".sysdata DrawBanmen. 0 (<mdy1,mdx1}.banmen glbmpxywh (x-10,(h-y+10,<.(w%9,h%9 glbmp path,bmppath,(,>ko{. sente.bmp ; gote.bmp glshow HasamiShogi_isiBanmen_mblup=: 3 : 0 NB. Mouse Button Left Up if. mouse=0 do. return. mouse=:0 x y =:2{.".sysdata mdx2=.<.6*x%w mdy2=.<.6*y%h temp=.0 if. (0=mdx2{mdy2{.Banmen*.(Banmen IdoHantei mdx1,mdy1,mdx2,mdy2,ko do. IdoShori mdx1,mdy1,mdx2,mdy2 temp=.1 if. 0<#m=.(Banmen KieruHantei x2,y2,ko do. KieruShori m else. wd beep 1 DrawBanmen Banmen ShobuHantei if. temp*. vs do. computer HasamiShogi_isiBanmen_mbldbl=: 3 : 0 NB. Mouse Button Left Double Click 7

8 if. 0=game do. return. if. 0>:ko{.MochiSente,MochiGote do. return. if. 0=2 tesuu do. ko=:1 else. ko=:_1 x y =.2{.".sysdata i=.<.6*x%w j=.<.6*y%h ban=..banmen temp=.0 if. 0=i{j{ban do. ".,>ko{. MochiSente=:_1 ; MochiGote=:_1 Banmen=:.ko (<j,i}.banmen tesuu=:>:tesuu moji=: mochi>,({.i}. ABCDEF,(":>:j,CRLF,moji wd set lbltesuu ", Tesuu=,(":tesuu, " wd set te ",moji, " KomaSente=:+/(,Banmene.1 KomaGote =:+/(,Banmene._1 wd set lblsente ", Sente=,(":KomaSente, " wd set lblgote ", Gote =,(":KomaGote, " x1=:x2=:i y2=:y2=:j if. 0<#m=.(Banmen KieruHantei x2,y2,ko do. KieruShori m temp=.1 else. wd beep 1 DrawBanmen Banmen ShobuHantei if. temp*. vs do. computer DrawBanmen=: 3 : 0 NB. Banmen wo byouga suru glsel isibanmen glrect 0 0,w,h gllines "1 (>. 0,. ((>:i.5*h%6,. w,. (>:i.5*h%6 gllines "1 (>. ((>:i.5*w%6,. 0,. ((>:i.5*w%6,. h i=.0 while. i<6 do. j=.0 while. j<6 do. select. (i{j{y. case. 1 do. glbmpxywh (<.7+i*w%6,(<.5+<:j*h%6,<.(w%9,h%9 glbmp path,bmppath, sente.bmp case. _1 do. glbmpxywh (<.7+i*w%6,(<.5+<:j*h%6,<.(w%9,h%9 glbmp path,bmppath, gote.bmp j=.>:j i=.>:i glshow wd set msg ",(,>(<:+:2 tesuu{. gote ban ; sente ban, " if. 1=MochiSente do. wd set isisente,path,bmppath, sentes.bmp else. wd set isisente, "" if. 1=MochiGote do. wd set isigote,path,bmppath, gotes.bmp else. wd set isigote, "" NB. Computer Algorithm NB. Sente Gote wo handannshite 1 te utsu NB. Com ha x1 y1 x2 y2 wo kimete NB. Ido sase egaku. Sonogo ShobuHantei shite kaesu. computer=: 3 : 0 if. game=0 do. return. if. 0=2 tesuu do. ko=:1 else. ko=:_1 if. 16>:tesuu do. toru idomae idogo utsu =: to1you to1me to2you to2me nayou name kado =:30 15 _5 20 _ else. if. 0<ko*(KomaSente+MochiSente-(KomaGote+MochiGote do. toru idomae idogo utsu =: to1you to1me to2you to2me nayou name kado =:15 15 _5 15 _ else. toru idomae idogo utsu =: to1you to1me to2you to2me nayou name kado =: if. 0>:ko{.MochiGote,MochiSente do. to1you =:_5 table1=:a: cx1=.cy1=.cx2=.cy2=.0 8

9 if. (ko=cx1{cy1{.banmen*.(0=cx2{cy2{.banmen do. if. Banmen IdoHantei cx1,cy1,cx2,cy2,ko do. table1=:table1,(<cx1,cy1,cx2,cy2,0 cy2=.>:cy2 cy2=.0 cx2=.>:cx2 cx2=.0 cy1=.>:cy1 cy1=.0 cx1=.>:cx1 table1=:}."1 table1 if. 0>:#table1 do. game=:0 goto_ i=.0 for. i.#table1 do. ten=.0 cx1 cy1 cx2 cy2 =.}:,>i{table1 Ban2=..0 (<cy1,cx1} ko (<cy2,cx2}.banmen m=.ban2 KieruHantei cx2,cy2,ko if. #m do. Ban2=..0 m}.ban2 ten=.toru*#m NB. kona ga toreru ka? ten=.ten +idomae* Banmen TorareruHantei cx1,cy1,-ko NB. koma ga torareru ka? ten=.ten - idogo* Ban2 TorareruHantei cx2,cy2,-ko NB. koma ga torareru ka? ten=.ten - Banmen Tonari cx1,cy1,ko NB. tonari no yousu ten=.ten + Ban2 Tonari cx2,cy2,ko NB. tonari no yousu table1=:(<cx1,cy1,cx2,cy2,ten i } table1 i=.>:i table1=:((# i.@$(>./{:"1>table1={:"1>table1{table1 cx1 cy1 cx2 cy2 =.}:,>(?#table1{table1 t=.0 if. 1=".>ko{. MochiSente ; MochiGote do. if. 2>ko*(KomaSente+MochiSente-(KomaGote+MochiGote do. table2=.a: mx=.my=.0 if. 0=mx{my{.Banmen do. if. 0<temp=.#Banmen KieruHantei mx,my,ko do. table2=.table2,(<mx,my,utsu*temp my=.>:my my=.0 mx=.>:mx if. 0<#}.table2 do. if. ({:,>{.table1\:{:"1>table1 < {:t2=.,>{.table2\:{:"1>table2 do. cx1 cy1 =. cx2 cy2 =.}:t2 ".>ko{. MochiSente=:_1 ; MochiGote=:_1 t=.1 IdoShori cx1,cy1,cx2,cy2 if. t do. wd set te ",(moji=: mochi,5}.moji, " if. 0<#m=.(Banmen KieruHantei x2,y2,ko do. KieruShori m label_ DrawBanmen Banmen ShobuHantei TorareruHantei=: 4 : 0 ban=..x. tx ty k =.y. line=.temp=.1 4$0 if. (0<:<:tx*.(5>:>:tx do. if. (k=(<:tx{ty{ban*.(0=(>:tx{ty{ban do. if. 0<+/k=(>:tx{"1 ban do. temp=.temp, ((>:tx,.(# i.@$k=(>:tx{"1 ban,"1(>:tx,ty if. 0<+/k=(tx-4{.ty{ban do. temp=.temp, (((# i.@$k=ty{ban,.ty,"1(>:tx,ty 9

10 if. (k=(>:tx{ty{ban*.(0=(<:tx{ty{ban do. if. 0<+/k=(<:tx{"1 ban do. temp=.temp, ((<:tx,.(# ban,"1(<:tx,ty if. 0<+/k=(tx-1{.ty{ban do. temp=.temp, (((# if. (0<:<:ty*.(5>:>:ty do. if. (k=tx{(<:ty{ban*.(0=tx{(>:ty{ban do. if. 0<+/k=(>:ty{ban do. temp=.temp, (((# tx,(>:ty if. 0<+/k=(ty-4{.tx{"1 ban do. temp=.temp, (tx,. (# ban,"1 tx,(>:ty if. (k=tx{(>:ty{ban*.(0=tx{(<:ty{ban do. if. 0<+/k=(<:ty{ban do. temp=.temp, (((# tx,(<:ty if. 0<+/k=(ty-1{.tx{"1 ban do. temp=.temp, (tx,. (# ban,"1 tx,(<:ty if. */0 0=tx,ty do. if. (k=0{1{ban*.(0=1{0{ban do. if. 0<+/k=1{"1 ban do. temp=.temp,(1,.(# ban,"1 (1 0 if. 0<+/k=_4{.0{"1 ban do. temp=.temp,(((# i.@$k=_4{.0{"1 ban,.0,"1 (1 0 if. (k=1{0{ban*.(0=0{1{ban do. if. 0<+/k=1{ ban do. temp=.temp,(((# i.@$k=1{ ban,.1,"1 (0 1 if. 0<+/k=_4{.0{ban do. temp=.temp,(((# i.@$k=_4{.0{ban,.0,"1 (0 1 if. */5 0=tx,ty do. if. (k=5{1{ban*.(0=4{0{ban do. if. 0<+/k=4{"1 ban do. temp=.temp,(4,.(# i.@$k=4{"1 ban,"1 (4 0 if. 0<+/k=4{.0{"1 ban do. temp=.temp,(((# i.@$k=4{.0{"1 ban,.0,"1 (4 0 if. (k=4{0{ban*.(0=5{1{ban do. if. 0<+/k=1{ ban do. temp=.temp,(((# i.@$k=1{ ban,.1,"1 (5 1 if. 0<+/k=_4{.5{ban do. temp=.temp,(5,.((# i.@$k=_4{.5{"1 ban,"1 (5 1 if. */0 5=tx,ty do. if. (k=0{4{ban*.(0=1{5{ban do. if. 0<+/k=1{"1 ban do. temp=.temp,(1,.(# i.@$k=1{"1 ban,"1 (1 5 if. 0<+/k=_4{.5{"1 ban do. temp=.temp,(((# i.@$k=_4{.5{"1 ban,.5,"1 (1 5 if. (k=1{5{ban*.(0=0{4{ban do. if. 0<+/k=4{ ban do. temp=.temp,(((# i.@$k=4{ban,.4,"1 (0 4 if. 0<+/k=_4{.5{ban do. temp=.temp,(0,.((# i.@$k=4{.0{"1 ban,"1 (0 4 if. */5 5=tx,ty do. if. (k=5{4{ban*.(0=4{5{ban do. if. 0<+/k=1{"1 ban do. temp=.temp,(4,.(# i.@$k=4{"1 ban,"1 (4 5 10

11 if. 0<+/k=_4{.5{"1 ban do. temp=.temp,(((# ban,.5,"1 (4 5 if. (k=4{5{ban*.(0=5{4{ban do. if. 0<+/k=4{ ban do. temp=.temp,(((# i.@$k=4{ ban,.4,"1 (5 4 if. 0<+/k=_4{.5{ban do. temp=.temp,(5,.((# i.@$k=4{.5{"1 ban,"1 (5 4 if. 0<#temp=.}.temp do. i=.0 for. i.#temp do. if. x. IdoHantei (i{temp,k do. line=.line,i{temp i=.>:i 0<#}.line Tonari=: 4 : 0 t=.0 ban=..x. tx ty k =.y. if. 5>:>:tx do. if. (-k=(>:tx{ty{ban do. t=.t-to1you if. k=(>:tx{ty{ban do. t=.t-to1me if. 5>:>:>:tx do. if. (-k=(>:>:tx{ty{ban do. t=.t-to2you if. k=(>:>:tx{ty{ban do. t=.t-to2me if. 0<:<:ty do. if. (-k=(>:tx{(<:ty{ban do. t=.t-nayou if. k=(>:tx{(<:ty{ban do. t=.t-name if. 0<:<:tx do. if. (-k=(<:tx{ty{ban do. t=.t-to1you if. k=(<:tx{ty{ban do. t=t-to1me if. 0<:<:<:tx do. if. (-k=(<:<:tx{ty{ban do. t=.t-to2you if. k=(<:<:tx{ty{ban do. t=.t-to2me if. 5>:>:ty do. if. (-k=(<:tx{(>:ty{ban do. t=.t-nayou if. k=(<:tx{(>:ty{ban do. t=.t-name if. 5>:>:ty do. if. (-k=tx{(>:ty{ban do. t=.t-to1you if. k=tx{(>:ty{ban do. t=.t-to1me if. 5>:>:>:ty do. if. (-k=tx{(>:>:ty{ban do. t=.t-to2you if. k=tx{(>:>:ty{ban do. t=.t-to2me if. 5>:>:tx do. if. (-k=(>:tx{(>:ty{ban do. t=.t-nayou if. k=(>:tx{(>:ty{ban do. t=.t-name if. 0<:<:ty do. if. (-k=tx{(<:ty{ban do. t=.t-to1you if. k=tx{(<:ty{ban do. t=.t-to1me if. 0<:<:<:ty do. if. (-k=tx{(<:<:ty{ban do. t=.t-to2you if. k=tx{(<:<:ty{ban do. t=.t-to2me if. 0<:<:tx do. if. (-k=(<:tx{(<:ty{ban do. t=.t-nayou if. k=(<:tx{(<:ty{ban do. t=.t-name if. 0 0 = tx,ty do. t=.t-kado if. 0 5 = tx,ty do. t=.t-kado if. 5 0 = tx,ty do. t=.t-kado if. 5 5 = tx,ty do. t=.t-kado t HasamiShogi_run 11

JAPLA研究会資料 2017/6/17

JAPLA研究会資料 2017/6/17 JAPLA 研究会資料 2017/8/5 J のタイリンググラフィックスによりオリンピックエンブレムを描く - 続き ( 完成版西川利男 JAPLA の 2017/6/7 の例会で東京オリンピックのエンブレムを J のグラフィックスを描く試みを報告した [1] 作者である野老朝雄氏のデザインの原理の説明 [2] を元に J のタイリンググラフィックスとして作成したがまだまだ相当の時間がかかるようだ