発言者: 田中徹
発言日: 2010 12/18 15:35
発言元: z96.124-44-6.ppp.wakwak.ne.jp
完全な saloon モードに突入しました。
phazahyou 環境を用いなくても \emmoveline[r](x,y)の極座標で
マクロを作成すれば直角座標との差は吸収できそうです。
展開図が 11種類しかないことは証明できていません。
\documentclass{jarticle}
\usepackage[notMy]{emathP}%
\usepackage{emathPha}
\begin{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\let\ifGrid\iffalse%
%\let\ifGrid\iftrue% <= グリッドを描画するとき行頭の % を削除
%\let\ifBasePoint\iffalse%
\let\ifBasePoint\iftrue%
\let\ifInnerLine\iffalse%
%\let\ifInnerLine\iftrue% <= 内側の折れ線(点線)を描画するとき 〃
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\横{16}%
\def\縦{22}%
\def\単位長{8mm}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\Mul{0.88}{\縦}\HH%
\Mul{1.05}{\横}\WW%
\calcval{sqrt(3)/2}\高%
\begin{zahyou*}[haiti=t,ul=\単位長](-0.1,\WW)(-0.1,\HH)%
\ifGrid%
\thinlines%
\Ifor*\Cnt{0}{\縦}\Do{%
\Mul{\高}{\Cnt}\Y%
\kline<sensyu=\hasen>{(0,\Y)}{0}%
}%
\ISub{0}{\縦}\MIN横%
\IAdd{\横}{\縦}\MAX横%
\Ifor*\X{\MIN横}{\MAX横}\Do{%
\kline<sensyu=\hasen>{(\X,0)}{60}%
\kline<sensyu=\hasen>{(\X,0)}{120}%
}%
\fi%
\begin{phazahyou}[ul=\単位長,ex={r(1,0)},ey={r(1,60)}](0,10)(0,10)%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\DE{\emrlineto(1,0)}%
\def\DNE{\emrlineto(0,1)}%
\def\DSE{\emrlineto(1,-1)}%
\def\DW{\emrlineto(-1,0)}%
\def\DNW{\emrlineto(-1,1)}%
\def\DSW{\emrlineto(0,-1)}%
\def\ME{\emrmoveto(1,0)}%
\def\MNE{\emrmoveto(0,1)}%
\def\MSE{\emrmoveto(1,-1)}%
\def\MW{\emrmoveto(-1,0)}%
\def\MNW{\emrmoveto(-1,1)}%
\def\MSW{\emrmoveto(0,-1)}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% 描画 パーツ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Draw East, West, ...%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Move East, West, ...%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% No.1
\emmoveto(0,3)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DE\DSE\DE\DSE\DSW\DNW\DW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE%
\DSE\DNE%
\MSW%
\DE\DSW%
\MNE%
\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.2
\emmoveto(5,2)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNW\DE\DSE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE%
\DSE\DNE\DW\DNE%
\MSE%
\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.3
\emmoveto(10,2)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DNE\DSE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DSE\DNE\DSE\DNE%
\MSW%
\DE%
\MW\MNW%
\DW%
}%
\fi%
%% No.4
\emmoveto(-2,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DNE\DSE\DE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DW%
\ME%
\DSE\DNE\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.5
\emmoveto(2,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNE\DSE\DE\DE\DSW\DW\DW\DSW\DNW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DE\DNW\DE\DSW%
\MNE%
\DSE\DNE\DSE%
}%
\fi%
%% No.6
\emmoveto(7,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DE\DNE\DSE\DSE\DW\DW\DSW\DNW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\ME%
\DW\DNE\DSE\DNE\DSE\DNE\DW%
}%
\fi%
%% No.7
\emmoveto(-4,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DE\DNE\DE\DSW\DSW\DW\DSW\DW\DNE%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MSE%
\DNW\DE\DNW%
\MSE%
\DNE\DSE%
\MNW%
\DE\DNW%
}%
\fi%
%% No.8
\emmoveto(0,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNW\DE\DSE\DE\DSE\DW\DSW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE\MNE%
\DSW\DE\DSW\DNW%
\MSE%
\DE\DNE%
\MW%
\DSE%
}%
\fi%
%% No.9
\emmoveto(5,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DNE\DSE\DE\DSE\DW\DSW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DSE\DNE\DW%
\ME%
\DSE%
\MW%
\DE\DNE%
}%
\fi%
%% No.10
\emmoveto(-7,18)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\DNE\DNE\DSE\DE\DE\DSW\DW\DSW\DNW\DW%
}%
\fi%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\ME%
\DNW\DE\DSW\DE\DNW%
\MSE%
\DNE\DSE%
}%
\fi%
%% No.11
\emmoveto(-1,18)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DNW\DE\DSE\DE\DSE\DW\DSW\DW\DNE%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNW\MNE%
\DSW\DE\DSW\DE\DNW%
\ME%
\DSW%
\MW%
\DSE%
}%
\fi%
\end{phazahyou}%
\end{zahyou*}%
\end{document}
▼関連発言
│
└◆9566:正三角形の敷きつめ [tanak] 12/17 19:35
├◆9567:Re:正三角形の敷きつめ [田中徹] 12/17 23:01
│└◆9568:Re[2]:正三角形の敷きつめ [tanak] 12/18 06:19
│ ├◆9569:--- [---] 12/18 08:52
│ ├◆9570:Re[3]:正三角形の敷きつめ [田中徹] 12/18 11:22
│ │└◆9571:Re[4]:正三角形の敷きつめ [石原 守] 12/18 14:54
│ └◆9572:Re[3]:正三角形の敷きつめ [田中徹] 12/18 15:35
│ └◆9573:Re[4]:正三角形の敷きつめ [tanak] 12/18 21:15
└◆9575:Re:正三角形の敷きつめ [tDB] 12/19 16:28
└◆9576:azahyou 環境 [tDB] 12/19 16:30
└◆9578:Re:azahyou 環境 [st] 12/19 23:51
├◆9582:--- [---] 12/21 12:32
└◆9583:--- [---] 12/21 12:47<-last