function _NUM(no,px,py,sx,sz)
if no==0 then LET_0(px,py,sx,sz) end
if no==1 then LET_1(px,py,sx,sz) end
if no==2 then LET_2(px,py,sx,sz) end
if no==3 then LET_3(px,py,sx,sz) end
if no==4 then LET_4(px,py,sx,sz) end
if no==5 then LET_5(px,py,sx,sz) end
if no==6 then LET_6(px,py,sx,sz) end
if no==7 then LET_7(px,py,sx,sz) end
if no==8 then LET_8(px,py,sx,sz) end
if no==9 then LET_9(px,py,sx,sz) end
end
--D(電卓)フォント(表示する数値0-9,表示位置X,表示位置Y,サイズX,サイズY)
--フォントデータ
font_0,font_1,font_2,font_3,font_4={1,1,1,0,1,1,1},{0,0,0,0,0,1,1},{0,1,1,1,1,1,0},{0,0,1,1,1,1,1},{1,0,0,1,0,1,1}
font_5,font_6,font_7,font_8,font_9={1,0,1,1,1,0,1},{1,1,1,1,1,0,1},{1,0,1,0,0,1,1},{1,1,1,1,1,1,1},{1,0,1,1,1,1,1}
font_F={font_0,font_1,font_2,font_3,font_4,font_5,font_6,font_7,font_8,font_9}
function D_FONT(num,px,py,sx,sy)
num=math.floor(_LIMIT(num+1,1,10))
if font_F[num][1]>0 then dummy=_MOVE2D(px,py) dummy=_LINE2D(px,-0.1*sy+py) end
if font_F[num][2]>0 then dummy=_MOVE2D(px,-0.1*sy+py) dummy=_LINE2D(px,-0.2*sy+py) end
if font_F[num][3]>0 then dummy=_MOVE2D(px,py) dummy=_LINE2D(0.1*sx+px,py) end
if font_F[num][4]>0 then dummy=_MOVE2D(px,-0.1*sy+py) dummy=_LINE2D(0.1*sx+px,-0.1*sy+py) end
if font_F[num][5]>0 then dummy=_MOVE2D(px,-0.2*sy+py) dummy=_LINE2D(0.1*sx+px,-0.2*sy+py) end
if font_F[num][6]>0 then dummy=_MOVE2D(0.1*sx+px, py) dummy=_LINE2D(0.1*sx+px,-0.1*sy+py) end
if font_F[num][7]>0 then dummy=_MOVE2D(0.1*sx+px,-0.1*sy+py) dummy=_LINE2D(0.1*sx+px,-0.2*sy+py) end
end
--開発用汎用図形
--マーク・十字
function MK(px,py)
_MOVE2D(px, py+0.05) _LINE2D(px, py-0.05)
_MOVE2D(px+0.05, py ) _LINE2D(px-0.05, py ) end
--マーク・×印
function MK2(px,py)
_MOVE2D(px+0.05, py+0.05) _LINE2D(px-0.05, py-0.05)
_MOVE2D(px-0.05, py+0.05) _LINE2D(px+0.05, py-0.05) end
--線
function SN(ax,ay,bx,by)
_MOVE2D(ax,ay) _LINE2D(bx,by) end
--円
function EN(px,py,si)
for Loop=0,6.28318530717958648,0.314159265358979324 do
local Dir_X,Dir_Y = math.cos(Loop),math.sin(Loop)
local Loopi=Loop+0.314159265358979324
local Dir_X2,Dir_Y2 = math.cos(Loopi),math.sin(Loopi)
_MOVE2D(px-Dir_X *si, py-Dir_Y *si)
_LINE2D(px-Dir_X2*si, py-Dir_Y2*si) end end