生物材料の観察に適した原子間力顕微鏡の開発
著者 安藤 敏夫
著者別表示 Ando Toshio
雑誌名 平成5(1993)年度 科学研究費補助金 一般研究(B) 研究成果報告書
巻 1991‑1993
ページ 63p.
発行年 1995‑01‑01
URL http://hdl.handle.net/2297/46866
Creative Commons : 表示 ‑ 非営利 ‑ 改変禁止 http://creativecommons.org/licenses/by‑nc‑nd/3.0/deed.ja
ｌＩｌｌ・１
付 録 B
スファイル）
(プログラムソ−
:
！
1
付録Bプログラムソースフアイル
B.1MenuProgramFiles
B.2HeaderProgramFiles B・SSensorProgralnFiles
B.4MotorPrOgramFiles B.5ScanProgramFiles B.611nageProgramFiles B.7EditProgramFiles B.8CommonProgramFiles
1
プログラムファイル
(B｡1 M e n u PrOgramFiles)
』
i
｝
if(!̲̲̲DiamondKey){
.KeyChange=1;
̲̲̲pushskey();
｝
intgetftime(char*fname,unsigned*date,unsigned*time)
｛
FILE*fp;
inthd;
｝
if((fp=fopen(fname,''r''))==NULL) return(1);
hd=fileno(fp);
̲dos̲getftime(hd,date,time);
fcIose(fp);
return(O);
intsetftime(char*fname,unsigneddate,unsignedtime)
｛
｝
FILE*fp;
inthd;
if((fp=fopen(fname,''a''))=NULL) return(1);
hd=fileno(fp);
dos̲setftime(hd,date,time);
fclose(fp);
return(O);
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑.‑‑‑‑‑.‑‑‑.‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑.‑‑‑‑.‑‑‑‑‑＋
｛
｝
関 数 名 引 数
返 値 コ メ ン ト
DIR int
intget̲file̲name(char*file̲path,char*name,char*slct̲name)
char char char
*file̲path:検索するファイルのパス
*name: 検索するファイルの名前（ワイルドカード）
*slctname:選択されたファイルのフルパス名 選 択 し た フ ァ イ ル の 数 何 も 選 択 し な か っ た 場 合 O
引数で指定されたパスから、ファイルを選択する。
buf[1];
flag;
strcat(file̲path,''*.*");
flag=dir̲select(buf,file̲path,name,slct̲name,1,0,
POPUP1̲X1,4,POPUP1̲Yl,POPUPl̲Y2);
strcat(sIct̲name,buf[O].name);
return(flag);
関 数 名 引数
FILE*open̲file(FILE**f̲ptr,char*search̲path,char*wild̲name) オープンするファイルを示すポインタ
検 索 す る フ ァ イ ル の パ ス
検索するファイルの名前（ワイルFカード）
FILE char char
**f̲ptr:
*search̲path:
*wildname:
返 値 コ メ ン ト
オーフ。ンしたファイルのポインタ何も選択しなかった場合NULL 引 数 で 指 定 さ れ た パ ス か ら 、 引 数 で 指 定 さ れ た 名 前 の フ ァ イ ル (ワイルドカードを含む）をオープンする。
+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一*／
FILE*open̲file(FILE**f̲ptr,char*fname)
｛
if(getftime(fname,&fdate,&ftime)==1){
／＊ファイルをオープンできない＊／
charmsg[200];
strcpy(msg,fname);
strcat(msg,''¥nがオープンできません¥n'');
errer̲msg(msg);
putchar('¥a');
return(NULL);
｝
*f̲ptr=fopen(fname,''r+b");
return(*f̲ptr);
｝
関数名FILE*open̲temp̲file(FILE*fp,char*prmfile̲name,intpart)
引 数 フ ァ イ ル ポ イ ン タ ー
A F M の パ ラ メ ー タ フ ァ イ ル 名 パ ラ メ ー タ フ ァ イ ル 内 の パ ー ト FILE*fp:
char*prmfile̲name:
intpart:
選 択 し た フ ァ イ ル を 指 す フ ァ イ ル ポ イ ン タ ー NULL:何も選択しなかった、エラー
返 値
ス キ ャ ン の デ ー タ フ ァ イ ル を パ ラ メ ー タ フ ァ イ ル で 指 定 さ れ た 、 パスから選択すし、指定された名前でラムディスクにコピーし、
そのファイルをオープンし、ファイルポインタを返す。
コ メ ン ト
γノ＊
一︑ノ８ｔ一ｒ一ａ一ｐ
−０ｔ−Ⅱ一・一︐一ｅ一Ⅷ一ａ一︑一一一ｅ−ｌ−・一ハーー肌一ｒ・︐一ｐｅ−＊肌
ａ一ｒｎ−ａ一︲Ⅱｅ一Ｃｌ一︐．ｌ一ｐか１．１−ハー＊︲ｔ一＊︐ｌ可﹄ｕ一両姑︵ＵＳ一−︺４△ｅ−Ｔ１ｒＬｒ一両Ｉ１Ｊ︐一／１︿０肌一ｅｑＵｒ−ｌｒＬｐ一・１ｒ一一ハーｅｆ４−一︲ｔＯ一ｐｅ一一ⅢⅢｒ一ｅａｅ一︲Ｉｒ︲０−一ａⅢ一ｎｐｕ
一ｅ︑
一ｐｒ−０ａ→し一＊ｈｎＣ・一Ｐ︺一ｖＬ−Ｉ＋ｎｒｆｉ
number̲of̲prm=read̲prm̲file(prmfile̲name,parameter,part);
get̲file̲name(parameter[O+number̲of̲prm],''*.d*'',file̲name);
／＊スキャンデータファイルのデフォルトの拡張子*.dat*/
result=̲spawnl(̲P̲WAIT,''a:¥¥afm¥¥afm̲menu¥¥image¥¥movefile・bat",
"a:¥¥afm¥¥afm̲menu¥¥image¥¥movefile.bat'',
｝
file̲name,parameter[9+number̲of̲prm], parameter[10+number̲of̲prm],NULL);
/＊ラムデイスクにファイルをコピーするバッチファイルを立ち上げる＊／
strcat(parameter[9+number̲of̲prm],parameter[10+number̲of̲prm]);
if((fp=fopen(parameter[9+number̲of̲prm],''rb"))=NULL){
／＊テンポラリーファイルをオープンできない＊／
charmsg[200];
strcpy(msg,parameter[9+number̲of̲prm]);
strcat(msg,''¥nがオーフ。ンできません¥n'');
errer̲msg(msg);
putchar('¥a');
return(NULL);
｝
return(fp);
関 数 名 引 数
コ メ ン ト
voiddel̲temp(char*prmfile̲name,intpart) char*prmfile̲name:AFMのパラメータファイル名
i n t p a r t : パ ラ メ ー タ フ ァ イ ル 内 の パ ー ト パ ラ メ ー タ フ ァ イ ル で 指 定 さ れ た 名 前 の ラ ム デ ィ ス ク を 消 去 す る バ ッ チ フ ァ イ ル を 起 動 す る 。
+‑‑‑‑一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一*／
voiddel̲temp(char*prmfile̲name,intpart)
｛
charparameter[30][40];
intnumber̲of̲prm,result;
number̲of̲prm=read̲prm̲file(prmfile̲name,parameter,part);
strcat(parameter[9+number̲of̲prm],parameter[10+number̲of̲prm]);
result=̲spawnl(̲P̲WAIT,''a:¥¥afm¥¥afm̲menu¥¥image¥¥del̲temp.bat", ''a:¥¥afm¥¥afm̲menu¥¥image¥¥del̲temp.bat",
parameter[9+number̲of̲prm],NULL);
／ ＊ テ ン ポ ラ リ フ ァ イ ル を 削 除 す る バ ッ チ フ ァ イ ル を 立 ち 上 げ る ＊ ／
｝ /＊
＋‑.‑‑‑‑..‑.‑.‑‑‑‑.‑‑.‑‑.‑.‑‑‑‑.‑.‑‑.‑‑.‑..‑‑‑‑‑‑.‑.‑.‑‑.‑.‑‑.‑‑.‑．一一・‑.‑.‑‑‑‑..‑.‑..‑‑．‑‑‑..‑.‑‑‑.‑.‑.‑..‑一一・・‑.‑‑‑.‑‑..‑.‑.‑..‑‑.‑‑‑..‑..‑‑.‑.＋
終 わ り
＋‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑.‑‑‑.‑.‑‑.‑‑‑.‑‑‑‑‑.‑‑‑.‑‑‑‑‑.‑‑‑‑‑‑‑‑.一一一一‑‑‑‑‑‑‑.−−‑一一・‑‑‑.‑‑.‑‑‑‑−一・一・一一‑‑‑.‑‑..‑‑‑‑‑.‑‑＋
*／
＋ｌｌｌｌｌｌ＋
しｊ
一ユ
︾ンモブサのＥ肌鮒一
・の一Ｕそ一
Ｎと一
一Ｅ義一
一Ｃ一Ｍ一帷一一●一一５−一睡一剛ウーー印一Ａ一一一川一妬叩一
鮒剛一︐
朧Ａ一ｈ・
︐ｈ
うぅｃｌｈｈｂｂ
環−︐．．ｉｔ一ｈｔｙｌｙ尚ノ・ｒｅＳｅＯＣｋｂｋユ一︒ｙ士ｙｒｙＴＹｔ−ｄｂｂｂｂ一一一口↑Ⅱし●９０凸●ＧＩＢ●１Ⅱ凸●︒ⅡＪＳｌｌｌｌ︐メ一くくくくくのＭｅｅｅｅｅＦ｜ｄｄｄｄｄｕｕｕｕｕＡ｜ｌｌｌｌｌ
︵０︶ハⅡ︶ハⅡ︶ハ︲︶︵日︶︽叩︵叩皿︑叩ｎ叩一両叩出
塾︾︽．一一〃″″″●︒Ⅱ凸●ａⅡ凸●■Ⅱ且ＯＱ１Ａ●００ａ
〃″″グ︲や００ⅡⅡ０．１日１００ＩＨＩ１１１１０１１０−８００００︸０．︾︽で叩や恥や叩刷や妙叩鈴川や叩叩寺叩守叩岬一ｍ冬Ⅲ
#include''popup.h''
externinthorizonal̲select(int*,int,int,int,int,int,unsigned,unsigned);
＋十
一一角ソーーユ一
一一一一一メー
＊一〃ノ＋十
*／
MenuDef(Help,''ヘルプ'') {8100,''1:バージョ
｛8200, 2：項目別 MenuEnd;
／*−−ヘルプ−−*／
NULL}, NULL}, ン
'9
，
MenuDef(Kakutyou,''拡張機能'') {7100,''l:摩擦力'',NULL}, {7200,''2:力測定'',NULL}, MenuEnd;
/*−−拡張機能一一*／
MenuDef(Hensuu,"変数設定'')
{6100,''l: 参 照
{6200,''2: 変 更
{6300,''3:パラメータファイル"' MenuEnd;
/*−−変数設定−−*／
NULL}, NULL}, NULL},
／*−−終了‑‑*／
NULL}, NULL}, MenuDef(Syuuryou, 終了"）
{2200, ''l:ウイズドロー D
{5200, 2 ： ，終 了 MenuEnd;
／*−−色‑‑*／
NULL}, NULL}, MenuDef(Zahyou,''座標")
{4141,''l:広さ表示''，
{4142,''2:範囲表示", MenuEnd;
MenuDef(Houhou,"方法'')/*‑‑方法‑‑*/
{4110,"l:ワイヤーフレーム",NULL}, {4120,"2:クイックペイント'',NULL}, {4130,''3:シェーデイング'',NULL}, {4140,''4:トツプビユー '',Zahyou},
MenuEnd;
{2200, {2300, {2400, {2500, MenuEnd;
"2：ウイズドロー ，
"3:フォースカーブ"，
" 4 ： ジ ョ グ ，
" 5 ： 一 時 退 瀞 ,
NULL}, NULL}, Jog}, NULL},
/＊子メニューはジョグ(Jog)*/
MenuDef(Senser,''センサー'') {llOO,''l:センサー'',NULL},
/*−−センサー−−*／
MenuEnd;
＋十十
一
一
一吟卜一一一一一コ一
一
一
＊一一〃ノ＊〃ノ＋十＊〃ノ
関数名 引 数
intparent̲menu̲sct(int*selected,intmenu̲max) 現 在 選 択 さ れ て い る メ ニ ュ ウ の 番 号 選 択 で き る メ ニ ュ ウ の 個 数
*selected:
menumax:
返 り 値 C R , E S C , D O W N
コ メ ン ト メ ニ ュ ウ バ ー を 表 示 し 、 選 択 す る 関 数 を 呼 ぶ 。
+‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑.‑‑‑‑‑‑‑.‑‑‑‑.‑‑一一一一一一一一一一一一一一一一一一・‑‑.‑‑*／
intparent̲menu̲sct(int*selected,intmenu̲max)
｛
intimput̲key̲no;
disp(MENU̲Xl+MENU̲DX*O,MENU̲Y,MENU̲COLOR,''センサー");
disp(MENU̲Xl+MENU̲DX*l,MENU̲Y,MENU̲COLOR,''モーター'');
disp(MENU̲Xl+MENU̲DX*2,MENU̲Y,MENU̲COLOR,''スキャン'');
disp(MENU̲Xl+MENU̲DX*3,MENU̲Y,MENU̲COLOR,''画像'');
disp(MENU̲Xl+MENU̲DX*4,MENU̲Y,MENU̲COLOR,"終了");
disp(MENU̲Xl+MENU̲DX*5,MENU̲Y,MENU̲COLOR,''変数設定'');
disp(MENU̲Xl+MENU̲DX*6,MENU̲Y,MENU̲COLOR,''拡張機能'');
disp(MENU̲Xl+MENU̲DX*7,MENU̲Y,MENU̲COLOR,''ヘルプ'');
imput̲key̲no=horizonal̲select(selected,menu̲max,MENU̲Xl,MENU̲X2 MENU̲Y,MENU̲DX,MENU̲COLOR,MENU̲SELECT̲COLOR);
return(imput̲key̲no);
｝
/*‑‑‑‑‑.‑‑‑‑‑‑‑‑‑.‑‑‑.‑‑‑‑‑‑‑一一一一一一一一一一一一一一一一一一一一一一・・‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑＋
関 数 名 引 数
intselect̲from̲menu()
現 在 選 択 さ れ て い る メ ニ ュ ウ の 番 号 選 択 で き る メ ニ ュ ウ の 個 数
*selected:
menumax:一
返 り 値 コ メ ン ト
C R , E S C , D O W N
メ ニ ュ ウ バ ー を 表 示 し 、 選 択 す る 関 数 を 呼 ぶ 。
+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*／
intselect̲from̲menu()
｛
staticintparent̲menu=1;
intimput,menu̲number;
do{
imput=parent̲menu̲sct(&parent̲menu,MENU̲MAX);
if(imput==ESC) return(O);
while(1){/*リターンか、エスケープを押すまで抜けない*/
intx;
switch(parent̲menu){
casel:
imput=MenuSelect(Senser,&menu̲number,1,2);
break;
case2:
imput=MenuSelect(Motor,&menu̲number,5,2);
break;
case3:
imput=MenuSelect(Scan,&menu̲number,12,2);
break;
case4:
imput=MenuSelect(Gazou,&menu̲number,28,2);
break;
case5:
imput=MenuSelect(Syuuryou,&menu̲number,36,2);
break;
case6:
imput=MenuSelect(Hensuu,&menu̲number,43,2);
break;
case7:
imput=MenuSelect(Kakutyou,&menu̲number,59,2);
break;
case8:
imput=MenuSelect(Help,&menu̲number,65,2);
break;
｝
/ ＊ メ ニ ュ ウ を ポ ッ プ ア ッ プ し た 状 態 で 左 右 の カ ー ソ ル キ ー が 押された場合、親メニュウのNoを変えて、選択を示す反転表示を 隣に移す。＊／
｝
if(imput==LEFTllimput==RIGHT){
x=(parent̲menu‑l)*MENU̲DX;
color̲(MENU̲Xl+x,MENU̲Y,MENU̲X2+x,MENU̲Y,MENU̲COLOR);
if(imput==LEFT) parent̲menu‑‑;
else
parent̲menu++;
if(parent̲menu<lllparent̲menu>MENU̲MAX) parent̲menu=MENU̲MAX;
x=(parent̲menu‑l)*MENU̲DX;
color̲(MENU̲Xl+x,MENU̲Y,MENU̲X2+x,MENU̲Y,MENU̲SELECT̲COLOR); }else{
break;
｝
}while(imput!=CR);
return(menu̲number);
｝
/＊
＋･‑.‑.‑‑‑‑‑．一一一一一・・一・‑−−−−−−．．−−−一・‑‑‑‑‑‑一一・一一一一一一一一‑−−−．−−−−−−−．．−−．−．−−−一一一一一一一・‑‑‑‑‑‑‑..‑一一一一・一一・‑一一・一一＋
menuslct.c
I A F M の メ ニ ュ ウ 環 境 を 提 供 す る A F M ̲ M E N U . E X E の サ プ モ ジ ュ ー ル ｜ メ ニ ュ ウ 選 択 を 行 う 3 つ の 関 数 か ら な る 。
＋一一一一一−．．−．．−−−−−‑一一一一一‑‑‑‑‑‑.‑‑.‑‑‑‑‑一一一・一一一一−−．−−−−−−−−−．−−一一一・一一−一一・一一・一・一一一一一・‑−−−．−−‑一一一一一一一＋
*／
#include<string.h>
#include<lib¥crt.h>
#include<lib¥key.h>
#include<lib¥bslib.h>
#include<lib¥keytbl.h>
#include<lib¥window.h>
#include''popup.h''
＋十＋十十
︒︐．
●０ヶ︑Ⅱ日″〃︑ノー０９０ｅｅ︑︑ｇｇｉ︒ＳＳ︑︑ｕⅡ︐︐︒０００ｅｅｎｎｇｇｉ︒ＳＳⅡ︑ｕｕ︐︐→し→し︑ｎ．１
■Ｑ○■且︐
一言一Ｌ成
一一旦一．ｍ・狐一吟トーープ一心吐．︐一一一一イ︲一ｍ・狐︑︺一コーーターＬ雌︑一︲トーｍ・狐４﹄一ロ一Ｌ城︑一プーｍ・訓氷
●夕︒︾︽ロ．︾︽．＋口Ｉ︾
︲守Ⅱし孟叩
︲↑し︻叩０００凸
面叩皿●●０凸０″
■ＧＩＡ／″Ⅱ１︐．斗︽Ｕｌｔ︲ＩＣｗＵＣｅＮ邸ｅｌＥｌｅＭｅＳｒ︑Ｓ一︲ｔ−ｌＣｌａｅａｎｌＣＯｅ・１Ｚ︹︒→︾・ｕｒｒｎｅＯｅＶ０ｎＭ肥ｔｔｔ＊一一ノノｎ︑ｎ＊一一ノ″＊〃ノ＋十＊・１．１．１〃／＋十＊ノノ
intvertical̲select(int*no,intmax,intxl,intx2,intyl, intdy,unsignedatrl,unsignedatr2) 関 数 名
現 在 選 択 さ れ て い る メ ニ ュ ウ の 番 号 選 択 で き る メ ニ ュ ウ の 個 数
初 め の メ ニ ュ ウ の 左 x 文 字 座 標 初 め の メ ニ ュ ウ の 右 x 文 字 座 標 メ ニ ュ ウ の y 文 字 座 標
l メ ニ ュ ウ の 文 字 数 非 選 択 色
選 択 色 引 数
■●●●●●●ｏｇ１９０Ｘ・・・．・・・・ｒｒｎａｌ９１聖ｙ→し︲ｔ＊ⅢＸＸｙｄａａ
返 り 値 コ メ ン ト
C R , E S C , L E F T , R I G H T
縦 方 向 に 並 ん だ メ ニ ュ ウ を カ ー ソ ル キ ー で 選 択 す る
〃ノ＊一︐一ｙ一○．
一→し一︑一・１−Ｐ
−．１−ｙ
−０ｔ−︑一・
一一︐
一一○ムーＸ
一→し一ｎ一・１−︐
一１八一Ｘｊ−→し？︺一Ⅱｒ一・１→﹀ａ一︐９０−Ｘｅ一ａｎ一Ⅲｇ
●●■■凸一→︺Ｓ一︑ｎ一・１ｕ一１９−０．１−ｎｒ−＊ｊｔａ−→し一︑０−．１ｅ一／Ｉ︑
｜︲ｔｇ
一Ｃ・一ｅＳ−ｌｎ−ｅｕ−Ｓ−ｌ−ａ
一ハ０︶
一Ｇ９Ⅱ８
−︲ＴＩ︺一ｒ一ｅ一Ｖ
一→し一ｎ＋・
｛
registerint int
unsigned
ch,y;
Cursor Color
/＊カーソル属性＊／
/＊ｶﾚﾝﾄｱﾄﾘﾋﾞｭｰﾄ＊／
cursormode();
currentcolor();
一一一一
if(*no<lll*no>max)*no=l;
cursor(CURSORoff);
while(1){
y=(*no‑1)*dy+yl;
color̲(xl,y,x2,y,atr2);
ch=inkey();
color̲(xl,y,x2,y,atrl);
switch(ch){
caseUP：＊no二（*no＞l）？＊no‑l：max；break；
caseDOWN:*no二（*no〈max）？＊no+l：l；break；
caseLEFT:break;
caseRIGHT:break;
default:if(ch>='l'&&ch<=max+'O')*no=ch‑'O';break;
｝
if(ch=CRIIch==ESCIIch==LEFTllch==RIGHT)break;
｝
color̲(xl,y,x2,y,atr2);
color(Color);
cursor(Cursor);
return(ch);
｝
/*‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑.‑.‑‑‑‑‑.‑一一一一一一一一一一一一一‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑.‑‑‑‑‑‑‑‑＋
関 数 名 inthorizonal̲select(int*no,intmax,intxl,intx2, inty,intdx,unsignedatrl,unsignedatr2) 引 数 現 在 選 択 さ れ て い る メ ニ ュ ウ の 番 号
選 択 で き る メ ニ ュ ウ の 個 数 初 め の メ ニ ュ ウ の 左 x 文 字 座 標 初 め の メ ニ ュ ウ の 右 x 文 字 座 標 メ ニ ュ ウ の y 文 字 座 標
1 メ ニ ュ ウ の 文 字 数 非 選 択 色
選 択 色
●●◆●○●●●９１ワ０Ｘ・・・．．．ｒｒｎａ︐１９﹈．．Ｘ→し→し＊ⅢＸＸｙ︲︒ａａ
返 り 値 コ メ ン ト
C R , E S C , D O W N
横 方 向 に 並 ん だ メ ニ ュ ウ を カ ー ソ ル キ ー で 選 択 す る
ノノ＊一︐一Ｘ一０
−一ｎ一・一︐一ｙ
一→し一ｎ一・一︐
一︑ムーＸ
一→し一︑−．１−︐
一利１−Ｘ
−ｎｔ︑ノーｎｏムー・ｒｔ−︐ａ一Ｘ○０−ａｅ−Ⅲｎｇ−︲ｔ・一ｎＳ
−●９１Ａ︻叩型
叩皿哩一７
︐一０−︑利１−＊ｒｔ−→︺ａ一ｎ一・１００−／１ｅ一→し︑一Ｃｇ−ｅ・ｌ−ｌＳ−ｅｎ−Ｓｕ−ｌｌａ一ｎ一０−Ｚ｜・一ｒ一０−︲ｎ−ｔ−命叩型
十︐Ｇ９Ｉ８
｛
/*register*/intch i n t C u r s o r unsignedColor
X;
cursormode();
currentcolor();
/＊カーソル属性＊／
/＊ｶﾚﾝﾄｱﾄﾘﾋﾞｭｰﾄ＊／
一一一一
if(*no<lll*no>max)*no=max;
cursor(CURSORoff);
while(1){
x=(*no‑1)*dx;
color̲(xl+x,y,x2+x,y,atr2);
ch二inkey();
color̲(xl+x,y,x2+x,y,atrl);
switch(ch){
caseLEFT：＊no二（*no＞l）？＊no‑l caseRIGHT:*no二（*no〈max）？＊no+1
break;
break;
max;
l;
default:if(ch>='l'&&ch<=max+'O')*no=ch‑'O';
．｝
if(ch==CRIIch==ESCllch==DOWN)break;
｝
color̲(xl+x,y,x2+x,y,atr2);
color(Color);
cursor(Cursor);
return(ch);
｝
/*‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑...‑.‑‑‑‑.‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑−‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑.‑‑..‑‑‑‑‑‑‑‑＋
intMenuSelect(MENU*m,int*no,intx,inty) 関 数 名
引 数 メ ニ ュ ー 構 造 体
現 在 選 択 さ れ て い る メ ニ ュ ウ の 番 号 ポ ッ プ ア ッ プ メ ニ ュ ウ の 左 上 x 文 字 座 標 ポ ッ プ ア ッ プ メ ニ ュ ウ の 左 上 y 文 字 座 標
●︒．．０Ⅲ︑︒．：
＊＊Ｘｙ
返 り 値 コ メ ン ト
CR,ESC,LEFT,RIGHT
ポップアップメニューを表示し、選択する。
+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑..‑‑.‑‑‑‑‑‑‑‑.‑‑.‑‑‑*／
intMenuSelect(MENU*m,int*no,intx,inty)
｛
,flagl,flag2,len=0;
l; m;
registerint int
MENU WINDOW
int unsigned
Ｘ三二ｒａｏｒ
Ⅲ→しｒ・︐ＳＯＣｔハーｒｌ１ｌｐｕｕ０１Ｓ＊０︐︹しｒ︺
/＊カーソル属性＊／
/＊カレントｱﾄﾘﾋﾞｭｰﾄ＊／
cursormode();
currentcolor();
＝
＝
for(;ptr‑>item;ptr++)
if(len<(int)strlen(ptr‑>item))len=strlen(ptr‑>item);
max=ptr‑m‑l;
if(max<1)return(‑l);
for(i=1;i<=max;i++)if(m[i].code==*no)slct=i;
WINopen(&buf,x,y,x+len+3,y+max+1,0,MENU̲BACK̲COLOR,MENU̲FLAME̲COLOR); WINtitle(&buf,0,0,MENU̲TITLE̲COLOR,m[O]・item);
color(MENU̲BACK̲COLOR);
for(i=1;i<=max;i++){
dputf(x+2,y+i,''%3,m[i].item);
｝ do{
flag2=CR;
flagl=vertical̲select(&slct,max,x+1,x+len+2,y+1,1, MENU̲BACK̲COLOR,MENU̲SELECT̲COLOR);
if(flagl=CR&&m[sIct].sub)
flag2=MenuSelect(m[slct].sub,no,x+3,y+3);
else
*no=m[slct].code;
}while(flag2==ESC);
WINclose(&buf);
color(Color);
cursor(Cursor);
return(flagl);
｝ /＊
＋‑‑‑‑‑‑..‑.‑･ −．−．−−．−‑.‑‑.‑‑‑．'‑.一一一一一一一一一一‑‑‑‑−−−．−．．−−．−−･･･−−．−．−．−−−−−．．−．−−．−−−．−−．−−‑一一一･･‑一一･一一･一･一 ‑.‑..‑,‑‑.‑.‑‑‑＋
終わり
＋−．− −．−−．−−−．．−．−．−‑.‑.‑‑‑‑‑‑.‑.‑‑−．．−．−．− ‑.‑.‑.一一一一一・一・一一一一・‑−−−‑.‑.‑‑...‑.‑‑−一一・‑一一一一一一‑.‑..･･･ ‑‑‑‑‑‑.‑..‑．一･一一一･･一･･･−．−．−＋
*／
プログラムファイル
(B.2 HeaderProgramFiles)gra
ｳ 可
可『
'1
プログラムファイル
Files)
(B｡3 SenSorProgram
I
■凸ⅡⅡⅡｑⅡ■■■６７ｌｂⅡＪⅡＨｌ１０ｂＪＩＩｌｌＵｊ
３ Ｕ ｏ 岨 ら Ｕ Ｈ Ｕ ５ Ｇ ｏ
●
︒ ｒ
1
Ｉｌｌ４１ｌｌ
ザ
１１１ｌゞ４︲岬昨岫州皿晒恥恥賑岬！衙届且側ⅡＩ酬加酬副祁蜘剛圃一コｇ副画馴勵副剛献訓馴剛郡９１トドＩ卿８即恥即畔ｇＥＩＨＬⅦⅧⅢ蛆側朋椚１脚ＭＦＮｍ１
プログラムファイル
MotorProgramFiles)
(B.4 gra
４
四Ｆ面Ｅ■Ⅲ凹面閑ロー匿い砂匠Ｆ︑眠卜町汀○日１︐０Ⅱ帥︲小１胴ＰＯＩ０かにＩ
4
も
ａ自画﹃凹面刀蝉畑︒暁匠皿︒■ｄ到削
巳
I
↓
プログラムファイル
ScanProgramFiles)
(B｡5 rOg
砧■■戻殖■Ｆ１で口早ⅡｌＢＩｌｌ０１１１１１４ 孟緊
+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*／
voidlast̲job(no) shortno;
｛
｝
piezo̲set(Y,last̲drive̲v[Y],(float)(t̲start[Y]+d̲displace*no), (float)0.0,(float)MAX̲SCAN̲SIZE/2);
piezo̲set(X,last̲drive̲v[X],(float)t̲start[X],
(float)0.0,(float)MAX̲SCAN̲SIZE/2);
piezo̲drive(Z,(float)0.0,last̲drive̲v[Z],(short)SAFE̲DRIVE̲Z);
last̲drive̲v[Z]=drive̲v[Z];
voidf̲drive(ch,i) shortch,i;
/*ver.4.6*/
｛
｝
drive̲v[ch]=detv̲ex(ch,start̲v[ch],(float)t̲start[ch],
d̲displace*i+(float)t̲start[ch]);
piezo̲drive(ch,drive̲v[ch],last̲drive̲v[ch],t̲div̲times[ch]);
last̲drive̲v[ch]=drive̲v[ch];
voidb̲drive(ch,i) shortch,i;
/*ver.4.6*/
｛
｝
drive̲v[ch]=detv̲sh(ch,reverse̲v[ch],(float)t̲start[ch]+t̲scan̲size, d̲displace*i+(float)t̲start[ch]);
piezo̲drive(ch,drive̲v[ch],last̲drive̲v[ch],t̲div̲times[ch]);
last̲drive̲v[ch]=drive̲v[ch];
/*‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑.‑‑‑.‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑..‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑＋
関 数 名 voidmain()
+‑‑.‑‑‑‑.‑‑‑‑‑‑‑.‑‑‑‑.‑‑‑‑‑‑‑‑‑..‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑.‑‑.‑‑‑‑‑‑‑‑‑‑.‑.‑‑‑‑.‑‑.‑‑‑‑.‑‑‑‑..‑*／
voidmain() /*ver.4.6*/
｛
shorty,xl,x2,i=0,j=0,repeat;
registerfloat*dp,*sp,*rp,*srp,*dq,*sq,*rq,*srq;
init();
init̲loop(Y);
init̲loop(X);
for(y=0;y<=t̲number̲of̲samples‑1;y++){
f̲drive((short)Y,y); /*y軸スキャン*/
dq=&t̲height[j][O];sq=&t̲subdat[j][O];
rq=&t̲rev[j][t̲number̲of̲samples‑1];
srq=&t̲subrev[j][t̲number̲of̲samples‑l];
repeat=t̲repeat;
for(xl=0;xl<=t̲interval‑1;xl++){
／＊行き*/dp=dq;sp=sq;
for(x2=0;x2<=t̲number̲of̲samples‑l;x2++){
if(x2==t̲interval*i+xl){
f̲drive((short)X,x2);
sampling(dp,sp);
i++;
畷
プログラムファイル
mFiles)
(B.6 1 mageProgra ｆ
1 1
U
/＊
＋一一一一一一・一一一・−−−−−−．−−一・‑一一一一一一一一‑‑‑‑一一一一一一一一一一一一一‑−．−．−−−−−．−．−−−−−−−．−−−−−‑一一一一一一一一一・‑‑.‑‑‑‑‑‑＋
vmath．c
ベ ク ト ル 演 算 パ ッ ケ ー ジ ． C プ ロ グ ラ ム ブ ッ ク 2 参 照
＋一一･‑‑‑‑‑‑‑‑‑‑‑‑‑‑一一一一一一一一一‑−−−−−−．−−−−−−．‑‑‑‑‑‑‑‑一‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑..‑一一一･･一･一･‑‑‑‑‑‑‑‑.‑‑.‑．一一一・‑一・‑−−−−−＋
*／
#include<stdio.h>
#include<math.h>
#include<process.h>
#include''vmath.h'' Vectorvzero={
0.0,0.0,0.0 }
；
Matrixmunit l.0,0.0, 0.0,l.0, 0.0,0.0, }
；
二｛
0.0, 0.0, 1．0
#defineSTKMAX300
staticElementStk[STKMAX];
Element*stkpnt;
voidsinit(void)
｛
stkpnt二stk+STKMAX;
｝
voidprints(void)
｛
｝
Element*p;
inti;
i=0;
printf(''¥n‑‑stacktop‑‑¥n'');
for(p=stkpnt;p<stk+STI
for(p=stkpnt;p<stk+STKMAX;++p){
printf(''%‑10g'',*p);
if(++i>=3){
i = 0 ;
putchar('¥n');
}else
putchar(',');
｝
printf(''¥n‑‑stackbottom‑‑¥n¥n'');
voidvpsh(Vectorvct)
｛
＋ｌｌｌｌｌ＋
合
し一Ｊ一
一ユ一寸ン一モ一Ｃる一巳す一
一狐を一 一帥グ一
ン一イ一一プ一
一エ一︑ン一
︐一クｈ一︒︑︒う０︐０Ⅲ・０００︑．︑０．１︑ｅ０ｎｌ・ｌｌｈｄｔ−Ｏ０９０ｊｔａａ−→し→しａ．︑ⅢＳＳ川ＳＶ
一一くくくｅｅｅｅｅ
−の一００００．００００ｄｕｕｕｕｕ
ｌｌｌｌｌｌ
ＣＣＣＣＣｎｎｎｎ︑＊一一ｊｉｉｉ・ｌｉｊ＋ｌｌｌｌｌ＋＊＃＃＃＃＃
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑Externfunctions‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*/
externdoublegetdata(int,long,long);
externvoidviewedge(void);
externvoidpxIset(void);
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑ExternVariables‑‑‑‑‑‑‑‑‑‑−一‑‑‑‑‑‑‑‑‑*/
externVectoreye,view;
externMatrixlens,inv;
externintpx,py;
externdoublewindow,sx,sy,hd,hv;
〃／＊
一三口一旦プイタト
ロプル
ー●Ｂ・ローロⅡ︺●︑〃
一︑画ｕ■″クハ叩叩︑︑日″〃一︵︾︶●９０凸︽恥Ｆ︾
−１︐１
−００ｅ○︐一ｕｌｕ一０９００−００ｕ００−︐０︐一ｇｄｇ一ｎ／１ｎ一０Ｖ．︐０−１０１ノー︒︐一ｙｐｄ︐︑ノーｇｉｉｇｄ−Ⅱ０ｎ．一ＯｅＶＯＯ−ｌｌｒＫｌＶ−ｆｌｂｙ／ｌｆｌ−ｅｕｐⅢＶ−０００︐ｒＷ−ａ０ａＯｅ一︐︑Ｃｎ．一ＳＣＳ︽ＩＶ
ｅ９Ⅱ４−９０ｔしｇｏ００００−．１ａ・１．１．１＊０→し０００ノ／ＶＳＶＶＶ
/*‑･･‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑･‑‑‑‑･‑Public‑‑‑‑‑･‑‑‑‑‑･‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑･‑*/
サンプル表面の性質＊／
拡 散 反 射 係 数 R , G , B 鏡 面 反 射 係 数 R , G , B 小 面 分 布 関 数 の パ ラ メ ー タ
｛ 0.0}, 0.0},
/＊ /＊ /＊ /＊ Surfacesurf=
{0.0,0.5, {0.0,1.5, 500,
}
；
*／
*／
*／
lllumlampO={
NULL,
{0.0,‑l.0,l.0},/*光源の向き*/
{10.0,10.0,10.0},/*光源の色R,G,B*/
}
；
Vectornorm;
Colorccolor; /＊ペイントする伝.のR,G,B成分*/
Surface*s=&surf;
Illum*l=&lampO;
〃／＋＊一一一一一一一一一一一一一一一
一一一一一一○一一一一一一
一一一一一一一一一一一一一一一一一一一一一一
一一一一
一一一一一一一一トトー
ーーコ一一一一一一一一一
一一一一一一一一一一一一
一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一
一一一一一一＊＊ノグ〃ノ
staticdoubleipow(doublea,intn) 関 数 名
＋十一Ｃ一●｜
ｅ一一ｎ｜
︒一一
一●
＊一〃／︐／＋十＊
#include<stdio.h>
#include<stdlib.h> /*abs()*/
#include
#include
''afmdef.h'' ''vmath.h''
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑Externfunctions‑‑‑‑‑‑‑‑‑−−‑‑‑‑‑‑‑‑‑‑‑*/
voidedge(long,long);
voidshade(long,long,double);
voidpxIset(void);
voidscanpy(void);
voidviewv(void);
doublegetdata(int,long,long);
eXtern eXtern extern extern eXtern extern
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑プロトタイプ宣言‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑*／
voidline(long,long,long,long);
voidpoint(long,long);
intcomp(long,long);
/*proto*/
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑･‑‑‑‑Public‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑･‑‑‑‑‑･‑‑*/
Vectoreye,view;
Matrixlens,inv;
intpx,py,mode;
shortnumber̲of̲samples;
doublewindow,sx,sy,data̲min,hight̲scale;
FILE*fp;
extern eXtern extern extern extern eXtern
doublehd,hv;
/*‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑.‑‑‑‑‑‑‑‑‑‑ｺｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ･‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑*／
/*‑‑‑‑‑.‑‑‑‑‑‑‑‑‑.‑‑.‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑.‑‑‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑＋
yl,longx2,longy2) ine(longxl,long
関 数 名 引 数
voidl
longxl:視点から眺めたときの手前のデータの端のx座標 longyl:視点から眺めたときの手前のデータの端のy座標 longx2:視点から眺めたときの奥のデータの端のx座標 longy2:視点から眺めたときの奥のデータの端のy座標
引数で指定される2点間を 離散データであるスキャンデータを、
結ぶ直線に沿って順に進めてゆく C プ ロ グ ラ ム ブ ッ ク 1 参 照 コ メ ン ト
+‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑.‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑.‑‑‑‑‑‑‑‑‑‑*／
voidline(longxl,longyl,longx2,longy2)
｛
1 .
longx,y,dx,dy;
longe,cl,c2,inc;
x=xl;y=yl;
edge(x,y); /＊視界の最下点の処理＊／
=labs(x2‑xl);
=labs(y2‑yl);
(dx>dy){
c2=2*dy;
e=c2‑dx;
cl=e‑dx;
if(yl<y2) inc=l;
else
inc=‑l;
y=yl;
dx dy if
if(x2‑xl+y2‑yl<O
II(x2‑xl+y2‑yl==O&&
for(x=xl‑l;x>二x2;x‑‑){
if(e>0){
y+=inc;
e+=cl;
}else
e+=c2;
point(x,y); ／＊描画処理＊／
｝ }else{
for(x=xl+1;x<=x2;x++){
if(e>0){
y+=inc;
e+=cl;
}else
e+=c2;
point(x,y); ／＊描画処理＊／
｝
｝
x2‑xl>0)){
}else{
c2=2*dx;
e=c2‑dy;
cl=e‑dy;
if(xl<x2) inc=1;
else
inc=‑l;
x二Xl;
ｌｌｌｌ︲ｌｌＩｌｌＩｌｉ１Ｉ１ｌＩＩＩＩＩＩＩｊ
if(x2‑xl+y2‑yl<O
￨￨(x2‑xl+y2‑yl==O&&x2‑xl>0)){
for(y=yl‑l;y>=y2;y‑‑){
if(e>0){
x+=inc;
e+=cl;
}else
e+=c2;
point(x,y); ／＊描画処理＊／
