プログラムな日常 -HSP-

右も左もわからないけど

2011-12-02T00:16:00.001+09:00

ARMは右も左もわからない私ですがなんとか、

動画の通りLPCpresso1769でLEDを点滅させてみました。

詳細は後日。ちなみに120MHzで動作させてます^^

歩きそうなリンク機構をリンクシミュレータで発見した。

2011-04-29T10:07:00.004+09:00

ちょっと休憩がてらに
リンク機構のシミュレータで遊んでいたら、
歩行をしそうなリンク機構を偶然発見しましたｗ
動画で紹介します。

http://www.nicovideo.jp/watch/sm14290163

動画ではつぶれて詳しい比がわかりずらかったので
画像で説明します。

http://begriff.zxq.net/file/aaa.html

ちなみにこのソフトは自作ソフトで、ホームページから
ダウンロードできます。

http://begriff.zxq.net/soft.html

d3moduleのパーティクルで炎を再現してみた

2010-08-29T22:27:00.005+09:00

ちょっと重いです。
これをE3dなどに応用すればCPUへの負荷が少なく実装できるかもしれません。

d3moduleのパーティクルで炎を再現してみた

ヌコ

2010-08-08T02:25:00.001+09:00

ケン○ッキーつくった

2010-08-08T02:16:00.003+09:00

作りましたー。

↓我が家のヌコです。

HSPでGLUTを使わないでOpenGLを使ってみた。

2010-07-25T21:45:00.003+09:00

Glutを使わずOpenGLを直叩きしました。

うまいこといきました。

ソース
http://begriff.zxq.net/TEST3.ZIP

あぁ勘違い。

2010-07-06T01:34:00.001+09:00

strlen()　は　\0　も計算に入れるものだと思ってコードを組んでた。アホや。。。

HSPでOpenGL　その２

2010-06-28T02:03:00.003+09:00

いろいろといじってたら
影ができた模様。タイマーとかも使って回転するアニメーションを作れた。
ダブルバッファリングはまだ実装していない
HSPとglutとの組み合わせは難しい終了処理がよくわからない。
OpenGLは一筋縄ではいかないようである

HSPでOpenGL　その１

2010-06-27T22:35:00.004+09:00

HSPでOpenGLというかglutを動かしてみた。

影とか　光源とか　設定の仕方がわからなかったので真っ白な物体が表示された。

repeat～loop foreach～loop　をマクロで実装

2010-04-11T19:09:00.002+09:00

repeat～loop foreach～loopをマクロで実装しました。

gotoでループを脱出してもスタックオーバーフローになりません

ちゃんと　システム変数cnt　もオリジナルと同じ挙動をします。

foreachも対応しました。拡張機能として
配列変数の各次元にも対応しました。

foreach
foreach2
foreach3
foreach4

といったように

foreachをモジュール型変数で使うときもオリジナルと同じ挙動するようになりました。

詳しくは　それとなくHSPで

ケン○ッキーフライドチキン作ってみた　その２

2010-04-11T19:05:00.002+09:00

また挑戦してみました。

今回は大成功です！！！（自分なりには）

レシピのほうは私のホムペ“それとなくHSP”で公開しました。

たぶん私が初の試みでしょう。揚げ粉にコーヒーの粉ミルク（？）を配合したのは！

IRCボット改良版

2010-03-29T11:56:00.001+09:00


; Character Codepage Encode module
 
#ifndef __ENCODE_AS__
#define global __ENCODE_AS__
 
#module "mod_encode"
 
#const global CODEPAGE_S_JIS            932 ; Shift-JIS
#const global CODEPAGE_EUC_JP         51932 ; EUC-JP
#const global CODEPAGE_JIS            50220 ; iso-2022-jp(JIS)
#const global CODEPAGE_UTF_7          65000 ; utf-7
#const global CODEPAGE_UTF_8          65001 ; utf-8
#const global CODEPAGE_UNICODE         1200 ; Unicode
#const global CODEPAGE_UNICODE_BE      1201 ; Unicode(Big-Endian)
#const global CODEPAGE_AUTODET_ALL    50001 ; auto detect all
#const global CODEPAGE_AUTODET        50932 ; auto detect
 
#usecom IMultiLanguage@mod_encode    "{275c23e1-3747-11d0-9fea-00aa003f8646}" \
                                    "{275c23e2-3747-11d0-9fea-00aa003f8646}"
#comfunc MuLang_ConvertString 9 var, int, int, var, var, var, var
 
#deffunc _encode_init
    newcom ml, IMultiLanguage
    return
 
#deffunc _encode_term onexit
    delcom ml
    return
 
#deffunc __FromSJIS@mod_encode str _src, int srcCodepage, var dest, int destCodepage, local src, local srcSize, local destSize, local pdwMode
    pdwMode = 0
    srcSize = -1
    destSize= 0
    src        = _src
    sdim dest
    MuLang_ConvertString ml, pdwMode, srcCodepage, destCodepage, src, srcSize, dest, destSize
    sdim dest, destSize + 1
    MuLang_ConvertString ml, pdwMode, srcCodepage, destCodepage, src, srcSize, dest, destSize
    return destSize
 
#defcfunc _ToSJIS@mod_encode var src, int srcCodepage, int destCodepage, local dest
    __FromSJIS src, srcCodepage, dest, destCodepage
    return dest
 
#define _FromSJIS __FromSJIS@mod_encode
 
#global


_encode_init


; SJIS -> other char code 
#define            sjis2eucjp(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_EUC_JP
#define            sjis2jis(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_JIS
#define            sjis2utf7n(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_UTF_7
#define            sjis2utf8n(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_UTF_8
 
; other char code -> SJIS
#define ctype    eucjp2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_EUC_JP, CODEPAGE_S_JIS)
#define ctype    jis2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_JIS,    CODEPAGE_S_JIS)
#define ctype    utf7n2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_UTF_7,  CODEPAGE_S_JIS)
#define ctype    utf8n2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_UTF_8,  CODEPAGE_S_JIS)

////////////////////////////////match
#uselib"kernel32.dll"

#cfunc global IsDBCSLeadByteEx "IsDBCSLeadByteEx" int,int
#define global ctype MB1(%1) IsDBCSLeadByteEx(0,%1)
#module
#defcfunc match str buf1_,str buf2_
buf1=buf1_
buf2=buf2_
buf3=""
hyoka=0
index=0
count=0
   data_(3)=0
   data_(2)=0
   data_(1)=0
   data_(0)=0
while(1)
 while(1)
  data=peek(buf1,index)
  if(MB1(data)){
   pre_index=index
   data_(count)=peek(buf1,index)
   index+
   count+
   data_(count)=peek(buf1,index)
   index+
   count+
  }else{
   pre_index=index
   data_(count)=peek(buf1,index)
   index+
   count+
  }
  if(count>=3||data=0){
   buf3=strf("%c",data_(0))+strf("%c",data_(1))+strf("%c",data_(2))+strf("%c",data_(3))
   data_(3)=0
   data_(2)=0
   data_(1)=0
   data_(0)=0
   count=0
   _break
  }
 wend
 index=pre_index
// mes buf3
 if(instr(buf2,0,buf3)>=0){

   hyoka+


 }
 if peek(buf1,index)=0:_break
 
wend
return hyoka
#global
//////////////////////////match



#include "hspsock.as"
 
onexit *exit
goto *hi
*exit
    sockclose SockId
    end
*hi
 
/////定数/////////////////////////////
    
ServerName="irc.freenode.net"
Port=6667
NickName=""
ChannelName="#hspDwiki_TEST"
CloseMessage="Leaving..."
MainWindowSize=400+6+21
 
/////変数初期化///////////////////////
 
Command=""
InputData=""
Message=""
SockId=0
sdim StringsData,65536
sdim GetData,1024
sdim send_data,1024
sdim aidata_,1024*1024*16
sdim aidata,1024*1024*16
sdim aidata_load,1024*1024*16
sdim nowgetdata,1024
sdim gyodata,1024
savefile="aigakushu.txt"
loadfile="aigakushu_load.txt"


/////ウィンドウ・オブジェクト配置/////
 
screen 3,300,12+21+19+6+21+12,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "チャンネル名" 
 
pos ,12+21
objsize 300-24,19
input ChannelName
 
pos 300-12-88,12+21+19+6
objsize 88,21 
button gosub "OK",*join
 
 
screen 4,300,12+21+19+6+21+12,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "切断メッセージ" 
 
pos ,12+21
objsize 300-24,19
input CloseMessage
 
pos 300-12-88,12+21+19+6
objsize 88,21 
button gosub "OK",*part
 
screen 5,300,12+21+19+6+21+19+6+21+21+6+21+12+21+6,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "接続サーバ" 
 
pos ,12+21
objsize 300-24,19
input ServerName
 
pos ,12+21+19+6
mes "ポート" 
 
pos ,12+21+19+6+21
objsize 300-24,19
input Port
 
pos ,12+21+19+6+21+19+6
mes "ユーザー名" 
 
pos ,12+21+19+6+21+19+6+21
objsize 300-24,19
input NickName
 
pos 300-12-88,12+21+19+6+21+19+6+21+21+6
objsize 88,21 
button "OK",*session
 
 
screen 0,640,MainWindowSize+6+21+6+21
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
objsize 88,21
button gosub "LOGIN",*session_req
 
pos 12+88+6,12
objsize 88,21
button gosub "JOIN",*join_req
 
pos 12+88+6+88+6,12
objsize 88,21
button gosub "PART",*part_req
 
pos 12,12+21+6
objsize 640-24,MainWindowSize-12-21-6-6-21-12
mesbox StringsData,,,4
Hmesbox=stat
 
pos 12,MainWindowSize-12-21
objsize 640-88-24-6,21
input InputData
Hinput=stat
 
pos 640-88-12,MainWindowSize-12-21
objsize 88,21
button gosub "OK",*talk

pos 640-88-12,MainWindowSize-12-21+6+21
objsize 88,21
button gosub "学習OFF",*gaku
gakuid=stat

pos 640-88-12-6-88,MainWindowSize-12-21+6+21
objsize 88,21
button gosub "発言OFF",*hatu
hatuid=stat

pos 12,MainWindowSize-12-21+6+21+3
color
mes "読書込ファイル"

pos 12+6+88,MainWindowSize-12-21+6+21
objsize 88,21
input savefile

pos 12+88+6+88+6,MainWindowSize-12-21+6+21+3
color
mes "読込ファイル"

pos 12+88+6+88+6+6+88,MainWindowSize-12-21+6+21
objsize 88,21
input loadfile

pos 640-88-12-6-88,MainWindowSize-12-21+6+21+6+21
objsize 88,21
button gosub "UTF-8",*moji
mojiid=stat

stop

*moji
mojic xor 1
if mojic :objprm mojiid,"JIS":else:objprm mojiid,"UTF-8"
 return
 
*gaku
ai xor 1
if ai:objprm gakuid,"学習ON":else:objprm gakuid,"学習OFF"
 return
*hatu
ht xor 1
if ht:objprm hatuid,"発言ON":else:objprm hatuid,"発言OFF"
 return
/////データチェック///////////////////
 
