Papers/2017/suruga-midterm/src: picins.sty annotate

author	Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp>
date	Fri, 21 Oct 2016 22:41:40 +0900
parents
children

rev	line source
0 6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	1 % PICINS.STY --- Style File zum Einbinden von Bildern
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	2 % Autor: J. Bleser, E. Lang
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	3 % Hochschulrechenzentrum
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	4 % Technische Hochschule Darmstadt
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	5 % !!! Dieses Style-File ist urheberrechtlich geschuetzt !!!
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	6 % !!! Aenderungen nur mit Zustimmung der Autoren !!!
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	7 \message{Option `picins' Version 3.0 Sep. 1992, TH Darmstadt/HRZ}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	8 \newbox\@BILD%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	9 \newbox\@TEXT%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	10 \newdimen\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	11 \newdimen\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	12 \newdimen\d@xoff%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	13 \newdimen\d@yoff%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	14 \newdimen\d@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	15 \newdimen\d@dash%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	16 \newdimen\d@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	17 \newdimen\d@pichskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	18 \newdimen\d@tmp
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	19 \newdimen\d@tmpa
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	20 \newdimen\d@bskip
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	21 \newdimen\hsiz@%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	22 \newdimen\p@getot@l%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	23 \newcount\c@breite
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	24 \newcount\c@hoehe
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	25 \newcount\c@xoff
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	26 \newcount\c@yoff
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	27 \newcount\c@pos
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	28 \newcount\c@shad
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	29 \newcount\c@dash
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	30 \newcount\c@boxl
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	31 \newcount\c@zeilen%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	32 \newcount\@changemode%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	33 \newcount\c@piccaption%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	34 \newcount\c@piccaptionpos%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	35 \newcount\c@picpos
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	36 \newcount\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	37 \newcount\c@half%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	38 \newcount\c@tmp
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	39 \newcount\c@tmpa
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	40 \newcount\c@tmpb
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	41 \newcount\c@tmpc
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	42 \newcount\c@tmpd
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	43 \newskip\d@leftskip
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	44 \newif\if@list \@listfalse%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	45 \newif\if@offset%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	46
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	47
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	48 \c@piccaptionpos=1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	49 \c@picpos=0
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	50 \d@shad=4pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	51 \d@dash=4pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	52 \d@boxl=10pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	53 \d@pichskip=1em%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	54 \@changemode=0%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	55 \def\@captype{figure}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	56 \let\old@par=\par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	57
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	58 \def\pichskip#1{\d@pichskip #1\relax}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	59
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	60
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	61 \def\shadowthickness#1{\d@shad #1\relax}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	62
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	63
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	64 \def\dashlength#1{\d@dash #1\relax}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	65
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	66
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	67 \def\boxlength#1{\d@boxl #1\relax}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	68
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	69
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	70 \def\picchangemode{\@changemode=1}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	71 \def\nopicchangemode{\@changemode=0}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	72
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	73
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	74 \def\piccaptionoutside{\c@piccaptionpos=1}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	75 \def\piccaptioninside{\c@piccaptionpos=2}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	76 \def\piccaptionside{\c@piccaptionpos=3}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	77 \def\piccaptiontopside{\c@piccaptionpos=4}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	78
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	79 \def\piccaption{\@ifnextchar [{\@piccaption}{\@piccaption[]}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	80 \def\@piccaption[#1]#2{\c@piccaption=1\def\sh@rtf@rm{#1}\def\capti@nt@xt{#2}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	81 \def\make@piccaption{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	82 \hsiz@\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	83 \ifnum\c@piccaptionpos=2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	84 \advance\hsiz@ -2\fboxsep%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	85 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	86 \ifnum\c@piccaptionpos>2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	87 \hsiz@\hsize\advance\hsiz@-\d@breite\advance\hsiz@-\d@pichskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	88 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	89 \setbox\@TEXT=\vbox{\hsize\hsiz@\caption[\sh@rtf@rm]{\capti@nt@xt}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	90 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	91
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	92
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	93
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	94 \def\newcaption{\refstepcounter\@captype\@dblarg{\@newcaption\@captype}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	95 \long\def\@newcaption#1[#2]#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	96 \old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	97 \addcontentsline{\csname ext@#1\endcsname }{#1}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	98 {\protect\numberline{\csname the#1\endcsname}{\ignorespaces #2}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	99 \begingroup\@parboxrestore\normalsize%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	100 \@newmakecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	101 \endgroup%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	102 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	103 \long\def\@newmakecaption#1#2{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	104 \vskip 10pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	105 \setbox\@tempboxa \hbox {#1: #2}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	106 \ifdim \wd\@tempboxa >\hsize%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	107 \setbox0=\hbox{#1: }\dimen0=\hsize\advance\dimen0 by-\wd0
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	108 \setbox1=\vtop{\hsize=\dimen0 #2}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	109 \hbox{\box0 \box1}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	110 \par
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	111 \else \hbox to\hsize {\hfil \box \@tempboxa \hfil}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	112 \fi
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	113 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	114
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	115
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	116
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	117
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	118
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	119 \def\parpic{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	120 \@ifnextchar ({\iparpic}{\iparpic(0pt,0pt)}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	121 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	122 \def\iparpic(#1,#2){%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	123 \@ifnextchar ({\@offsettrue\iiparpic(#1,#2)}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	124 {\@offsetfalse\iiparpic(#1,#2)(0pt,0pt)}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	125 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	126 \def\iiparpic(#1,#2)(#3,#4){%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	127 \@ifnextchar [{\iiiparpic(#1,#2)(#3,#4)}{\iiiparpic(#1,#2)(#3,#4)[l]}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	128 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	129 \def\iiiparpic(#1,#2)(#3,#4)[#5]{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	130 \@ifnextchar [{\ivparpic(#1,#2)(#3,#4)[#5]}{\ivparpic(#1,#2)(#3,#4)[#5][]}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	131 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	132 \def\ivparpic(#1,#2)(#3,#4)[#5][#6]#7{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	133 \let\par=\old@par\par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	134 \hangindent0pt\hangafter1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	135 \setbox\@BILD=\hbox{#7}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	136 \d@breite=#1\d@breite=\the\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	137 \ifdim\d@breite=0pt\d@breite=\wd\@BILD\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	138 \c@breite=\d@breite\divide\c@breite by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	139 \multiply\c@piccaption\c@piccaptionpos%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	140 \d@hoehe=#2\d@hoehe=\the\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	141 \ifdim\d@hoehe=0pt\d@hoehe=\ht\@BILD\advance\d@hoehe by\dp\@BILD\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	142 \c@hoehe=\d@hoehe\divide\c@hoehe by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	143 \d@xoff=#3\c@xoff=\d@xoff\divide\c@xoff by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	144 \d@yoff=\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	145 \advance\d@yoff by-#4\c@yoff=\d@yoff\divide\c@yoff by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	146 \c@pos=1\unitlength1pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	147 \if@offset%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	148 \setbox\@BILD=\hbox{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	149 \begin{picture}(\c@breite,\c@hoehe)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	150 \put(0,0){\makebox(\c@breite,\c@hoehe){}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	151 \put(\c@xoff,\c@yoff){\box\@BILD}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	152 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	153 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	154 \else%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	155 \setbox\@BILD=\hbox{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	156 \begin{picture}(\c@breite,\c@hoehe)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	157 \put(0,0){\makebox(\c@breite,\c@hoehe)[#6]{\box\@BILD}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	158 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	159 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	160 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	161 \ifnum\c@piccaption=2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	162 \make@piccaption%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	163 \advance\d@hoehe\ht\@TEXT\advance\d@hoehe\dp\@TEXT%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	164 \c@hoehe=\d@hoehe\divide\c@hoehe by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	165 \setbox\@BILD=\vbox{\box\@BILD\vspace{-5pt}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	166 \hbox{\hspace{\fboxsep}\box\@TEXT}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	167 \vspace{4pt}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	168 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	169 \@tfor\@tempa := #5\do{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	170 \if\@tempa f\setbox\@BILD=\hbox{\Rahmen(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	171 \if\@tempa s\setbox\@BILD=\hbox{\Schatten(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	172 \if\@tempa o\setbox\@BILD=\hbox{\Oval(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	173 \if\@tempa d\setbox\@BILD=\hbox{\Strich(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	174 \if\@tempa x\setbox\@BILD=\hbox{\Kasten(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	175 \if\@tempa l\c@pos=1\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	176 \if\@tempa r\c@pos=2\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	177 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	178 \ifnum\c@piccaption=1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	179 \make@piccaption%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	180 \advance\d@hoehe\ht\@TEXT\advance\d@hoehe\dp\@TEXT%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	181 \c@hoehe=\d@hoehe\divide\c@hoehe by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	182 \setbox\@BILD=\vbox{\box\@BILD\vspace{-5pt}\hbox{\box\@TEXT}\vspace{4pt}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	183 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	184 \ifodd\count0\c@picpos=0\else\c@picpos=\@changemode\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	185 \pagetotal=\the\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	186 \d@tmp=\pagegoal\advance\d@tmp by-\pagetotal\advance\d@tmp by-\baselineskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	187 \ifdim\d@hoehe>\d@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	188 \vskip 0pt plus\d@hoehe\relax\pagebreak[3]\vskip 0pt plus-\d@hoehe\relax%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	189 \ifnum\c@picpos=1\c@picpos=0\else\c@picpos=\@changemode\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	190 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	191 \ifnum\c@picpos=1\ifnum\c@pos=1\c@pos=2\else\c@pos=1\fi\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	192 \ifnum\@listdepth>0
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	193 \@listtrue\parshape 0%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	194 \advance\hsize -\rightmargin%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	195 \d@leftskip \leftskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	196 \leftskip \@totalleftmargin%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	197 \if@inlabel\rule{\linewidth}{0pt}\vskip-\baselineskip\relax\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	198 \else\@listfalse\medskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	199 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	200 \if@list\d@tmpa=\linewidth\else\d@tmpa=\hsize\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	201 \ifnum\c@piccaption=3%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	202 \make@piccaption%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	203 \d@tmp\ht\@TEXT\advance\d@tmp\dp\@TEXT%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	204 \ifdim\d@hoehe>\d@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	205 \setbox\@TEXT=\vbox to\d@hoehe{\vfill\box\@TEXT\vspace{.2\baselineskip}\vfill}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	206 \else%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	207 \setbox\@BILD=\vbox to\d@tmp{\vfill\box\@BILD\vfill}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	208 \d@hoehe\d@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	209 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	210 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	211 \ifnum\c@piccaption=4%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	212 \make@piccaption%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	213 \d@tmp\ht\@TEXT\advance\d@tmp\dp\@TEXT%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	214 \setbox\@TEXT=\vbox to\d@hoehe{\vspace{-10pt}\box\@TEXT\vfil}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	215 \advance\d@hoehe-\d@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	216 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	217 \ifnum\c@pos=1\d@tmpa=0pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	218 \ifnum\c@piccaption>2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	219 \setbox\@BILD=\hbox{\box\@BILD\hspace{\d@pichskip}\hbox{\box\@TEXT}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	220 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	221 \else\advance\d@tmpa by-\wd\@BILD\d@breite=-\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	222 \ifnum\c@piccaption>2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	223 \d@tmpa=0pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	224 \setbox\@BILD=\hbox{\hbox{\box\@TEXT}\hspace{\d@pichskip}\box\@BILD}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	225 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	226 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	227 \p@getot@l\the\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	228 \d@bskip\d@hoehe\advance\d@bskip by\parskip\advance\d@bskip by.3\baselineskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	229 {\noindent\hspace*{\d@tmpa}\relax%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	230 \box\@BILD\nopagebreak\vskip-\d@bskip\relax\nopagebreak}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	231 \d@tmp=-\d@hoehe\divide\d@tmp by\baselineskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	232 \c@zeilen=\d@tmp\advance\c@zeilen by-1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	233 \ifdim\d@breite<0pt\advance\d@breite by-\d@pichskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	234 \else\advance\d@breite by\d@pichskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	235 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	236 \hangindent=\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	237 \hangafter=\c@zeilen%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	238 \let\par=\x@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	239 \ifnum\c@piccaption=3%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	240 \hangindent0pt\hangafter1\let\par=\old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	241 \vskip\d@hoehe\vskip.2\baselineskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	242 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	243 \c@piccaption=0%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	244 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	245
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	246
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	247
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	248
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	249 \newdimen\ptoti
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	250 \newdimen\ptotii
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	251 \def\x@par{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	252 \ptoti\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	253 \old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	254 \ptotii\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	255 \ifdim\ptoti=\ptotii%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	256 \d@tmp\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	257 \else%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	258 \d@tmp\baselineskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	259 \multiply\d@tmp by\prevgraf%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	260 \advance\d@tmp by\parskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	261 \global\advance\d@hoehe by-\d@tmp\d@tmp=\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	262 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	263 \ifdim\d@hoehe>0pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	264 \divide\d@tmp by\baselineskip\c@zeilen=-\d@tmp\advance\c@zeilen by-1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	265 \c@zeilen=\the\c@zeilen%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	266 \else\c@zeilen=0
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	267 \fi
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	268 \ifnum\c@zeilen<0\hangafter=\c@zeilen\hangindent=\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	269 \else\let\par=\old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	270 \hangindent 0pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	271 \leftskip \d@leftskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	272 \if@list\parshape \@ne \@totalleftmargin \linewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	273 \advance\hsize \rightmargin%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	274 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	275 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	276 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	277
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	278
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	279 \def\picskip#1{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	280 \let\par=\old@par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	281 \par%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	282 \pagetotal\the\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	283 \c@tmp=#1\relax%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	284 \ifnum\c@tmp=0%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	285 \d@tmp\baselineskip\multiply\d@tmp by\prevgraf\advance\d@tmp\parskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	286 \ifdim\p@getot@l<\pagetotal
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	287 \advance\d@hoehe by-\d@tmp\advance\d@hoehe by1ex%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	288 \ifdim\d@hoehe>0pt\vspace*{\d@hoehe}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	289 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	290 \ifdim\p@getot@l=\pagetotal%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	291 \advance\d@hoehe by-\d@tmp\advance\d@hoehe by1ex%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	292 \ifdim\d@hoehe>0pt\vspace*{\d@hoehe}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	293 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	294 \else\hangafter=-\c@tmp\hangindent=\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	295 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	296 \leftskip \d@leftskip%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	297 \if@list\parshape \@ne \@totalleftmargin \linewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	298 \advance\hsize \rightmargin%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	299 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	300 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	301
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	302
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	303
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	304
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	305
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	306
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	307 \def\hpic{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	308 \@ifnextchar ({\ihpic}{\ihpic(0pt,0pt)}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	309 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	310 \def\ihpic(#1,#2){%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	311 \@ifnextchar ({\@offsettrue\iihpic(#1,#2)}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	312 {\@offsetfalse\iihpic(#1,#2)(0pt,0pt)}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	313 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	314 \def\iihpic(#1,#2)(#3,#4){%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	315 \@ifnextchar [{\iiihpic(#1,#2)(#3,#4)}{\iiihpic(#1,#2)(#3,#4)[l]}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	316 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	317 \def\iiihpic(#1,#2)(#3,#4)[#5]{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	318 \@ifnextchar [{\ivhpic(#1,#2)(#3,#4)[#5]}{\ivhpic(#1,#2)(#3,#4)[#5][]}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	319 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	320 \def\ivhpic(#1,#2)(#3,#4)[#5][#6]#7{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	321 \setbox\@BILD=\hbox{#7}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	322 \d@breite=#1\d@breite=\the\d@breite%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	323 \ifdim\d@breite=0pt\d@breite=\wd\@BILD\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	324 \c@breite=\d@breite\divide\c@breite by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	325 \d@hoehe=#2\d@hoehe=\the\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	326 \ifdim\d@hoehe=0pt\d@hoehe=\ht\@BILD\advance\d@hoehe by\dp\@BILD\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	327 \c@hoehe=\d@hoehe\divide\c@hoehe by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	328 \d@xoff=#3\c@xoff=\d@xoff\divide\c@xoff by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	329 \d@yoff=\d@hoehe%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	330 \advance\d@yoff by-#4\c@yoff=\d@yoff\divide\c@yoff by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	331 \c@pos=0\d@tmpa=\parindent\parindent=0pt\unitlength1pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	332 \if@offset
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	333 \setbox\@BILD=\hbox{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	334 \begin{picture}(\c@breite,\c@hoehe)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	335 \put(0,0){\makebox(\c@breite,\c@hoehe){}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	336 \put(\c@xoff,\c@yoff){\box\@BILD}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	337 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	338 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	339 \else%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	340 \setbox\@BILD=\hbox{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	341 \begin{picture}(\c@breite,\c@hoehe)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	342 \put(0,0){\makebox(\c@breite,\c@hoehe)[#6]{\box\@BILD}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	343 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	344 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	345 \fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	346 \@tfor\@tempa := #5\do{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	347 \if\@tempa f\setbox\@BILD=\hbox{\Rahmen(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	348 \if\@tempa s\setbox\@BILD=\hbox{\Schatten(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	349 \if\@tempa o\setbox\@BILD=\hbox{\Oval(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	350 \if\@tempa d\setbox\@BILD=\hbox{\Strich(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	351 \if\@tempa x\setbox\@BILD=\hbox{\Kasten(\c@breite,\c@hoehe){\box\@BILD}}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	352 \if\@tempa t\c@pos=1\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	353 \if\@tempa b\c@pos=2\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	354 }%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	355 \ifnum\c@pos=0\parbox{\d@breite}{\makebox[0cm]{}\\\box\@BILD\smallskip}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	356 \ifnum\c@pos=1\parbox[t]{\d@breite}{\makebox[0cm]{}\\\box\@BILD\smallskip}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	357 \ifnum\c@pos=2\parbox[b]{\d@breite}{\makebox[0cm]{}\\\box\@BILD\smallskip}\fi%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	358 \parindent=\d@tmpa%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	359 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	360
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	361
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	362
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	363
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	364
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	365
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	366 \def\Rahmen(#1,#2)#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	367 \c@whole=\@wholewidth\divide\c@whole by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	368 \c@half=\@halfwidth\divide\c@half by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	369 \c@tmpa=#1\advance\c@tmpa by\c@whole\advance\c@tmpa by\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	370 \c@tmpb=#2\advance\c@tmpb by\c@whole\advance\c@tmpb by\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	371 \begin{picture}(\c@tmpa,\c@tmpb)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	372 \put(\c@whole,\c@half){\framebox(#1,#2){#3}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	373 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	374 \global\advance\d@breite by2\@wholewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	375 \global\advance\d@hoehe by2\@wholewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	376 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	377
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	378
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	379 \def\Schatten(#1,#2)#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	380 \c@whole=\@wholewidth\divide\c@whole by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	381 \c@half=\@halfwidth\divide\c@half by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	382 \c@shad=\d@shad\divide\c@shad by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	383 \c@tmp=\c@whole\advance\c@tmp by\c@whole\c@tmpd=\c@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	384 \advance\c@tmp by\c@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	385 \advance\c@tmpd by#1%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	386 \advance\c@half by\c@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	387 \c@tmpa=#1\advance\c@tmpa by\c@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	388 \c@tmpb=#2\advance\c@tmpb by\c@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	389 \begin{picture}(\c@tmpa,\c@tmpb)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	390 \put(\c@whole,\c@half){\framebox(#1,#2){#3}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	391 \put(\c@shad,0){\rule{\c@tmpd pt}{\c@shad pt}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	392 \put(\c@tmpd,0){\rule{\c@shad pt}{#2 pt}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	393 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	394 \global\advance\d@breite by2\@wholewidth\global\advance\d@breite by\d@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	395 \global\advance\d@hoehe by2\@wholewidth\global\advance\d@hoehe by\d@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	396 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	397
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	398
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	399 \def\Oval(#1,#2)#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	400 \@wholewidth=0.4pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	401 \c@tmpa=\the#1\divide\c@tmpa by2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	402 \c@tmpb=\the#2\divide\c@tmpb by2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	403 \begin{picture}(#1,#2)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	404 \put(\c@tmpa,\c@tmpb){\oval(#1,#2)}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	405 \put(0.4,0.4){#3}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	406 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	407 \global\advance\d@breite by1pt\global\advance\d@hoehe by1pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	408 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	409
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	410
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	411 \def\Strich(#1,#2)#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	412 \c@whole=\@wholewidth\divide\c@whole by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	413 \c@half=\@halfwidth\divide\c@half by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	414 \c@dash=\d@dash\divide\c@dash by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	415 \c@tmp=\c@whole\advance\c@tmp by\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	416 \c@tmpa=#1\advance\c@tmpa by\c@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	417 \c@tmpb=#2\advance\c@tmpb by\c@tmp%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	418 \c@tmpc=#1\advance\c@tmpc by\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	419 \c@tmpd=#2\advance\c@tmpd by\c@whole%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	420 \begin{picture}(\c@tmpa,\c@tmpb)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	421 \put(\c@half,\c@half){\dashbox{\c@dash}(\c@tmpc,\c@tmpd){#3}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	422 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	423 \global\advance\d@breite by2\@wholewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	424 \global\advance\d@hoehe by2\@wholewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	425 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	426
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	427
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	428 \def\Kasten(#1,#2)#3{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	429 \@wholewidth=0.4pt%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	430 \c@boxl=\d@boxl\divide\c@boxl by65536\c@boxl=\the\c@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	431 \c@tmpa=#1\advance\c@tmpa by\c@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	432 \c@tmpb=#2\advance\c@tmpb by\c@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	433 \c@tmp=#2%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	434 \begin{picture}(\c@tmpa,\c@tmpb)%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	435 \put(0,\c@boxl){\framebox(#1,#2){#3}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	436 \put(\c@boxl,0){\line(-1,1){\c@boxl}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	437 \put(\c@boxl,0){\line(1,0){#1}\line(-1,1){\c@boxl}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	438 \put(\c@boxl,0){\put(#1,0){\line(0,1){\c@tmp}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	439 \put(0,\c@tmp){\line(-1,1){\c@boxl}}}}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	440 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	441 \global\advance\d@breite by\d@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	442 \global\advance\d@hoehe by\d@boxl%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	443 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	444
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	445
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	446
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	447
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	448
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	449 \newbox\env@box%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	450 \newdimen\d@envdp
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	451 \newcount\c@hsize
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	452 \newcount\c@envdp
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	453 \newdimen\d@envb
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	454
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	455 \long\def\frameenv{\@ifnextchar [{\@frameenv}{\@frameenv[\textwidth]}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	456 \long\def\@frameenv[#1]{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	457 \hsiz@=\textwidth \textwidth=#1 \d@envb=#1
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	458 \advance\textwidth by-2\@wholewidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	459 \advance\textwidth by-2\fboxsep
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	460 \hsize=\textwidth \linewidth=\textwidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	461 \setbox\env@box=\vbox\bgroup}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	462 \def\endframeenv{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	463 \egroup%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	464 \hsize=\hsiz@ \textwidth=\hsiz@ \linewidth=\hsiz@
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	465 \c@breite=\d@envb \divide\c@breite by65536
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	466 \advance\d@envb by-2\@wholewidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	467 \c@hsize=\d@envb \divide\c@hsize by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	468 \d@envdp=\dp\env@box \advance\d@envdp by\ht\env@box%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	469 \advance\d@envdp by2\fboxsep%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	470 \d@hoehe=\d@envdp \advance\d@hoehe by2\@wholewidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	471 \c@hoehe=\d@hoehe \divide\c@hoehe by65536
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	472 \c@envdp=\d@envdp \divide\c@envdp by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	473 \c@tmp=\@wholewidth \divide\c@tmp by65536
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	474 \vskip\@wholewidth%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	475 \unitlength 1pt\noindent%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	476 \begin{picture}(\c@breite,\c@hoehe)(0,0)
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	477 \put(\c@tmp,\c@tmp){\framebox(\c@hsize,\c@envdp){\box\env@box}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	478 \end{picture}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	479 }
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	480
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	481
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	482
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	483 \long\def\shadowenv{\@ifnextchar [{\@shadowenv}{\@shadowenv[\textwidth]}}
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	484 \long\def\@shadowenv[#1]{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	485 \hsiz@=\textwidth \textwidth=#1 \d@envb=#1
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	486 \advance\textwidth by-2\@wholewidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	487 \advance\textwidth by-2\fboxsep
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	488 \advance\textwidth by-\d@shad%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	489 \hsize=\textwidth \linewidth=\textwidth
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	490 \setbox\env@box=\vbox\bgroup}%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	491 \def\endshadowenv{%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	492 \egroup
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	493 \hsize=\hsiz@ \textwidth=\hsiz@ \linewidth=\hsiz@
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	494 \d@tmpa=\d@envb
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	495 \c@breite=\d@envb \divide\c@breite by65536
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	496 \advance\d@envb by-2\@wholewidth \advance\d@envb by-\d@shad
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	497 \c@hsize=\d@envb \divide\c@hsize by65536%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	498 \d@envdp=\dp\env@box \advance\d@envdp by\ht\env@box%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	499 \advance\d@envdp by2\fboxsep%
6abb63b73e47 add Miyagi Mitsuki <e135756@ie.u-ryukyu.ac.jp> parents: diff changeset	500 \c@envdp=\d@envdp \divide\c@envdp by65536%

0

6abb63b73e47 add