init&term
func int(dummy){return dummy} func startdlg(f,w,h){ while(scan){} if(f){soft1("Æɹþ")} else{soft1("")} soft2("ÆþÎÏ") color(255,255,190) frect(0,0,width,height) setfont("S") color(0,155,0) text("Canvas Size",width/2-stwide("Canvas Size")/2,3,0) if(w==0||h==0){w=h=16} rect((width-stwide(w))/2-2,(height-h)/2,w,h) s=scan while(1){ flg=1 t=tick while(scan==s){ if(flg||tick-t>=500){ if(s&65536){csx=w csy=h return 0} elsif(f&&(s&131072)){ return 1 } elsif(s&262144){ w=stringreplace(inputdlg("","Éý".w,5000,0),"Éý","") h=stringreplace(inputdlg("","¹â¤µ".h,5000,0),"¹â¤µ","") } elsif(s&32768&&h<120){h++} elsif(s&4096&&h>1){h--} elsif(s&8192&&w>1){w--} elsif(s&16384&&w<120){w++} lock() color(255,255,190) frect(0,sthigh+3,width,height) col(255) line(a=(width-w)/2,b=(height-h)/2-10,a+w,b) 'line(a,b,a+2,b-2) line(a,b,a+2,b+2)' line(a+w,b,a+w-2,b-2) line(a+w,b,a+w-2,b+2) line(a-10,b+10,a-10,b+10+h) 'line(a-10,b+10,a-12,b+12) line(a-10,b+10,a-8,b+12)' line(a-10,b+10+h,a-12,b+h+8) line(a-10,b+10+h,a-8,b+h+8) col(0) rect(a,b+10,w,h) text(h,a-14-stwide(h),height/2-sthigh,0) text(w,width/2-stwide(w)/2,b-3-sthigh,0) col(0xFFFFFF) frect(a+1,b+11,w-1,h-1) flg=0 unlock(1) } } s=input() }} func initialize(){ c[1]=1c[9]=1c[3]=255<<16c[4]=255<<8c[5]=255c[6]=c[3]+c[4]c[7]=c[4]+c[5]c[8]=c[3]+c[5]c[2]=c[3]+c[4]+c[5] soft2("½ªÎ»") soft1("menu") pen="pen" pw=int(240/max(csx,csy)) mxo=myo=int(min(csx,csy)/2) makeimg(bk,240,240) makeimg(smpw,csx,csy) trgt(off) clear(0,0,240,240) trgt(bk) chx=(240-pw*csx)/2/pw chy=(240-pw*csy)/2/pw chh=csy+chy-1 chw=csx+chx-1 clip(chx*pw,chy*pw,pw*csx+2,pw*csy+2) color(210,210,210) if(pw>1){ for(i=0;i<=241;i=i+pw){ line(i,0,i,240) } for(i=0;i<=241;i=i+pw){ line(0,i,240,i) } }elsif(pw==1){ msgdlg("ùÜ","120*120°Ê¾å¤Î¥µ ¥¤¥º¤Ç¤Ï³Æµ¡Ç½¤¬¤¦¤Þ ¤¯Æ¯¤«¤Ê¤¤²ÄǽÀ¤¬¤¢¤ê¤Þ¤¹") rect(chx,chy,csx+1,csy+1) }else{msgdlg("ùÜ","ÉÔÀµ¤Ê¥µ¥¤¥º")end} repaint()} func run(){ trgt(off) drawimg(bk,0,0,0) clearkey() while(1){ sleep(90) s=scan trgt(off) lock() color(210,210,210) rect(pw*mxo,pw*myo,pw,pw) myo=myo-((s&4096)!=0)+((s&32768)!=0) if(myo<chy){myo=chh}elsif(myo>chh){myo=chy} mxo=mxo-((s&8192)!=0)+((s&16384)!=0) if(mxo<chx){mxo=chw}elsif(mxo>chw){mxo=chx} col(0xFF0000) rect(pw*mxo,pw*myo,pw,pw) unlock(0) if(s!=0){ if(s&65536){ if(pen=="pen"){draw(mxo,myo,bc)} elsif(pen=="can"){can()} elsif(pen=="line"){iline()} elsif(pen=="rect"){irect()} }elsif(s&2){bc=c[1]sc(1)}elsif(s&4){bc=c[2]sc(2)}elsif(s&8){bc=c[3]sc(3)}elsif(s&16){bc=c[4]sc(4)}elsif(s&32){bc=c[5]sc(5)}elsif(s&64){bc=c[6]sc(6)}elsif (s&128){bc=c[7]sc(7)}elsif(s&256){bc=c[8]sc(8)}elsif(s&512){bc=c[9]sc(9)} elsif((s&131072)&&(sp!=1)){lsoft() }elsif(s&262144){ terminate() }} repaint() } } func terminate(){ if(change==1){ r=yndlg("ùÜ","ÊÔ½¸¸åÊݸ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£ËÜÅö¤Ë½ªÎ»¤·¤Þ¤¹¤«¡©") if(r=="YES"||r==1){ end }else{ repaint()return } }else{ end } }
util
func stringreplace(srs,oldparam,newparam){ srr=index(srs,oldparam) while(srr != -1){ s1=substr(srs,0,srr) s2=substr(srs,srr+strlen(oldparam),strlen(srs)-srr-strlen(oldparam)) srs=s1_newparam_s2 srr=index(srs,oldparam)} result=srs return result } func splitstring(sss,sskey) { gji=-1 ssr=index(sss,sskey) while(ssr != -1) { gji=gji+1 result[gji]=substr(sss,0,ssr) sss=substr(sss,ssr+strlen(sskey),strlen(sss)-ssr-strlen(sskey)) ssr=index(sss,sskey) } gji=gji+1 result[gji]=sss result=gji return result+1 } func ismore(){ ism=1 try{ "1.0"+0 }catch(e){ ism=0 } if(3/2!=1){ism=0} return ism } vkret=" "
FrontPage
´Ø¿ô°ìÍ÷
µ¹æ°ìÍ÷
SPALMÆþÌç
ºîÉʽ¸
¼«ºî´Ø¿ô³èÍѽÑ
¥À¥¦¥ó¥í¡¼¥ÉÀè
¤¦p¥í¥À
wiki¤Î»È¤¤Êý
SPALM¤Þ¤Ç¤ÎÎò»Ë
¸½¹Ô¥¹¥ì