*main
repeat
sockcheck SockID
stat_=stat
if stat_=0{
    gsel 0
    sockget GetData,1024,SockID

 if(mojic==0){
  get_data=utf8n2sjis(GetData)
 }else{
  get_data=jis2sjis(GetData)
 }
    
    StringsData+=get_data+"\n"
    objprm Hmesbox,StringsData
    sendmsg objinfo(Hmesbox,2),0xb6,0,65536
    if(instr(get_data,0,"PRIVMSG")>=0){
     if(ai){
      notesel aidata_load
   noteload loadfile
     if(1){
      nowgetdata=strmid(get_data,instr(get_data,instr(get_data,0,"PRIVMSG"),":")+instr(get_data,0,"PRIVMSG")+1,strlen(get_data)-instr(get_data,instr(get_data,0,"PRIVMSG"),":")-instr(get_data,0,"PRIVMSG")-1)
   if(ht){
    aidata_=aidata_load+aidata
   notesel aidata_
   count=0
   maxmatch=0
   countmax=notemax*5/6-1
   while(1)
    if(count>=countmax):_break
    noteget gyodata,count
 //   dialog "1: "+gyodata
 //   dialog "2: "+nowgetdata
 //   dialog "3: "+match(gyodata,nowgetdata)
    if match(gyodata,nowgetdata)>=maxmatch{
     maxmatch=match(gyodata,nowgetdata)
     
     maxmatchgyo=count
    }
    count+
   wend
  // dialog "4: "+maxmatch
   if (1.0*maxmatch/strlen(nowgetdata)>=0.13||(strlen(nowgetdata)>=8&&maxmatch>=4)) && strlen(nowgetdata)>=4:noteget gyodata,maxmatchgyo+1:{
    if(rnd(100)>82){
    gosub *aitalk
   }
   }
   }
   aidata+=nowgetdata
   notesel aidata
   notesave savefile
  }
 }
 }
 if(instr(get_data,0,"PING")=0)||(instr(get_data,0,"ping")=0){
  gosub *pong
 }
}
 
wait 1
loop
 
/////コマンド送信////////////////////
 
*enter
send_buf=""+Message+""+Command+"\n"



 if(mojic==0){
  sjis2utf8n send_data,send_buf
 }else{
  sjis2jis send_data,send_buf
 }

sockput send_data,SockId
StringsData+=""+Message+""+Command+"\n\n"
objprm Hmesbox,StringsData
sendmsg objinfo(Hmesbox,2),0xb6,0,65536
Message=""
return
 
*talk
    Message="PRIVMSG "+ChannelName+" :"
    Command=InputData
    gosub *enter
    objprm Hinput,""
    return
    
*aitalk
    Message="PRIVMSG "+ChannelName+" :"
    Command=gyodata
    gosub *enter
    return
*pong
    Message="PONG"
    Command=""
    gosub *enter
    return
    
*join_req
    gsel 3,1
    return
 
*join
    gsel 3,-1
    gsel 0
    Message="JOIN "+ChannelName
    Command=""
    gosub *enter
    objprm Hinput,""
    return
 
*part_req 
    gsel 4,1
    return
 
*part
    gsel 4,-1
    gsel 0
    Message="PART "+ChannelName+" :"
    Command=CloseMessage
    gosub *enter
    objprm Hinput,""
    return
 
*session_req
    gsel 5,1
    return
 
*session
    gsel 5,-1
    gsel 0
    if once:sockclose SockId
    sockopen SockId,ServerName,Port
    sockput "USER username host server real\n",SockId
    sockput "NICK "+NickName+"\n",SockId
    once=1

   notesel aidata
   exist savefile
   if strsize=-1{
    notesave savefile
   }
   noteload savefile

   notesel aidata_load
   exist loadfile
   if strsize=-1{
    notesave loadfile
   }
   noteload loadfile
    
    goto *main

IRC　人工無能

2010-03-28T14:28:00.001+09:00

糞アルゴリズムによるボット


; Character Codepage Encode module
 
#ifndef __ENCODE_AS__
#define global __ENCODE_AS__
 
#module "mod_encode"
 
#const global CODEPAGE_S_JIS            932 ; Shift-JIS
#const global CODEPAGE_EUC_JP         51932 ; EUC-JP
#const global CODEPAGE_JIS            50220 ; iso-2022-jp(JIS)
#const global CODEPAGE_UTF_7          65000 ; utf-7
#const global CODEPAGE_UTF_8          65001 ; utf-8
#const global CODEPAGE_UNICODE         1200 ; Unicode
#const global CODEPAGE_UNICODE_BE      1201 ; Unicode(Big-Endian)
#const global CODEPAGE_AUTODET_ALL    50001 ; auto detect all
#const global CODEPAGE_AUTODET        50932 ; auto detect
 
#usecom IMultiLanguage@mod_encode    "{275c23e1-3747-11d0-9fea-00aa003f8646}" \
                                    "{275c23e2-3747-11d0-9fea-00aa003f8646}"
#comfunc MuLang_ConvertString 9 var, int, int, var, var, var, var
 
#deffunc _encode_init
    newcom ml, IMultiLanguage
    return
 
#deffunc _encode_term onexit
    delcom ml
    return
 
#deffunc __FromSJIS@mod_encode str _src, int srcCodepage, var dest, int destCodepage, local src, local srcSize, local destSize, local pdwMode
    pdwMode = 0
    srcSize = -1
    destSize= 0
    src        = _src
    sdim dest
    MuLang_ConvertString ml, pdwMode, srcCodepage, destCodepage, src, srcSize, dest, destSize
    sdim dest, destSize + 1
    MuLang_ConvertString ml, pdwMode, srcCodepage, destCodepage, src, srcSize, dest, destSize
    return destSize
 
#defcfunc _ToSJIS@mod_encode var src, int srcCodepage, int destCodepage, local dest
    __FromSJIS src, srcCodepage, dest, destCodepage
    return dest
 
#define _FromSJIS __FromSJIS@mod_encode
 
#global


_encode_init


; SJIS -> other char code 
#define            sjis2eucjp(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_EUC_JP
#define            sjis2jis(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_JIS
#define            sjis2utf7n(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_UTF_7
#define            sjis2utf8n(%1, %2)    _FromSJIS@mod_encode %2, CODEPAGE_S_JIS, %1, CODEPAGE_UTF_8
 
; other char code -> SJIS
#define ctype    eucjp2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_EUC_JP, CODEPAGE_S_JIS)
#define ctype    jis2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_JIS,    CODEPAGE_S_JIS)
#define ctype    utf7n2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_UTF_7,  CODEPAGE_S_JIS)
#define ctype    utf8n2sjis(%1)        _ToSJIS@mod_encode(%1, CODEPAGE_UTF_8,  CODEPAGE_S_JIS)

////////////////////////////////match
#uselib"kernel32.dll"

#cfunc global IsDBCSLeadByteEx "IsDBCSLeadByteEx" int,int
#define global ctype MB1(%1) IsDBCSLeadByteEx(0,%1)
#module
#defcfunc match str buf1_,str buf2_
buf1=buf1_
buf2=buf2_
buf3=""
hyoka=0
index=0
count=0
   data_(3)=0
   data_(2)=0
   data_(1)=0
   data_(0)=0
while(1)
 while(1)
  data=peek(buf1,index)
  if(MB1(data)){
   pre_index=index
   data_(count)=peek(buf1,index)
   index+
   count+
   data_(count)=peek(buf1,index)
   index+
   count+
  }else{
   pre_index=index
   data_(count)=peek(buf1,index)
   index+
   count+
  }
  if(count>=3){
   buf3=strf("%c",data_(0))+strf("%c",data_(1))+strf("%c",data_(2))+strf("%c",data_(3))
   data_(3)=0
   data_(2)=0
   data_(1)=0
   data_(0)=0
   count=0
   _break
  }
 wend
 index=pre_index
// mes buf3
 if(instr(buf2,0,buf3)>=0){

   hyoka+


 }
 if peek(buf1,index)=0:_break
 
wend
return hyoka
#global
//////////////////////////match



#include "hspsock.as"
 
onexit *exit
goto *hi
*exit
    sockclose SockId
    end
*hi
 
/////定数/////////////////////////////
    
ServerName="irc.freenode.net"
Port=6667
NickName=""
ChannelName="#hspDwiki_TEST"
CloseMessage="Leaving..."
MainWindowSize=400+6+21
 
/////変数初期化///////////////////////
 
Command=""
InputData=""
Message=""
SockId=0
sdim StringsData,65536
sdim GetData,1024
sdim send_data,1024
sdim aidata,256*256
sdim nowgetdata,1024
sdim gyodata,1024

   notesel aidata
   exist "aigakushu.txt"
   if strsize=-1{
    notesave "aigakushu.txt"
   }
   noteload "aigakushu.txt"

/////ウィンドウ・オブジェクト配置/////
 
screen 3,300,12+21+19+6+21+12,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "チャンネル名" 
 
pos ,12+21
objsize 300-24,19
input ChannelName
 
pos 300-12-88,12+21+19+6
objsize 88,21 
button gosub "OK",*join
 
 
screen 4,300,12+21+19+6+21+12,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "切断メッセージ" 
 
pos ,12+21
objsize 300-24,19
input CloseMessage
 
pos 300-12-88,12+21+19+6
objsize 88,21 
button gosub "OK",*part
 
screen 5,300,12+21+19+6+21+19+6+21+21+6+21+12+21+6,2
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
mes "接続サーバ" 
 
pos ,12+21
objsize 300-24,19
input ServerName
 
pos ,12+21+19+6
mes "ポート" 
 
pos ,12+21+19+6+21
objsize 300-24,19
input Port
 
pos ,12+21+19+6+21+19+6
mes "ユーザー名" 
 
pos ,12+21+19+6+21+19+6+21
objsize 300-24,19
input NickName
 
pos 300-12-88,12+21+19+6+21+19+6+21+21+6
objsize 88,21 
button "OK",*session
 
 
screen 0,640,MainWindowSize+6+21
syscolor 15
boxf
color 
sysfont 17
 
pos 12,12
objsize 88,21
button gosub "LOGIN",*session_req
 
pos 12+88+6,12
objsize 88,21
button gosub "JOIN",*join_req
 
pos 12+88+6+88+6,12
objsize 88,21
button gosub "PART",*part_req
 
pos 12,12+21+6
objsize 640-24,MainWindowSize-12-21-6-6-21-12
mesbox StringsData,,,4
Hmesbox=stat
 
pos 12,MainWindowSize-12-21
objsize 640-88-24-6,21
input InputData
Hinput=stat
 
pos 640-88-12,MainWindowSize-12-21
objsize 88,21
button gosub "OK",*talk

pos 640-88-12,MainWindowSize-12-21+6+21
objsize 88,21
button gosub "学習OFF",*gaku
gakuid=stat

pos 640-88-12-6-88,MainWindowSize-12-21+6+21
objsize 88,21
button gosub "発言OFF",*hatu
hatuid=stat
stop

*gaku
ai xor 1
if ai:objprm gakuid,"学習ON":else:objprm gakuid,"学習OFF"
 return
*hatu
ht xor 1
if ht:objprm hatuid,"発言ON":else:objprm hatuid,"発言OFF"
 return
/////データチェック///////////////////
 
*main
repeat
sockcheck SockID
stat_=stat
if stat_=0{
    gsel 0
    sockget GetData,1024,SockID

 get_data=utf8n2sjis(GetData)
    
    StringsData+=get_data+"\n"
    objprm Hmesbox,StringsData
    sendmsg objinfo(Hmesbox,2),0xb6,0,65536
    if(instr(get_data,0,"PRIVMSG")>=0){
     if(ai){
     if(1){
      nowgetdata=strmid(get_data,instr(get_data,instr(get_data,0,"PRIVMSG"),":")+instr(get_data,0,"PRIVMSG")+1,strlen(get_data)-instr(get_data,instr(get_data,0,"PRIVMSG"),":")-instr(get_data,0,"PRIVMSG")-1)
   if(ht){
   notesel aidata
   count=0
   maxmatch=0
   while(1)
    if(count>=notemax-1):_break
    noteget gyodata,count
 //   dialog "1: "+gyodata
 //   dialog "2: "+nowgetdata
 //   dialog "3: "+match(gyodata,nowgetdata)
    if match(gyodata,nowgetdata)>=maxmatch{
     maxmatch=match(gyodata,nowgetdata)
     
     maxmatchgyo=count
    }
    count+
   wend
  // dialog "4: "+maxmatch
   if 1.0*maxmatch/strlen(nowgetdata)>=0.3:noteget gyodata,maxmatchgyo+1:{
    if(rnd(100)>60){
    gosub *aitalk
   }
   }
   }
   aidata+=nowgetdata
   notesel aidata
   notesave "aigakushu.txt"
  }
 }
 }
}
 
