キーボードの図

Ovaldata で枠を書き，Letter() で文字をいれます。

つぎのものは一例。

Enterキーのような長方形でないものはちょっと工夫が必要でしょう。

なお，TeXの特殊記号は，ちょっと手抜きをしているところもあります。

きちんと書きたい人は手直しをしてください。

Fhead="keybord";

Texparent="kbd";

Ketinit();

Addax(0);

Setunitlen("6mm");

// １段目

cxy=[1,7];

txy=[1.9,7.9];

keylist1=[["",""],["!","1"],["”","2"],["\#","3"],["\$","4"],["\%","5"],["\&","6"],["’","7"],["（","8"],["）","9"],["","0"],["＝","-"],["〜","＾"],["\textbar","￥"],["",""]];

repeat(15,p,

s=p-1;

Ovaldata(text(p)+"1",[cxy+[2*s,0],txy+[2*s,0]]);

Letter([cxy+[2*s,0.5],"e",keylist1_p_1,cxy+[2*s,-0.5],"e",keylist1_p_2]);

);

Letter([[1.5,7.5],"w","半角",[1.5,6.5],"w","漢字"]);

Letter([[29,7.5],"c","Back",[29,6.5],"c","Space"]);

// ２段目

cxy=[4,5];

txy=[4.9,5.9];

keylist1=[["Q",""],["W",""],["E",""],["R",""],["T",""],["Y",""],["U",""],["I",""],["O",""],["P",""],["'","@"],["\{","［"]];

repeat(12,p,

s=p-1;

Ovaldata(text(p)+"2",[cxy+[2*s,0],txy+[2*s,0]]);

Letter([cxy+[2*s,0.5],"e",keylist1_p_1,cxy+[2*s,-0.5],"e",keylist1_p_2]);

);

Ovaldata("142",[[1.5,5],[2.9,6-0.1]]);

Letter([[1.5,4.5],"c","Tab"]);

// ３段目

cxy=[4.7,3];

txy=[5.6,3.9];

keylist1=[["A",""],["S",""],["D",""],["F",""],["G",""],["H",""],["J",""],["K",""],["L",""],["+",";"],["*",":"],["｝","］"]];

repeat(12,p,

s=p-1;

Ovaldata(text(p)+"3",[cxy+[2*s,0],txy+[2*s,0]]);

Letter([cxy+[2*s,0.5],"e",keylist1_p_1,cxy+[2*s,-0.5],"e",keylist1_p_2]);

);

Ovaldata("133",[[1.85,3],[3.6,3.9]]);

Letter([[1.7,2.5],"c","Caps Lock"]);

Ovaldata("143",[[29,4],[30,6]]);

Letter([[29,4],"c","Enter"]);

//ホームポジションの・

Letter([[10.6,3],"c","・",[16.6,3],"c","・"]);

// ４段目

cxy=[5.6,1];

txy=[6.5,1.9];

keylist1=[["Z",""],["X",""],["C",""],["V",""],["B",""],["N",""],["M",""],["＜",","],["＞","."],["?","/"],["\_","$\backslash$"]];

repeat(11,p,

s=p-1;

Ovaldata(text(p)+"4",[cxy+[2*s,0],txy+[2*s,0]]);

Letter([cxy+[2*s,0.5],"e",keylist1_p_1,cxy+[2*s,-0.5],"e",keylist1_p_2]);

);

Ovaldata("124",[[2.3,1],[4.5,1.9]]);

Ovaldata("134",[[28.4,1],[30,1.9]]);

Letter([[2.3,0.5],"c","Shift",[28.4,0.5],"c","Shift"]);

// スペースバー

Ovaldata("115",[[13.7,-0.9],[17.3,-0.1]]);

Figpdf();

Windispg();

< 戻る >