wait 1
loop
 
/////コマンド送信////////////////////
 
*enter
send_buf=""+Message+""+Command+"\n"
sjis2utf8n send_data,send_buf
sockput send_data,SockId
StringsData+=""+Message+""+Command+"\n\n"
objprm Hmesbox,StringsData
sendmsg objinfo(Hmesbox,2),0xb6,0,65536
Message=""
return
 
*talk
    Message="PRIVMSG "+ChannelName+" :"
    Command=InputData
    gosub *enter
    objprm Hinput,""
    return
    
*aitalk
    Message="NOTICE "+ChannelName+" :"
    Command=gyodata
    gosub *enter
    return
    
*join_req
    gsel 3,1
    return
 
*join
    gsel 3,-1
    gsel 0
    Message="JOIN "+ChannelName
    Command=""
    gosub *enter
    objprm Hinput,""
    return
 
*part_req 
    gsel 4,1
    return
 
*part
    gsel 4,-1
    gsel 0
    Message="PART "+ChannelName+" :"
    Command=CloseMessage
    gosub *enter
    objprm Hinput,""
    return
 
*session_req
    gsel 5,1
    return
 
*session
    gsel 5,-1
    gsel 0
    if once:sockclose SockId
    sockopen SockId,ServerName,Port
    sockput "USER username host server real\n",SockId
    sockput "NICK "+NickName+"\n",SockId
    once=1
    goto *main

機械語をそのまま打ち込むプログラミング言語

2010-03-28T00:05:00.002+09:00

uselib "user32.dll"
efunc MessageBoxA

func main{
38 A8 B2 6D
F3 C1 79 DG
[loop_start] //ラベル
5b 75 82 c1

75 05 [@loop_start]
// 75 05　・・・ JNZ [@loop_start] loop_startにある一定の条件でジャンプ
FF 25(@MessageBoxA)
//間接絶対naerコール
E8(@kkk)
//普通のnearコール
}

func kkk{
4b cc 48 a2
}

こんな感じの言語ってどうだろうか。言語としての機能はAPIのサポート。関数。ラベル
コンパイラというよりはEXEのデータ構造に準拠したファイルを生成する訓練にはなるかなー

IRCリーバシ改良版

2010-03-27T21:54:00.002+09:00

一気に文字列を送りつけると送信元と受信側で表示にラグが発生するので
間隔をあけて送信するようにしました。
あと色付けするとその分送る文字数が増えるので　軽くするために色はありません。



var turn=0;//0黒 1 白　ターン
var data = new Array(8*8); 
var data2 = new Array(8*8); 
var channel_g;
var end=0;
var timer_id;

function event::onChannelText(prefix, channel, text){
 channel_g=channel;
 if(text.match(/^#/i)){
  
  cmd=""+text.match(/[a-z]+$/i);
  var ddd=text.match(/(\d)/g);

  if(ddd!=null){

   x=ddd[0];
   y=ddd[1];
   if(end==1){
    send(channel,"<color navy,silver>＜ゲームを再開してください＞");
    return(0);
   }
   if(x>8||x==0||y>8||y==0){
    send(channel,"<color navy,silver>＜不正な入力です＞");
   }else{
    if(putable(x-1,y-1)==0){
     send(channel,"<color navy,silver>＜そこには打てません＞");
     
    }else{
     copyArr12();
     put(x-1,y-1);
     turnChange()
     if(numberOfPutable()==0){
      turnChange()
      if(numberOfPutable()==0){
       
       if(black_n()>white_n()){
        send(channel,"<color navy,silver>＜黒の勝ち＞");
       }
       if(black_n()<white_n()){
        send(channel,"<color navy,silver>＜白の勝ち＞");
       }
       if(black_n()==white_n()){
        send(channel,"<color navy,silver>＜引き分け＞");
       }
       draw();
       end=1;
       return(0);
      }else{
       send(channel,"<color navy,silver>＜打つ手がないのでパス＞");
      }
     }
     draw();
     
    }
   }
  }

  if(cmd!=null){
   if(cmd.search(/^new$/i)!=-1){
    send(channel,"<color navy,silver>＜ゲームを開始します＞");
    newGame();
    draw();
    end=0;
   }
   if(cmd.search(/^debug$/i)!=-1){
    send(channel,"<color navy,silver>＜デバッグを開始します＞");
    newGame();
    debug();
    draw();
    end=0;
   }
   if(cmd.search(/^matta$/i)!=-1){
    if(matta_ok==1){
     send(channel,"<color navy,silver>＜\"待った\"しました＞");
     copyArr21();
     turnChange()
     draw();
     end=0;
     matta_ok=0;
    }else{
     send(channel,"<color navy,silver>＜\"待った\"できません＞");
    }
   }
  }
 }
}

function newGame(){
 turn=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   data[(ix)*8+(iy)] = 0;
  }
 }
 data[(3)*8+(3)]=1; //1黒？
 data[(4)*8+(4)]=1; //2白
 data[(4)*8+(3)]=2;
 data[(3)*8+(4)]=2;
}

var strbuf = new Array(8); 

function draw(){
 send(channel_g,"<color>....1..2..3..4..5..6..7..8 ←X  Y↓ 書式 #X Y");
 for(iy=0;iy<8;iy++){
  str="";
  str+=""+(iy+1);
  for(ix=0;ix<8;ix++){
   
   if(data[(ix)*8+(iy)]==0){
    if(putable(ix,iy)==0){
     str+=""+"..・";
    }else{
     str+=""+"＊"
    }
   }
   if(data[(ix)*8+(iy)]==1){
    str+=""+"●";
   }
   if(data[(ix)*8+(iy)]==2){
    str+=""+"○";
   }
  }
  if(iy==5){
   str+="  balck "+black_n();
  }
  if(iy==6){
   str+="  white "+white_n();
  }
  if(iy==7){
   if(turn==0){
   str+="  黒の番です";
   }else{
   str+="  白の番です";
   }
  }
  //send(channel_g,str);
  strbuf[iy]=str;
  
 }

 timer_id=setTimeout(myTimer,2200);
 
}

var ixxx=0;

function myTimer(){
 send(channel_g,strbuf[ixxx]);

 ixxx++;
 if(ixxx==9){
  ixxx=0;
 }else{
  timer_id=setTimeout(myTimer,2200);
 }
}

function black_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==1){
   amount++;
  }
 }
 return(amount);
}

function white_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==2){
   amount++;
  }
 }
 return(amount);
}

function putable(x,y){
 rr=0;
 if(data[(x)*8+(y)]==0){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
 }
 return(rr);
}

function put(x,y){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x-m,y-m);}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x,y-m);}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x+m,y-m);}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x+m,y);}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x+m,y+m);}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x,y+m);}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x-m,y+m);}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x-m,y);}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
}

function lineChange(x1,y1,x2,y2){
 if(turn==0){
  a=1;
 }else{
  a=2;
 }
 mx=0
 my=0
 while(1){
  data[(x1+mx)*8+(y1+my)]=a;
  if(x2==x1+mx&&y2==y1+my){break;}
  if(x2-x1>0){mx++;}
  if(x2-x1<0){mx--;}
  if(y2-y1>0){my++;}
  if(y2-y1<0){my--;}
 }
}

function numberOfPutable(){
 amount=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   if(putable(ix,iy)==1){amount++;}
  }
 }
 //send(channel_g,""+amount);
 return(amount);
}

function turnChange(){
 if(turn==0){
  turn=1;
 }else{
  turn=0;
 }
}
matta_ok=0;
function copyArr12(){
 matta_ok=1;
 for(i=0;i<64;i++){
  data2[i]=data[i];
 }
}
function copyArr21(){
 for(i=0;i<64;i++){
   data[i]=data2[i];
 }
}
function debug(){
data[0]=2;
data[1]=2;
data[2]=2;
data[3]=2;
data[4]=2;
data[5]=2;
data[6]=2;
data[7]=2;

data[8]=1;
data[9]=2;
data[10]=1;
data[11]=2;
data[12]=2;
data[13]=1;
data[14]=0;
data[15]=0;

data[16]=1;
data[17]=1;
data[18]=2;
data[19]=1;
data[20]=1;
data[21]=1;
data[22]=1;
data[23]=1;

data[24]=1;
data[25]=1;
data[26]=1;
data[27]=2;
data[28]=1;
data[29]=2;
data[30]=2;
data[31]=2;

data[32]=1;
data[33]=1;
data[34]=2;
data[35]=1;
data[36]=2;
data[37]=2;
data[38]=2;
data[39]=2;

data[40]=1;
data[41]=1;
data[42]=1;
data[43]=1;
data[44]=1;
data[45]=2;
data[46]=2;
data[47]=1;

data[48]=1;
data[49]=1;
data[50]=2;
data[51]=2;
data[52]=2;
data[53]=2;
data[54]=2;
data[55]=0;

data[56]=1;
data[57]=1;
data[58]=1;
data[59]=1;
data[60]=1;
data[61]=1;
data[62]=1;
data[63]=0;
}

ケン○ッキーフライドチキンを作ってみた。

2010-03-22T23:00:00.003+09:00

http://blog.livedoor.jp/knjymmt/archives/14568371.html
http://2chcopipe.blog122.fc2.com/blog-entry-3752.html
http://www.lifehacker.jp/2009/07/090728kfc.html

以上のサイトを参考にしてケン○ッキーフライドチキンを作ってみました。

ショートニングは使いませんでした。油を捨てたくなかったので。

香辛料をそろえるが面倒でした。
バジル　オレガノは粉末が手に入らなくてみじん切り（？）程度のと
ガーリックはあらびきでした。

香辛料は
黒コショウ
ナツメグ
オールスパイス
バジル
オレガノ
パプリカ
チリペッパー
ガーリック
ジンジャー
タイム

を使ってみました。

しかしうまくいかず。。。
ただのから揚げになってしまいました
何かしらの香辛料の匂いはするんですが　ケン○ッキーとは程遠く。。。
パウダー　じゃなかったのが原因でしょうか・・・？

IRCのfreenodeにおけるNickServ ChanServ について

2010-02-07T14:00:00.001+09:00

● 登録したいニックネームでIRCに接続

● NICKへ登録
/nickserv register ログインパス自分のメールアドレス
するとメールが送られてきてその指示に従う

● ログイン
/nickserv identify ログインパス

● チャンネルに入ります。(自分が作った誰かが既に作ったのは無理)
そこでチャンネルを登録
/chanserv register #チャンネル名

● ChanServを常駐させたいとき
/chanserv set #チャンネル名 guard on

● ChanServを常駐を解除させたいとき
/chanserv set #チャンネル名 guard off

● 管理ユーザーを増やす（チャンネルを作った人は最初から管理ユーザー）
/chanserv access #チャンネル名 add [追加したいメンバ] [権限]
例
/chanserv access #aaa add takahashi +votsriRfAF
+votsriRfAFは最高権限

● 管理ユーザーから消す
/chanserv access #チャンネル名 del [追加したいメンバ] [権限]

● 管理ユーザーの一覧を表示する
/chanserv access #チャンネル名 list

● オペレータになる
/chanserv op #チャンネル名

ホームページについて

2010-01-04T00:47:00.000+09:00

ホームページ　更新しました。。。。

といっても　まぁ　

見た目だけなんですけどねぇ。。。

コマンドライン引数の取得について

2010-01-04T00:12:00.004+09:00

実行形式には
IMAGE_SUBSYSTEM_UNKNOWN 未知のサブシステム
IMAGE_SUBSYSTEM_NATIVE　デバイスドライバとからしい
IMAGE_SUBSYSTEM_WINDOWS_GUI　GUI
IMAGE_SUBSYSTEM_WINDOWS_CUI　CUI
IMAGE_SUBSYSTEM_POSIX_CUI　PosixのCUI（？）
IMAGE_SUBSYSTEM_WINDOWS_CE_GUI　Windows CEのGUI

があるわけですが　

まぁ

EXEはコマンドライン引数を取得することができます。

C言語では

CUI

int main(int argc,char *argv[])
{
return 0;
}

GUI

int WINAPI WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine, //コマンドライン文字列
int nCmdShow
) {
return 0;
}

とまぁ　なっているわけですよね

メイン関数の引数としてコマンドライン引数が取得できるわけなんですが、

ただメイン関数の引数は　普通の関数の引数とは仕組みがちょいと違うんですわな（たぶん）

普通の関数はスタックに積まれているデータを引数として使うんですが、

メインの引数はスタックにあるわけでなくてちょっと違った場所にあるらしい、、、

MS-DOS時代は　PSP（program segment prefix）というとこにあったらしい。

Win32ではどのようになっているのか良くわからなかったのだが、PSPはまだ健在らしい・・・？
http://yasu.asuka.net/docs/tsr/
ここによると健在のような。。。

私が持っている書籍によると（高級言語プログラマのためのアセンブラ入門　ソフトバンククリエイティブ株式会社　http://www.amazon.co.jp/%E9%AB%98%E7%B4%9A%E8%A8%80%E8%AA%9E%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9E%E3%81%AE%E3%81%9F%E3%82%81%E3%81%AE%E3%82%A2%E3%82%BB%E3%83%B3%E3%83%96%E3%83%A9%E5%85%A5%E9%96%80-%E6%9E%97-%E6%99%B4%E6%AF%94%E5%8F%A4/dp/4797332816　　　p424~425）

起動直後のDSレジスタにPSPの領域の先頭アドレスがあるとかないとか。。。

GetCommandLine()という関数で取得も可能なのだが。。。

まぁ要するに　アセンブラレベルで　CUI　GUI　ともに　コマンドラインとかインスタンスとか取得するにはどうすればいいのかーー！！　と格闘してます　っよっと

EXEの構造について

2010-01-04T00:10:00.000+09:00

PEヘッダ　の
　FileAlignmentは0x200(512B) ～ 0x10000(64KiB)ですので、それ以下それ以上だとエラーでます。

皆さんお気をつけて。。。

はぁ。。。

2010-01-04T00:09:00.000+09:00

もう少しで冬休みも終わりです。。。宿題・課題をやらなければ。。。

インターネットと電話線

2009-03-28T02:48:00.002+09:00

おとといの夕方から突然インターネットに接続できなくなってしまいました。

電話の方も同時刻から雑音がひどくてまともに通話できるような状態ではありませんでした。

今日NTTに電話したら　特殊な車（電柱をとかの高さまで人を乗せて上げるようなの）が二台
ウチに来て　電話機・配線・保安器をみて回りました。　結局　ウチまで来ている電話線が途中で切れていたそうです。（最近風が強くてなんか当たったのか・・・？）

電柱電柱間での断線だったので　修理費用はかかりませんでした。

今までネットの回線が切断されやすかったのはその所為だったのかなと・・・（まぁ回線復帰しましたが　前と変わんない・・・）

基地局からかなり離れているので　光とか　に（できれば）したいな　と。

保安器を新しいのにしたからといって回線の安定性が保証されるわけじゃないから　工事するのも　なんだな。。。

IRCでリバーシっぽいもの。

2009-02-25T01:05:00.005+09:00

limeChatでリバーシするjavascriptこしらえました。

javascriptをいじるのは初体験でしたが、ハマってしまいそうです^^

以下　リーバシする　スプリクト^^(わざとですよ)


var turn=0;//0黒 1 白　ターン
var data = new Array(8*8); 
var data2 = new Array(8*8); 
var channel_g;
var end=0;

function event::onChannelText(prefix, channel, text){
 channel_g=channel;
 if(text.match(/^#/i)){
  
  cmd=""+text.match(/[a-z]+$/i);
  var ddd=text.match(/(\d)/g);

  if(ddd!=null){

   x=ddd[0];
   y=ddd[1];
   if(end==1){
    send(channel,"<color navy,silver>＜ゲームを再開してください＞");
    return(0);
   }
   if(x>8||x==0||y>8||y==0){
    send(channel,"<color navy,silver>＜不正な入力です＞");
   }else{
    if(putable(x-1,y-1)==0){
     send(channel,"<color navy,silver>＜そこには打てません＞");
     
    }else{
     copyArr12();
     put(x-1,y-1);
     turnChange()
     if(numberOfPutable()==0){
      turnChange()
      if(numberOfPutable()==0){
       
       if(black_n()>white_n()){
        send(channel,"<color navy,silver>＜黒の勝ち＞");
       }
       if(black_n()<white_n()){
        send(channel,"<color navy,silver>＜白の勝ち＞");
       }
       if(black_n()==white_n()){
        send(channel,"<color navy,silver>＜引き分け＞");
       }
       draw();
       end=1;
       return(0);
      }else{
       send(channel,"<color navy,silver>＜打つ手がないのでパス＞");
      }
     }
     draw();
     
    }
   }
  }

  if(cmd!=null){
   if(cmd.search(/^new$/i)!=-1){
    send(channel,"<color navy,silver>＜ゲームを開始します＞");
    newGame();
    draw();
    end=0;
   }
   if(cmd.search(/^matta$/i)!=-1){
    if(matta_ok==1){
     send(channel,"<color navy,silver>＜\"待った\"しました＞");
     copyArr21();
     turnChange()
     draw();
     end=0;
     matta_ok=0;
    }else{
     send(channel,"<color navy,silver>＜\"待った\"できません＞");
    }
   }
  }
 }
}

function newGame(){
 turn=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   data[(ix)*8+(iy)] = 0;
  }
 }
 data[(3)*8+(3)]=1; //1黒？
 data[(4)*8+(4)]=1; //2白
 data[(4)*8+(3)]=2;
 data[(3)*8+(4)]=2;
}
function draw(){
 send(channel_g,"<color white,white>,/<color gray,white>1<color white,white>,,<color gray,white>2<color white,white>,,<color gray,white>3<color white,white>,,<color gray,white>4<color white,white>,,<color gray,white>5<color white,white>,,<color gray,white>6<color white,white>,,<color gray,white>7<color white,white>,,<color gray,white>8");
 for(iy=0;iy<8;iy++){
  str="";
  str+="<color gray,white>"+(iy+1);
  for(ix=0;ix<8;ix++){
   
   if(data[(ix)*8+(iy)]==0){
    if(putable(ix,iy)==0){
     str+=""+"<color green,green>.<color black,green>・<color green,green>.";
    }else{
     str+=""+"<color green,green>.<color red,green>・<color green,green>."
    }
   }
   if(data[(ix)*8+(iy)]==1){
    str+=""+"<color black,green>●";
   }
   if(data[(ix)*8+(iy)]==2){
    str+=""+"<color white,green>●";
   }
  }
  if(iy==5){
   str+="<color>  balck "+black_n();
  }
  if(iy==6){
   str+="<color>  white "+white_n();
  }
  if(iy==7){
   if(turn==0){
   str+="<color>  黒の番です";
   }else{
   str+="<color>  白の番です";
   }
  }
  send(channel_g,str);
 }
}

function black_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==1){
   amount++;
  }
 }
 return(amount);
}

function white_n(){
 amount=0;
 for(i=0;i<64;i++){
  if(data[i]==2){
   amount++;
  }
 }
 return(amount);
}

function putable(x,y){
 rr=0;
 if(data[(x)*8+(y)]==0){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){rr=1;}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
 }
 return(rr);
}

function put(x,y){
  if(turn==0){
   a1=2;
   a2=1;
  }else{
   a1=1;
   a2=2;
  }
  if(x!=0&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x-m,y-m);}
     break;
    }
    if(data[(x-m)*8+(y-m)]==0){
     break;
    }
    if(x-m==0||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x,y-m);}
     break;
    }
    if(data[(x)*8+(y-m)]==0){
     break;
    }
    if(y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y-m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y-m)]==a2){
     if(a==1){lineChange(x,y,x+m,y-m);}
     break;
    }
    if(data[(x+m)*8+(y-m)]==0){
     break;
    }
    if(x+m==7||y-m==0){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x+m,y);}
     break;
    }
    if(data[(x+m)*8+(y)]==0){
     break;
    }
    if(x+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(x!=7&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x+m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x+m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x+m,y+m);}
     break;
    }
    if(data[(x+m)*8+(y+m)]==0){
     break;
    }
    if(x+m==7||y+m==7){
     break;
    }
    m++;
    
   }
  }
  
  if(y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x,y+m);}
     break;
    }
    if(data[(x)*8+(y+m)]==0){
     break;
    }
    if(y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0&&y!=7){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y+m)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y+m)]==a2){
     if(a==1){lineChange(x,y,x-m,y+m);}
     break;
    }
    if(data[(x-m)*8+(y+m)]==0){
     break;
    }
    if(x-m==0||y+m==7){
     break;
    }
    m++;
    
   }
  }
  if(x!=0){
   m=1;
   a=0;
   while(1){
    if(data[(x-m)*8+(y)]==a1){
     a=1;
    }
    if(data[(x-m)*8+(y)]==a2){
     if(a==1){lineChange(x,y,x-m,y);}
     break;
    }
    if(data[(x-m)*8+(y)]==0){
     break;
    }
    if(x-m==0){
     break;
    }
    m++;
   
   }
  }
}

function lineChange(x1,y1,x2,y2){
 if(turn==0){
  a=1;
 }else{
  a=2;
 }
 mx=0
 my=0
 while(1){
  data[(x1+mx)*8+(y1+my)]=a;
  if(x2==x1+mx&&y2==y1+my){break;}
  if(x2-x1>0){mx++;}
  if(x2-x1<0){mx--;}
  if(y2-y1>0){my++;}
  if(y2-y1<0){my--;}
 }
}

function numberOfPutable(){
 amount=0;
 for(ix=0;ix<8;ix++){
  for(iy=0;iy<8;iy++){
   if(putable(ix,iy)==1){amount++;}
  }
 }
 //send(channel_g,""+amount);
 return(amount);
}

function turnChange(){
 if(turn==0){
  turn=1;
 }else{
  turn=0;
 }
}
matta_ok=0;
function copyArr12(){
 matta_ok=1;
 for(i=0;i<64;i++){
  data2[i]=data[i];
 }
}
function copyArr21(){
 for(i=0;i<64;i++){
   data[i]=data2[i];
 }
}

ケンタッキーフライドチキンについて

2009-02-07T20:12:00.003+09:00

時々ケンタッキーを食べる機会が自分にはあります。

個人的にケンタッキーを目の前にするとテンション上がります。

だって、おいしいじゃないですか。^^

ただ、鳥をミンチとかにせずそのままカットして揚げているので
それぞれ肉に、ばらつきあったりしますよね。

何でも　ウィング　サイ　キール　ドラム　リブ　の五種類があるそうです。

やっぱり一番大きな肉が食べたいですよね。

なんとケンタッキーでは部位が選択できる　かも　なのです。

（部位を指定して買えるか。　に対して）「ご来店時に、ご相談ください。
少数であれば、その時の商品の状況によって、お受けできる場合もありますので、
ご来店の際にご相談ください。
なお、必ずご希望にそえるということではございませんのでご了承願います。
」

だそうです。

リブ　10個！！　とか無理そうですけど　常識の範囲内であれば　偏った注文もできそうです。

勝手な推測ですが、"オリジナルチキン" 5ピース　を頼めば、　上で言った　
五種類全部　"かぶり"なしで買えるんでしょうかね？

個人的にドラムとリブは苦手なので、　、"オリジナルチキン" 4ピースドラムとリブはなしで　と言う注文がしたいですね。

食べ物の話をしていると、おなかが減ってきました。。。　そんなこんなで　I love KFC.

文字列を延々と歪ませる　ピクセル間補正有り

2009-02-01T14:06:00.000+09:00

文字列を延々と歪ませるピクセル間補正有り。
この前のは変形するたびに、汚くなっていったので　ピクセル間で補正してみました。



#module
#uselib "gdi32.dll"
#func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int
#deffunc messize var tBuf,array tSize
notesel tBuf
repeat notemax
noteget tBuf2,cnt
 tBuf3=tBuf2
 txtLen=strlen(tBuf3)
 dim tSize,2
 GetTextExtentPoint32 hdc,varptr(tBuf3),txtLen,varptr(tSize)
 if cnt=0:x=tSize(0)
 if x<tSize(0):x=tSize(0)
 loop
 tSize(0)=x
 tSize(1)=tSize(1)*notemax
 return
#global

#include "hspmath.as"
#define ctype stogx(%1) (( (%1)-offsetx )*(bai)+ginfo_winx/2)
#define ctype stogy(%1) (((%1)-offsety )*(-1.0)*(bai)+ginfo_winy/2) 
#define e 2.718281828459045235360287471352 
#define pi 3.1415926535897932384626433832795028841971
bai=1.0       //表示倍率
offsetx=0      //表示中心 X
offsety=0      //表示中心 Y
randomize
title "文字列を延々と歪ませる ピクセル間補正有り"
onexit *exit
goto *sake
*exit
 end
*sake

screen 3

skx=-320.0
sky=-240.0
smx=320.0
smy=240.0

dialog ".bmp;*.jpg",16,""
if stat!=0{
picload refstr,1



color 255,128,128
}else{color 128,128,128}
repeat
x+=30
line x,-1,x,ginfo_winy
if x>ginfo_winx:break
loop

repeat
y+=30
line -1,y,ginfo_winx,y
if y>ginfo_winy:break
loop


font "",50

buf=""

repeat 8
f=rnd(2)
buf+=strf("%c",f*(rnd(26)+65)+(f!1)*(rnd(26)+97))
loop
messize Buf,textSize

pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)-1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)-1,stogy(-textSize(1)/2)+1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)-1
color 255,255,255
mes buf
pos stogx(-textSize(0)/2)+1,stogy(-textSize(1)/2)+1
color 255,255,255
mes buf

pos stogx(-textSize(0)/2),stogy(-textSize(1)/2)
color 0,0,0
mes buf

gsel 0,1


repeat 

x_=skx
y_=sky
xx=0
yy=0
ox=1.0*rnd(300)-150
sx=1.0*rnd(60)+5
bx=1.0*rnd(100)+5
rad=1.0*rnd(360)*pi/180

repeat
x__=x_*cos(rad)-y_*sin(rad)
y__=x_*sin(rad)+y_*cos(rad)
x=x__*cos(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*sin(rad)
y=-x__*sin(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*cos(rad)

gsel 3
pget stogx(x),stogy(y)
r1=ginfo_r
g1=ginfo_g
b1=ginfo_b
pget stogx(x-1),stogy(y)
r2=ginfo_r
g2=ginfo_g
b2=ginfo_b
pget stogx(x),stogy(y-1)
r3=ginfo_r
g3=ginfo_g
b3=ginfo_b
pget stogx(x-1),stogy(y-1)
r4=ginfo_r
g4=ginfo_g
b4=ginfo_b

xt=1*x
if x>0:xt+=1
yt=1*y
if y>0:yt+=1
xx=1.0*xt-x
yy=1.0*yt-y

r=((1.0-xx)*(1.0-yy))*r1+((xx)*(1.0-yy))*r2+((1.0-xx)*yy)*r3+(xx*yy)*r4
g=((1.0-xx)*(1.0-yy))*g1+((xx)*(1.0-yy))*g2+((1.0-xx)*yy)*g3+(xx*yy)*g4
b=((1.0-xx)*(1.0-yy))*b1+((xx)*(1.0-yy))*b2+((1.0-xx)*yy)*b3+(xx*yy)*b4


gsel 0
color r,g,b
pset stogx(x_),stogy(y_)

x_+
if x_>=smx:x_=skx:y_+:if y_>=smy:y_=sky:break

wait 0
loop
gsel 3
gmode 0,640,480,0
pos 0,0
gcopy 0,0,0,640,480

loop

文字列を延々と歪ませる

2009-01-31T22:07:00.004+09:00

文字列（＆画像＆線）を延々と歪ませる　ソースコードをこしらえました。
x'=x , y'=1/(e^(x)+e^(-x))+y　という式を使って　あとは、行列を使って回転移動させたりしただけです。



#module
#uselib "gdi32.dll"
#func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int
#deffunc messize var tBuf,array tSize
notesel tBuf
repeat notemax
noteget tBuf2,cnt
 tBuf3=tBuf2
 txtLen=strlen(tBuf3)
 dim tSize,2
 GetTextExtentPoint32 hdc,varptr(tBuf3),txtLen,varptr(tSize)
 if cnt=0:x=tSize(0)
 if x<tSize(0):x=tSize(0)
 loop
 tSize(0)=x
 tSize(1)=tSize(1)*notemax
 return
#global

#include "hspmath.as"
#define ctype stogx(%1) (( (%1)-offsetx )*(bai)+ginfo_winx/2)
#define ctype stogy(%1) (((%1)-offsety )*(-1.0)*(bai)+ginfo_winy/2) 
#define e 2.718281828459045235360287471352 
#define pi 3.1415926535897932384626433832795028841971
bai=1.0       //表示倍率
offsetx=0      //表示中心 X
offsety=0      //表示中心 Y
randomize
title "文字列を延々と歪ませる"
onexit *exit
goto *sake
*exit
 end
*sake

screen 3

dialog "",16,""
picload refstr,1
skx=-320.0
sky=-240.0
smx=320.0
smy=240.0

color 255,128,128

repeat
x+=30
line x,-1,x,ginfo_winy
if x>ginfo_winx:break
loop

repeat
y+=30
line -1,y,ginfo_winx,y
if y>ginfo_winy:break
loop


font "",30

buf=""

repeat 8
f=rnd(2)
buf+=strf("%c",f*(rnd(26)+65)+(f!1)*(rnd(26)+97))
loop
messize Buf,textSize

pos stogx(-textSize(0)/2),stogy(-textSize(1)/2)
color 0,0,0
mes buf

gsel 0,1


repeat 

x_=skx
y_=sky

ox=1.0*rnd(300)-150
sx=1.0*rnd(60)+5
bx=1.0*rnd(100)+5
rad=1.0*rnd(360)*pi/180

repeat
x__=x_*cos(rad)-y_*sin(rad)
y__=x_*sin(rad)+y_*cos(rad)
x=x__*cos(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*sin(rad)
y=-x__*sin(rad)+(1.0/(pow(e,(x__-ox)/sx)+pow(e,-(x__-ox)/sx))*bx+y__)*cos(rad)

gsel 3
pget stogx(x),stogy(y)
r=ginfo_r
g=ginfo_g
b=ginfo_b

gsel 0
color r,g,b
pset stogx(x_),stogy(y_)

x_+
if x_>=smx:x_=skx:y_+:if y_>=smy:y_=sky:break

wait 0
loop
gsel 3
gmode 0,640,480,0
pos 0,0
gcopy 0,0,0,640,480

loop

リンクシミュレータ的な？

2009-01-18T15:46:00.003+09:00

簡易リンクシミュレータ　なるものをちょいとこしらえました。
データの打ち込みがめんどくさいですけど、　そこそこ　使えるかも（？


#define POS_X 0
#define POS_Y 1

#define LINK_LEN_1 2
#define LINK_LEN_2 3

#define SPEED 8

#define CENTER_X 2
#define CENTER_Y 3

#define LINK_1 0
#define LINK_2 1

#define MODE 3

#define FREE 0
#define PIN 1
#define MOTOR 2
#define MOTOR_R 3

#define END_DATA 2

#define PEN 7
#define ON_ 1
#define OFF_ 0

#define _MODE data2(id,MODE)
#define _SPEED data1(id,SPEED)
#define _POS_X data1(id,POS_X)
#define _POS_Y data1(id,POS_Y)
#define _CENTER_X data1(id,CENTER_X)
#define _CENTER_Y data1(id,CENTER_Y)
#define _PEN data2(id,PEN)
#define _LINK_1 data2(id,LINK_1)
#define _LINK_2 data2(id,LINK_2)
#define _LINK_1_LEN data2(id,4)=1:data1(id,LINK_LEN_1)
#define _LINK_2_LEN data2(id,9)=1:data1(id,LINK_LEN_2)
#define END_OF_DATA data2(id,END_DATA)=END_DATA

goto *main
*datum
//////////////////////リンクデータ開始//////////////////////////



name="テオヤンセン リンク"

id=0
 _MODE=MOTOR_R     //モータを定義する
 _SPEED=10.0     //スピード [DEG per TURN]
 
 _POS_X=50.0     //モータ作業点初期位置 X
 _POS_Y=25.0     //モータ作業点初期位置 Y
 _CENTER_X=_POS_X-10   //モータ軸X
 _CENTER_Y=_POS_Y+10   //モータ軸Y
 
id=1
 _MODE=PIN      //固定点を定義する

 _POS_X=0.0      //固定点位置 X
 _POS_Y=0.0     //固定点位置 Y

id=2
 _MODE=FREE     //自由点を定義する
 
 _POS_X=0.0      //自由点初期位置 X
 _POS_Y=50.0     //自由点初期位置 Y
 
 _LINK_1=0      //接続される点a 
 _LINK_2=1      //接続される点b

id=3
 _MODE=FREE     //自由点を定義する
 
 _POS_X=-50.0     //自由点初期位置 X
 _POS_Y=0.0     //自由点初期位置 Y
 
 _LINK_1=2      //接続される点a 
 _LINK_2=1      //接続される点b

id=4
 _MODE=FREE     //自由点を定義する
 
 _POS_X=0.0      //自由点初期位置 X
 _POS_Y=-75.0    //自由点初期位置 Y
 
 _LINK_1=0      //接続される点a 
 _LINK_2=1      //接続される点b

id=5
 _MODE=FREE     //自由点を定義する
 
 _POS_X=-40.0     //自由点初期位置 X
 _POS_Y=-75.0    //自由点初期位置 Y
 
 _LINK_1=4      //接続される点a 
 _LINK_2=3      //接続される点b
 
id=6
 _MODE=FREE     //自由点を定義する
 
 _POS_X=0.0      //自由点初期位置 X
 _POS_Y=-75.0-100.0   //自由点初期位置 Y
 
 _LINK_1=4     //接続される点a 
 _LINK_2=5      //接続される点b
 _PEN=ON_
 
id=6

/*
name="ごく普通のリンク"

id=0
 _MODE=MOTOR_R     //モータを定義する
 _SPEED=10.0     //スピード [DEG per TURN]
 
 _POS_X=0.0   //モータ作業点初期位置 X
 _POS_Y=100.0  //モータ作業点初期位置 Y
 _CENTER_X=0.0    //モータ軸X
 _CENTER_Y=0.0    //モータ軸Y

id=1
 _MODE=PIN      //固定点を定義する

 _POS_X=200.0   //固定点位置 X
 _POS_Y=0.0   //固定点位置 Y

id=2
 
 _MODE=FREE     //自由点を定義する
 
 _POS_X=200.0   //自由点初期位置 X
 _POS_Y=100.0  //自由点初期位置 Y
 
 _LINK_1=0      //接続される点a 
 _LINK_1_LEN=200.0   //点aとの距離
 _LINK_2=1      //接続される点b
 _LINK_2_LEN=250.0    //点bとの距離

id=3
 
 _MODE=FREE     //自由点を定義する
 
 _POS_X=0.0   //自由点初期位置 X
 _POS_Y=260.0  //自由点初期位置 Y
 
 _LINK_1=0      //接続される点a 
 _LINK_1_LEN=200.0   //点aとの距離
 _LINK_2=2      //接続される点b
 _LINK_2_LEN=200.0    //点bとの距離
 _PEN=ON_

id=3
*/
 
////////////////////////////////////////////////////////////////
id+
 END_OF_DATA  //終了
id=0
//////////////////////リンクデータ終了//////////////////////////
title "簡易リンクシミュレータ  -"+name+"-"
return

#define napier 2.718281828459045235360287471352 
#define once repeat
#define end_once break %c loop
#define ctype stogx(%1) (( (%1)-offsetx )*(bai)+ginfo_winx/2)
#define ctype stogy(%1) (((%1)-offsety )*(-1.0)*(bai)+ginfo_winy/2) 
#define ctype pp(%1) ((%1)*(%1))
#define ctype leng(%1,%2,%3, %4) (sqrt( pp((%1)-(%3))+pp((%2)-(%4))))
#define pi 3.1415926535897932384626433832795028841971
#define mmousex ((ginfo(0)-(ginfo(4)+(ginfo(10)-ginfo(12))/2)))
#define mmousey ((ginfo(1)-(ginfo(5)+(ginfo(11)-ginfo(13))-(ginfo(10)-ginfo(12))/2)))
*hankei
 id=0
 repeat
 if data2(id,2)=2:id=0:break
 if data2(id,3)=0{
  if data2(id,4)=0{
   data1(id,2)=leng(data1(data2(id,0),0),data1(data2(id,0),1),data1(id,0),data1(id,1))
   data2(id,4)=1
  }
  if data2(id,9)=0{
   data1(id,3)=leng(data1(data2(id,1),0),data1(data2(id,1),1),data1(id,0),data1(id,1))
   data2(id,9)=1
  }
 }
 id+
 loop
 
 return
*mem

bai=1.0       //表示倍率
offsetx=0      //表示中心 X
offsety=0      //表示中心 Y

gsel 3
color
boxf
gsel 0



waku=1
max=16
rate=1
c=4
ddim data1,max,9
dim data2,max,10

/*
data1

x
y
r1
r2
rad

data2

ID1
ID2
flag
 0 未演算
 1 演算済
 2 エンド
att
 0 自由
 1 固定
 2 モータ
*/


return

*draw
 mes_ =""
 repeat
 color 128
 line -1, stogy(0.0),ginfo_winx,stogy(0.0)
 line stogx(0.0), -1,stogx(0.0),ginfo_winy
 if data2(id,2)=2:id=0:break
 data2(id,2)=0
 
 if data2(id,3)=2||data2(id,3)=3{
  color 0,128,0
  line stogx(data1(id,0)),stogy(data1(id,1)),stogx(data1(id,2)),stogy(data1(id,3))
 }
 if data2(id,3)=0{
  color 0,0,0
  s1=data2(id,0)
  s2=data2(id,1)
  a1=data1(s1,0)
  b1=data1(s1,1)
  a2=data1(s2,0)
  b2=data1(s2,1)
  muri_lo=0
  muri_lo1=0
  randomize  287465827
  randomize (id+33)*91+90+rnd(354265320)
  du=rnd(256)
  du=rnd(256)
  du=rnd(256)
  aa=rnd(3)
  bb=3;rnd(3)
  r=(rnd(128)+128)*(aa=0||bb=0)
  g=(rnd(128)+128)*(aa=1||bb=1)
  b=(rnd(128)+128)*(aa=2||bb=2)
  if data2(id,6)=1:muri_lo=1
  if data2(id,6)=2:muri_lo=2
  if data2(id,5)=1:color r,g,b:muri_lo1=1
  if data2(id,5)=2:color r,g,b:muri_lo1=2
  line stogx(data1(id,0)),stogy(data1(id,1)),stogx(a1),stogy(b1)
  line stogx(data1(id,0)),stogy(data1(id,1)),stogx(a2),stogy(b2)
  
  if muri_lo{ 
   color r,g,b
   if muri_lo1=1:mes_=""+mes_+"点"+id+" において長さが足りません\n"
   if muri_lo1=2:mes_=""+mes_+"点"+id+" において長すぎです。\n"
   circle stogx(data1(data2(id,0),0)-data1(id,2)),stogy(data1(data2(id,0),1)-data1(id,2)),stogx(data1(data2(id,0),0)+data1(id,2)),stogy(data1(data2(id,0),1)+data1(id,2)),0
   circle stogx(data1(data2(id,1),0)-data1(id,3)),stogy(data1(data2(id,1),1)-data1(id,3)),stogx(data1(data2(id,1),0)+data1(id,3)),stogy(data1(data2(id,1),1)+data1(id,3)),0
  }
 }
 color 255,255,255
 circle stogx(data1(id,0))-c,stogy(data1(id,1))-c,stogx(data1(id,0))+c,stogy(data1(id,1))+c,1
 color 0,0,255
 circle stogx(data1(id,0))-c,stogy(data1(id,1))-c,stogx(data1(id,0))+c,stogy(data1(id,1))+c,0
if data2(id,3)=1{
 color 255,255,255
 circle stogx(data1(id,0))-c,stogy(data1(id,1))-c,stogx(data1(id,0))+c,stogy(data1(id,1))+c,1
 color 255,128,0
 circle stogx(data1(id,0))-c,stogy(data1(id,1))-c,stogx(data1(id,0))+c,stogy(data1(id,1))+c,0
}
 
if data2(id,3)=2||data2(id,3)=3{
 color 255,255,255
 circle stogx(data1(id,2))-c,stogy(data1(id,3))-c,stogx(data1(id,2))+c,stogy(data1(id,3))+c,1
 color 0,128,0
 circle stogx(data1(id,2))-c,stogy(data1(id,3))-c,stogx(data1(id,2))+c,stogy(data1(id,3))+c,0
 }

if pen_flag=1{
 gsel 3
 color
 boxf
 gsel 0
 pen_flag=0
}
if data2(id,PEN)=ON_{
 gsel 3
  randomize  356745267875
  randomize (id+33)*91+90+rnd(654356564)
  du=rnd(256)
  du=rnd(256)
  du=rnd(256)
  du=rnd(256)
  aa=rnd(3)
  bb=4;rnd(3)
  r=(rnd(128)+128)*(aa=0||bb=0)
  g=(rnd(128)+128)*(aa=1||bb=1)
  b=(rnd(128)+128)*(aa=2||bb=2)
  color r,g,b
 if data2(id,8)=0:data2(id,8)=1: data1(id,6)=data1(id,0):data1(id,7)=data1(id,1)
 line stogx(data1(id,6)),stogy(data1(id,7)),stogx(data1(id,0)),stogy(data1(id,1))
 data1(id,6)=data1(id,0):data1(id,7)=data1(id,1)
 gsel 0
}
color 0,0,255
 pos stogx(data1(id,0))+10, stogy(data1(id,1))
 mes id

 id+
 loop
 
 pos 0,0
 gmode 2,800,600
 gcopy 3,0,0,800,600
 color 255,0,0
 pos waku+5,waku+5
 mes mes_
 pos ginfo_winx-120,5
 mes "倍率"+bai
 mes_ =""
 color 0,0,0
 if muri{
  color 255,0,0
 }
 
 boxf 0,0,ginfo_winx,waku
 boxf 0,0,waku,ginfo_winy
 boxf 0,ginfo_winy-waku-1,ginfo_winx,ginfo_winy
 boxf ginfo_winx-waku-1,0,ginfo_winx,ginfo_winx
 
 return
*main

 

screen 0,800,600
buffer 3,800,600
gsel 3
color
boxf
gsel 0
onexit *exit
onclick gosub *oncli


gosub *mem
gosub *datum
gosub *hankei
id=0
rad=0.0

pos 0+3,ginfo_winy-21-3
objsize 88,21
button gosub "実行/停止",*strt_
loop_once=1
gosub *mainloop


repeat
wait 5
if shutu=1:shutu=0:break
loop
goto *strt
*mainloop
 id=0
repeat

if data2(id,2)=0{
 once
 if data2(id,3)=2{
  if data2(id,4)=0{
   data2(id,4)=1
   data1(id,4)=sqrt((data1(id,0)-data1(id,2))*(data1(id,0)-data1(id,2))+(data1(id,1)-data1(id,3))*(data1(id,1)-data1(id,3)))
   data1(id,5)=pi+atan((data1(id,0)-data1(id,2)),(data1(id,1)-data1(id,3)))
  }
  r=data1(id,4)
  rad=data1(id,5)
  data1(id,0)=r*cos(rad)+data1(id,2)
  data1(id,1)=r*sin(rad)+data1(id,3)
  data1(id,5)+= pi*data1(id,8)/180.0
  data2(id,2)=1
  hen=1
  break
 }
 if data2(id,3)=3{
  if data2(id,4)=0{
   data2(id,4)=1
   data1(id,4)=sqrt((data1(id,0)-data1(id,2))*(data1(id,0)-data1(id,2))+(data1(id,1)-data1(id,3))*(data1(id,1)-data1(id,3)))
   data1(id,5)=pi+atan((data1(id,0)-data1(id,2)),(data1(id,1)-data1(id,3)))
  }
  r=data1(id,4)
  rad=data1(id,5)
  data1(id,0)=r*cos(rad)+data1(id,2)
  data1(id,1)=r*sin(rad)+data1(id,3)
  data1(id,5)-= pi*data1(id,8)/180.0
  data2(id,2)=1
  hen=1
  break
 }
 if data2(id,3)=0{
  if ((((data2(data2(id,LINK_1),2)=1)|| (data2(data2(id,LINK_1),MODE))=PIN))&&(((data2(data2(id,LINK_2),2)=1)||(data2(data2(id,LINK_2),MODE))=PIN))){
   s1=data2(id,LINK_1)
   s2=data2(id,LINK_2)
   a1=data1(s1,0)
   b1=data1(s1,1)
   a2=data1(s2,0)
   b2=data1(s2,1)
   r1=data1(id,2)
   r2=data1(id,3)
   l=0.0
   l=leng(a1,b1,a2,b2)
   rad_a=atan(sqrt(pp(2.0*r1*l)-pp(pp(r1)+pp(l)-pp(r2))),(pp(r1)+pp(l)-pp(r2)))
   rad_b=atan(b2-b1,a2-a1)
   nuke=0
   iti=data2(id,5)
   
   if l>=(r1+r2):muri=1:data2(id,5)=1:data2(id,6)=1:nuke=1:if iti!=1:hen=1
   if abs(r1-r2)>=l:muri=1:data2(id,5)=2:data2(id,6)=2:nuke=1:if iti!=2:hen=1
   if nuke=1:data2(id,2)=1:break
   data2(id,5)=0
   
   my1=sin(-rad_a+rad_b)*r1+b1
   mx1=cos(-rad_a+rad_b)*r1+a1

   my2=sin(rad_a+rad_b)*r1+b1
   mx2=cos(rad_a+rad_b)*r1+a1
  
   if leng(mx1,my1,data1(id,0),data1(id,1))<leng(mx2,my2,data1(id,0),data1(id,1)){
    data1(id,0)=mx1
    data1(id,1)=my1
   }else{
    data1(id,0)=mx2
    data1(id,1)=my2
   }
   hen=1
   data2(id,2)=1
   break
  }
 }
 if data2(id,3)=1{
 hen=1
 data2(id,2)=1
 }
 end_once
}


if data2(id,2)=2{
 id=0
 if hen=1{
  hen=0:continue
 }else{
  color 255,255,255
  boxf 
  color 0,0,0
  gosub *draw
  muri=0
  
  redraw 1
  if loop_once:loop_once=0:return
  wait 5
  redraw 0
  mww=mousew
if (mww/120)>0{
 bai*=(1.0+0.5)
 pen_flag=1
 offsetx=1.0*(-ginfo_winx/2+mmousex)/bai/napier+offsetx
 offsety=-1.0*(-ginfo_winy/2+mmousey)/bai/napier+offsety
}

if (mww/120)<0{
 bai*=(1.0/(1.0+0.5))
 pen_flag=1
 offsetx=-1.0*(-ginfo_winx/2+mmousex)/bai/napier+offsetx
 offsety=1.0*(-ginfo_winy/2+mmousey)/bai/napier+offsety
}
getkey click_,1
if click=1&&click_once=0:click_once=1{
 offsetx_=offsetx
 offsety_=offsety
 mou_x1=mmousex
 mou_y1=mmousey
}

if click{
pen_flag=1

 offsetx=-1.0*((mmousex)-mou_x1)/bai+offsetx_
 offsety=1.0*((mmousey)-mou_y1)/bai+offsety_
 ;dialog offsetx
}
if click_=0:click_once=0:click=0{
}

 continue
 }
}


id+
if shutu=1:shutu=0:break
loop
goto *strt

*strt_
 shutu=1
 return

*strt
 if switch_=0:switch_=1{
 if obj_make:clrobj obj_id:obj_make=0
 goto *mainloop
}
 switch_=0
 pos 88+3,ginfo_winy-21-3
 objsize 88,21
 button "初期化",*shoki
 obj_id=stat
 obj_make=1
 repeat
 wait 5
 if shutu=1:shutu=0:break
 loop
 goto *strt
*shoki
 id=0
 hen=0
 obj_make=0
 clrobj obj_id
 gosub *mem:gosub *datum:gosub *hankei
 switch_=0
 loop_once=1
 gosub *mainloop
 repeat
 wait 5
 if shutu=1:shutu=0:break
 loop
 goto *strt
*exit
 end
*oncli
 click=1
 return

HSPでランタイムを使わずにコンソールを使う

2008-12-20T14:08:00.007+09:00

ランタイムを使用せずコンソールを使ってみようと思います。
copenでコンソールを開き
coutputで文字を表示し、
cinputでキーボードから打たれた文字を取得します。
ccloseでコンソールを閉じます。


#module console
 #define STD_INPUT_HANDLE (-10) 
 #define STD_OUTPUT_HANDLE (- 11)
 #define STD_ERROR_HANDLE (-12)

 #uselib "kernel32.dll"
 #func AllocConsole "AllocConsole"
 #func FreeConsole "FreeConsole"
 #cfunc GetStdHandle "GetStdHandle" int
 #func SetStdHandle "SetStdHandle" int,int
 #func ReadFile "ReadFile" int,int,int,int,int
 #func WriteFile "WriteFile" int,int,int,int,int

 #deffunc cset
  SetStdHandle STD_OUTPUT_HANDLE,7
  SetStdHandle STD_INPUT_HANDLE,3
 return
 #deffunc copen
  AllocConsole
  
 return stat
 #deffunc cclose
  FreeConsole
 return stat
 #deffunc coutput str buf_
  buf=buf_
  b=0
  WriteFile GetStdHandle(STD_OUTPUT_HANDLE),varptr(buf),strlen(buf),b,0
  stat_=stat
  if stat_=0{
    return -1
  }
 return
 #deffunc cinput var buf_
  d=0
  buf_max=64
  sdim buf,buf_max
  data=0
  index=0
  repeat
   ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0
   stat_=stat
   if stat_=0{
    return -1
   }
   if data=13||data=10||data=0{
    buf_=buf
    return
   }
   poke buf,index,data
   index+
   if index=buf_max{
    sdim buf_d,buf_max
    buf_d=buf
    buf_max+=64
    sdim buf,buf_max
    buf=buf_d
   }
  loop
 return
 #deffunc cbinput var buf_
  d=0
  buf_max=64
  sdim buf,buf_max
  data=0
  index=0
  repeat
   ReadFile GetStdHandle(STD_INPUT_HANDLE),varptr(data),1,varptr(d),0
   stat_=stat
   if stat_=0{
    return -1
   }
   if data=0{
    buf_=buf
    return
   }
   poke buf,index,data
   index+
   if index=buf_max{
    sdim buf_d,buf_max
    buf_d=buf
    buf_max+=64
    sdim buf,buf_max
    buf=buf_d
   }
  loop
 return
#global

//////////サンプル///////////
a=""
copen
coutput "hello world"
cinput a
coutput a
wait
cclose
wait
end

任意桁数の実数計算

2008-09-23T21:47:00.000+09:00


#module
#defcfunc comp_h int a,int b
if a<b :return b
return a
#defcfunc comp_l int a,int b
if a<b :return a
return b

#deffunc fteki var keka_,var size1_,var ten1_
k1=size1_-ten1_-1-1
sdim keka_2,size1_
sik=0
sij=0
repeat
 if peek(keka_,k1+ten1_+1)=0:sik+:else:break
 k1-
loop
k1=-ten1_-1
repeat
 if peek(keka_,k1+ten1_+1)=0:sij+:else:break
 k1+
loop

size1_-=sik+sij
ten1_=sij

memcpy keka_2,keka_,size1_,0,sij
memcpy keka_,keka_2,size1_,0,0

return
#deffunc fzetai  var hiki2_,int size2_,int ten2_,int sehu2_,  var hiki3_,int size3_,int ten3_,int sehu3_
size1_=comp_h(ten2_+1,ten3_+1)+comp_h(size2_-ten2_-1,size3_-ten3_-1)+1
ten1_=comp_h(ten2_,ten3_)+1


k1=size1_-ten1_-1-1

repeat

st1=0
st2=0
if k1<=size2_-ten2_-1-1&&k1>=-ten2_-1{
 
 st1=((sehu2_!1)*2-1)*peek(hiki2_,k1+ten2_+1)
 
}
if k1<=size3_-ten3_-1-1&&k1>=-ten3_-1{
 st2=((sehu3_!1)*2-1)*peek(hiki3_,k1+ten3_+1)
}
st3=st1+st2+kuri
kuri=0
if st3>=10:st3-=10:kuri=1
if st3<0:st3+=10:kuri=-1


k1-
if k1<-(ten1_+1):break
loop

if kuri!=0:return 1
return


return
#deffunc fplus var keka_3,var size1,var ten1,var sehu1,  var hiki2,int size2,int ten2,int sehu2,  var hiki3,int size3,int ten3,int sehu3

fzetai hiki2, size2, ten2, sehu2,  hiki3, size3, ten3, sehu3
han=1
if stat=1:han=-1

size1=comp_h(ten2+1,ten3+1)+comp_h(size2-ten2-1,size3-ten3-1)+1
ten1=comp_h(ten2,ten3)+1
sdim keka_3,size1
sdim keka,size1
k1=size1-ten1-1-1
kuri=0
repeat

st1=0
st2=0
if k1<=size2-ten2-1-1&&k1>=-ten2-1{
 
 st1=han*((sehu2!1)*2-1)*peek(hiki2,k1+ten2+1)
 
}
if k1<=size3-ten3-1-1&&k1>=-ten3-1{
 st2=han*((sehu3!1)*2-1)*peek(hiki3,k1+ten3+1)
}
st3=st1+st2+kuri
kuri=0
if st3>=10:st3-=10:kuri=1
if st3<0:st3+=10:kuri=-1
poke keka,k1+ten1+1,st3

k1-
if k1<-(ten1+1):break
loop


sehu1=((han+1)/2!1)

fteki keka ,size1 ,ten1

;if kuri!=0:dialog "エラー"
memcpy keka_3,keka,size1,0,0
return
#global
a=""
size2=30
ten2=0//1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679 
sdim suti1,size2
//配列にデータをいれます　（π）
poke suti1,0,3
poke suti1,1,1
poke suti1,2,4
poke suti1,3,1
poke suti1,4,5
poke suti1,5,9
poke suti1,6,2
poke suti1,7,6
poke suti1,8,5
poke suti1,9,3
poke suti1,10,5
poke suti1,11,8
poke suti1,12,9
poke suti1,13,0
poke suti1,14,9
poke suti1,15,3
poke suti1,16,2
poke suti1,17,3
poke suti1,18,8
poke suti1,19,4
poke suti1,20,6
poke suti1,21,2
poke suti1,22,6
poke suti1,23,4
poke suti1,24,3
poke suti1,25,3
poke suti1,26,8
poke suti1,27,3
poke suti1,28,0
poke suti1,29,0

size3=2
sdim suti3,size3 
poke suti1,0,3
ten3=0
sehu3=0

sehu2=0


//fplus 代入される変数,サイズ,小数点位置   足す変数,サイズ,小数点位置　足される変数,サイズ,小数点位置
fplus suti,size,ten,sehu,suti1,size2,ten2,sehu2,suti3,size3,ten3,sehu3
//結果はデバッグウィンドウのメモリダンプで・・・

mes size1
mes ten1

自作RADツール（HSP）　途中断念・・・　再開の可能性あり？

2008-09-21T23:58:00.004+09:00

RADツールを製作していましたが行き詰っていました。
ソースを公開します
ソースを実行するときは　main_test.hsp　を実行してください。
EXEを実行するときは　！試作！.exe　を実行して下さい。

ダウンロード　－＞http://begriff.web.fc2.com/radtool.zip

式評価とポーランド記法化

2008-09-21T15:53:00.001+09:00


screen 0,700,600
;mes 12 + 24 * limit ( 68 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)
buf="12 + 24 * limit ( 68+89 ,36+48*sin(85), 120+64 ) * 59 +( 63>=23)"
;buf="24 * limit ( 68+89 ,48*aa(85+77,99*2), 120+64 )"
mes buf
len=strlen(buf)
sdim buf2,len

repeat
data=peek(buf,c)
if (data=' '||data=9)=0{
 poke buf2,c2,data
 c2+
}

c+
if c=len:c=0:c2=0:break
loop//--------------------------

mes buf2

len=strlen(buf2)
sdim buf,len
buf=buf2
sdim buf2,len

repeat
data=peek(buf,c)
if data='+'||data='-'||data='*'||data='/'||data='\\'||data='|'||data='&'||data='^'||data='='||data='>'||data='<'||data='!'{
 poke buf2,c,'C'
}else : if data='('{
 poke buf2,c,'B'
}else : if data=')'{
 poke buf2,c,'D'
}else : if data=','{
 poke buf2,c,'K'
}else : poke buf2,c,'A'
c+
if c=len:c=0:break
loop//--------------------------

mes buf2

len=strlen(buf2)

repeat
data=peek(buf2,c)
if data='A'{
 c2=c
 func=0
 repeat
 data=peek(buf2,c2)
 if data!='A'{
  if  data='B':func=1
  break
 }
 c2+
 if c2=len:break
 loop
 c2=0

 if func{
  repeat
  data=peek(buf2,c)
  if data ! 'A':break
  poke buf2,c,'F'
  c+
  if c=len:c=0:break
  loop
 }
}

c+
if c>=len:c=0:break
loop//--------------------------
mes "シンボル化"
mes buf2

len=strlen(buf2)
sdim buf3,len
sdim ad,len,len
sdim cd,len,len

repeat
data=peek(buf2,c)
if data='A'{
 poke buf3,c3,'A'
 c3+
 repeat
 if peek(buf2,c+c2)!'A':break
 data2=peek(buf,c+c2)
 poke ad(ac),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 ac+
}else :if data='C'{
 poke buf3,c3,'C'
 c3+
 repeat
 if peek(buf2,c+c2)!'C':break
 data2=peek(buf,c+c2)
 poke cd(cc),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 cc+
}else : if data='F'{
 poke buf3,c3,'F'
 c3+
 repeat
 if peek(buf2,c+c2)!'F':break
 data2=peek(buf,c+c2)
 poke cd(cc),c2,data2
 c2+
 loop
 c2-
 c=c+c2
 c2=0
 cc+
}else {
 poke buf3,c3,data
 c3+
}
c+
if c>=len:c=0:break
loop//--------------------------
c3=0
cc=0
ac=0

buf2=buf3
mes "シンボル簡易化"
mes buf2

len=strlen(buf2)
dim bk,len
dim ck,len


repeat//--------------------------
data=peek(buf2,c)
if data='B':lv+

if data='C'||data='F'{
 ck(cc)=lv
 cc+
}  
if data='B'||data='D'||data='K'{
 bk(bc)=lv
 bc+
}
if data='D':lv-
c+
if c>=len:c=0:break
loop
bc=0
cc=0


dim cy,len
dim ch,len
repeat//--------------------------
data=peek(buf2,c)
if data='C'{
 data2=cd(cc)
 h=0
 if data2="*":cy(cc)=5:ch(cc)=2:h=1
 if data2="/":cy(cc)=5:ch(cc)=2:h=1
 if data2="\\":cy(cc)=5:ch(cc)=2:h=1
 if data2="+":cy(cc)=4:ch(cc)=2:h=1
 if data2="-":cy(cc)=4:ch(cc)=2:h=1
 if data2="<<":cy(cc)=3:ch(cc)=2:h=1
 if data2=">>":cy(cc)=3:ch(cc)=2:h=1
 if data2="=":cy(cc)=2:ch(cc)=2:h=1
 if data2="==":cy(cc)=2:ch(cc)=2:h=1
 if data2="!":cy(cc)=2:ch(cc)=2:h=1
 if data2="!=":cy(cc)=2:ch(cc)=2:h=1
 if data2=">":cy(cc)=2:ch(cc)=2:h=1
 if data2="<":cy(cc)=2:ch(cc)=2:h=1
 if data2=">=":cy(cc)=2:ch(cc)=2:h=1
 if data2="<=":cy(cc)=2:ch(cc)=2:h=1
 if data2="&":cy(cc)=1:ch(cc)=2:h=1
 if data2="&&":cy(cc)=1:ch(cc)=2:h=1
 if data2="|":cy(cc)=1:ch(cc)=2:h=1
 if data2="||":cy(cc)=1:ch(cc)=2:h=1
 if data2="^":cy(cc)=1:ch(cc)=2:h=1
 if h=0:dialog "式の記述が無効です。  不明な演算子  \" "+data2+" \""
 cc+
}
if data='F'{
 cy(cc)=6
 cc+
}
c+
if c>=len:c=0:break
loop
h=0
fhm=0
cc=0
dim cf,len
repeat//--------------------------
data=peek(buf2,c)
if data='B'||data='D'||data='K'{
 bc+
}
if data='F'{
 k=bk(bc)
 c2=2
 repeat
 data2=peek(buf2,c+c2)
 if data2='B'||data2='D'||data2='K'{
  bc2+


 }
 if k=bk(bc+bc2){
  if data2='A':d=1
  if data2='K':fh+
  if data2='D':break
 }
 c2+
 if c+c2>=len:c2=0:break
 loop
 bc2=0
 c2=0
 fh+
 if d=0:fh=0
 d=0
 if fhm<fh:fhm=fh
 ch(cc)=fh
 cf(cc)=1
 fh=0
 cc+
 poke buf2,c,'C'
}
if data='C'{
 cf(cc)=0
 cc+
}
c+
if c>=len:c=0:break
loop
cc=0
bc=0
mes buf2

sdim buf3,len
dim c_st,len
dim ca,len
c_sa=0
c3=0
repeat//--------------------------
data=peek(buf2,c)
if data='C'{
 data2=peek(buf2,c+1)
 repeat
 if c_sa!0&&(ck(c_st(c_sa))>ck(cc)||((ck(c_st(c_sa))=ck(cc)&&cy(c_st(c_sa))>=cy(cc)))){
  ca(c4)=c_st(c_sa)
  poke buf3,c3,'C'
  c3+
  c4+
  c_sa-
 }else : break
 loop
 if data2='A'{
  poke buf3,c3,'A'
  c3+
  c+
  data2=peek(buf2,c+1)
 }
 if data2='B'{
  c_sa+
  c_st(c_sa)=cc
 }
 if data2='C'{
  if (ck(cc+1))>ck(cc)||(ck(cc+1)=ck(cc)&&cy(cc+1)>=cy(cc)){
   c_sa+
   c_st(c_sa)=cc
  }else{
   ca(c4)=cc
   poke buf3,c3,'C'
   c3+
   c4+
  }
 }
 if data2='K'||data2='D'||data2=0{
  ca(c4)=cc
  poke buf3,c3,'C'
  c3+
  c4+
 }
 
 cc+
}

if data='K'||data='D'||data=0{
 lv=bk(bc)
 if data=0:lv=0
 repeat
 if c_sa!0&&lv=ck(c_st(c_sa)){
  ca(c4)=c_st(c_sa)
  poke buf3,c3,'C'
  c3+
  c4+
  c_sa-
 }else :break
 loop
}

if data='B'||data='K'||data='D'{
 bc+
}

if data='A'{
 poke buf3,c3,'A'
 c3+
}
c+
if c>=len+1:c=0:break
loop
bc=0
c2=0
c3=0
c4=0
cc=0
mes "\n逆ポーランド記法化(シンボル)"
mes buf3
/*いらない↓*/
sdim buf4,512
len=strlen(buf3)
repeat//--------------------------
data=peek(buf3,c)
if data='A'{
 buf4+=ad(ac)+" "
 ac+
}
if data='C'{
 buf4+=cd(ca(cc))
 if cf(ca(cc)):buf4+="()"
 buf4+=" "
 cc+
}
c+
if c>=len+1:c=0:break
loop
mes "\n逆ポーランド記法化(人間が認識できるようにするだけなので内部処理的にはいらない　上と同じ)"
mes buf4
/*いらない↑*/
cc=0
ac=-1
dim a_st,len//各数値がどのスタックにあるか
sdim st_st,fhm//引数に渡す値の配列
sdim buf5,512
st2=0//引数の順番
ac=-1
c2=0

repeat//--------------------------
data=peek(buf3,c)
if data='A'{

 ac+
}
if data='C'{
 retn=ch(ca(cc))
 st_itiml=0
 st_itims=0
 st2=0
 
 syu=0
 repeat retn//引数に渡す値を配列に収納

  st_iti=a_st(ac-c2)
  if st_iti=0{

   st_st(st2)=ad(ac-c2)
   st2+
   c2+
   
  }else{

   st_st(st2)="st"+a_st(ac-c2)
   st2+
   c2+
   if st_itims>st_iti || st_itims=0:st_itims=st_iti
   if st_itiml<st_iti:st_itiml=st_iti
   ;dialog st_itims
  }
   repeat
   if (ac-c2)<0:syu=1:break
   st_iti2=a_st(ac-c2)
   
   if st_iti2=0:break
   if st_iti!=st_iti2:break
   c2+
   loop
   if syu=1:break
  
 loop
 
 if st_itims=0{
  st+
 }else{
  st=st_itims
 }

 repeat c2
 a_st(ac-cnt)=st
 loop
 
 buf5+="st"+st+" = "
 if cf(ca(cc)){
  buf5+=cd(ca(cc))+"( "
  repeat retn
  if retn!1&&cnt!0 :buf5+=", "
  f=retn-cnt
  buf5+=st_st(retn-cnt-1)
  loop
  buf5+=" )"
 }else{
  buf5+=st_st(1)+" "+cd(ca(cc))+" "+st_st(0)

 }
 buf5+="\n"
c2=0 
st2=0
cc+
}

c+
if c>=len:c=0:break
loop
buf5+="ans = st1"

mes "\n\n変換前の数式"
mes buf
mes "\n変換後の数式\n"
mes buf5

ベジェ曲線

2008-09-20T23:48:00.004+09:00


#module
#deffunc Beziers int x1,int y1,int x2, int y2, int x3 ,int y3,int x4,int y4,double rate
 t=0.0
 line x1,y1,x1,y1
 repeat
  x=(1.0-t)*(1.0-t)*(1.0-t)*x1+3.0*(1.0-t)*(1.0-t)*t*x2+3.0*(1.0-t)*t*t*x3+t*t*t*x4
  y=(1.0-t)*(1.0-t)*(1.0-t)*y1+3.0*(1.0-t)*(1.0-t)*t*y2+3.0*(1.0-t)*t*t*y3+t*t*t*y4
  line x,y
  t+=rate
  if t>1:break
 loop
 line x4,y4
 line x4,y4,x4,y4
return
#global 

k=4
f=4

onclick gosub *click

x(0)=300:y(0)=300
x(1)=300:y(1)=100
x(2)=100:y(2)=300
x(3)=100:y(3)=100

gosub *draw

stop
*click
 i=0
 repeat 4
 if x(i)-k< mousex&&mousex< x(i)+k&&y(i)-k< mousey&&mousey< y(i)+k{
  repeat
  x(i)=mousex
  y(i)=mousey
  gosub *draw
  getkey key,1
  if key=0:break
  wait 0
  loop
 }
 i+
 loop
 return
*draw 
redraw 0
color 255,255,255
boxf 

color 192,192,255
line x(0),y(0),x(1),y(1)
line x(2),y(2),x(3),y(3)
color 0,0,0

Beziers x(0),y(0),x(1),y(1),x(2),y(2),x(3),y(3),0.01

color 255,,
circle x(0)-f,y(0)-f,x(0)+f,y(0)+f,0
circle x(3)-f,y(3)-f,x(3)+f,y(3)+f,0

color ,,255
circle x(1)-f,y(1)-f,x(1)+f,y(1)+f,0
circle x(2)-f,y(2)-f,x(2)+f,y(2)+f,0
redraw 1
return

難航^^

2008-09-13T23:42:00.002+09:00

自作言語について色々と思いめぐらせるこのごろです。
初期案は変数と言う概念を持たず
直接メモリアドレスを参照すると言う形でした。
しかし問題が出てきました。
たとえばユーザー関数を別ファイルで汎用化させようとした場合、
関数間でメモリエリアの干渉が起こってしまうのです。
つまり、現状のままでは変数と言う概念が必要不可欠なのです。

言語仕様を一掃しようと思います。
まず言語的にサポートする機能は最低限のものであるというコンセプトは残します。
ではその機能を列挙します。

一般文

変数定義
ラベル定義
演算文（一項式）
条件分岐
無条件分岐

プリプロセス文

インクルード
ディファイン
外部DLL指定　外部関数指定

自作言語プロジェクト(仮)

2008-08-27T01:07:00.002+09:00

うむむ。久々に作業したって感じかな
若干進んだのでPDFのほうみてやってください

動かん！！！　いや微妙にうごいたか・・・？

2008-08-24T16:05:00.004+09:00

どもども

何が動かないって？

もうデバック仕切れんよぅ・・・・

プログラムの話じゃないですよ？

ただいま実世界で電子回路を作っているのですが・・・
大変です
何に使うかは超機密事項ですけどね

マジかよっと

2008-08-23T21:58:00.003+09:00

マクロスfrontier　20話をみました…
クランクランとミハイル・ブラン今からだって時に死んじゃイヤだよぅぅぅぉぉぉーーー

おっと取り乱してしまいました。
今独自言語を作っています。
どんなかんじになるかは少しずつ決まってきました。

これ今のところの方針　PDF

基本的にだるいデス

2008-08-21T07:56:00.002+09:00

ども、begriffです。
ウェブログをbloggaerに変えました。

今年の夏は、あれ？まだ夏になってないよね？と思いつつ、秋に入るような、感じですよね。

今のシーズン、テレビをつければをどこかしらのチャンネルで、オリンピックが観れると思うのですが、その公式サポーターのコカ・コーラってありますよね。
そのコーラを買って気づくことがあると思います。

　　　なんか上についている！　

っと
まぁ、シールがついているわけなんですが、今、そのシールを集めて後ろにあるシリアルナンバーを
携帯電話またはパソコンで入力し、応募するとT-シャツとかが、あたったりするそうです。

するそうです　っといいましたが、私はもうすでにT-シャツを三枚ほど当てていたりします。