%
%	gbb60166@gmail.com	https://unilab.gbb60166.jp/prekou/prekou.htm
%
% aspectratio= は 1610, 169, 149, 54, 32 の中から選べる（省略時は 43）
% C:\w32tex\share\texmf-dist\tex\latex\beamer\beamer.cls
%\documentclass[20pt,dvipdfmx,hyperref={pdfpagemode=FullScreen},aspectratio=169]{beamer}
%\documentclass[20pt,dvipdfmx,hyperref={pdfstartview={XYZ null null 8.00}},aspectratio=169]{beamer}
\documentclass[20pt,dvipdfmx,aspectratio=169]{beamer}
% pdfの栞の字化けを防ぐ
%\AtBeginDvi{\special{pdf:tounicode EUC-UCS2}}
% テーマ
\usetheme{Copenhagen}
% navi. symbolsは目立たないが，dvipdfmxを使うと機能しないので非表示に
\setbeamertemplate{navigation symbols}{} 
\usepackage{bxdpx-beamer,pxjahyper,minijs}
%\usepackage{graphicx}
%\usepackage{tkokugo,furikana,tsayusen,shiika,sfkanbun,jdkintou,plext}
\usepackage{type1cm}
\usepackage[deluxe]{otf}
%\usepackage{tikzsymbols}
%\usepackage[dvipdfmx]{graphicx}%
\def\pgfsysdriver{pgfsys-dvipdfmx.def}%（graphicxパッケージを使用しない場合はこの行を有効に）
%\def\pgfsysdriver{pgfsys-dvips.def}%デフォルト
%\usepackage[e]{esvect}
\usepackage{tikz}%（これで、pgfとpgfforが読み込まれます。）
%\usepackage{tikz-3dplot}
%\usetikzlibrary{calc,patterns}
%\usetikzlibrary{arrows.meta,angles,intersections,backgrounds}
%\usepackage{animate}
%\usepackage{pgfplots}
%\pgfplotsset{compat=newest}
%\pgfplotsset{compat=newest, every axis/.append style={line width=1pt}}
%\PassOptionsToPackage{dvipdfmx}{graphicx}
\nofiles

% フォントはお好みで
%\usepackage{txfonts}

\mathversion{bold}
\renewcommand{\familydefault}{\sfdefault}
\renewcommand{\seriesdefault}{bx}
\renewcommand{\kanjifamilydefault}{\gtdefault}
\renewcommand{\kanjiseriesdefault}{bx}
\setbeamerfont{title}{size=\normalsize,series=\bfseries}
\setbeamerfont{frametitle}{size=\normalsize,series=\bfseries}
\setbeamertemplate{frametitle}[default][center]
\usefonttheme{professionalfonts}

% 参考にしたURL
% http://windom.phys.hirosaki-u.ac.jp/fswiki/wiki.cgi?page=LaTeX+Beamer%A4%C7%A5%D7%A5%EC%A5%BC%A5%F3%A5%C6%A1%BC%A5%B7%A5%E7%A5%F3

\newcommand{\Slash}[1]{\ooalign{\hfil\kern-3pt／\hfil\crcr$#1$}}
\everymath{\displaystyle}

\def\maruwaku#1{\begin{tikzpicture}[scale=0.7, baseline={([yshift=-22pt] current bounding box.north)}]
\filldraw[color=CUDBlue, line width=1pt, rounded corners=2pt] (-0.1,0)--(2.1,0)--(2.1,1.1)--(-0.1,1.1)--cycle;
\draw(1,0.5) node[white]{#1};
\end{tikzpicture}
}

\setbeamersize{text margin left=5mm,text margin right=5mm}
\fboxrule=0.8pt

\makeatletter
\def\hooklen#1#2{\settowidth{\@tempdima}{\(#1\)}
%\advance\@tempdima by.3ex
% ↑ 数式モードで式の前後に入るスペースを制御したかったが、
%    難しいのでやめた。段々難解なコードになっているのでやめた方がよい？
\hbox to\@tempdima{\hfil \(#2\)\hfil}}
%■等号付き不等号 by 美文書作成入門
\newcommand{\myleqq}{\mathrel{\mathpalette\gl@align<}}
\newcommand{\mygeqq}{\mathrel{\mathpalette\gl@align>}}
\newcommand{\gl@align}[2]{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
	\ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
\makeatother

% カラーユニバーサルデザインを調べたつもりだがあまり自信がありません
% http://www.fukushihoken.metro.tokyo.jp/kiban/machizukuri/kanren/color.files/colorudguideline.pdf
% http://jfly.iam.u-tokyo.ac.jp/colorset/

% ■ アクセントカラー小面積を目立たせる高彩度色
\definecolor{CUDRed}{RGB}{255,75,0}
\definecolor{CUDGreen}{RGB}{3,175,122}
\definecolor{CUDBlue}{RGB}{0,90,255}
\definecolor{CUDCyan}{RGB}{77,196,255}
\definecolor{CUDMagenta}{RGB}{153,0,153}
\definecolor{CUDYellow}{RGB}{255,241,0}
\definecolor{CUDBrown}{RGB}{128,64,0}

\definecolor{CUDOrange}{RGB}{246,170,0}

% ■ ベースカラー広い面積の塗り分けに用いる低・中彩度色
\definecolor{CUDPink}{RGB}{255,202,191}
\definecolor{CUDBrightGreen}{RGB}{119,217,168}
\definecolor{CUDLime}{RGB}{216,242,85}
\definecolor{CUDCream}{RGB}{255,255,128}
\definecolor{CUDBrightCyan}{RGB}{191,228,255}
%\definecolor{CUD}{RGB}{}%

\setbeamercolor{CUDBrightGreen}{fg=black,bg=CUDBrightGreen!50}
\setbeamercolor{CUDCream}{fg=black,bg=CUDCream!75}




\begin{document}

\title{プレ高数学科}\author{gbb60166}


\def\tetrominoL#1{%
	\filldraw[fill=#1,draw=black](0,0) rectangle +(1,1)
		(0,2) rectangle +(1,1);
	\filldraw[fill=CUDRed,draw=black](0,1) rectangle +(1,1)
		(1,0) rectangle +(1,1);
	}
\def\tetrominoZ#1{%
	\filldraw[fill=CUDBlue,draw=black](0,1) rectangle +(1,1)
		(1,0) rectangle +(1,1);
	\filldraw[fill=#1,draw=black](1,1) rectangle +(1,1)
		(2,0) rectangle +(1,1);
	}
\def\tetrominoT#1{%
	\filldraw[fill=CUDGreen,draw=black](0,0) rectangle +(1,1)
		(1,1) rectangle +(1,1)
		(2,0) rectangle +(1,1);
	\filldraw[fill=#1,draw=black](1,0) rectangle +(1,1);
	}
\def\kita{\fill[black!75](2,2)--++(3,0)--++(0,1)--++(-1,0)
		--++(0,3)--++(-1,0)--++(0,-1)--++(-1,0)
		--++(0,-1)--++(1,0)--++(0,-1)--++(-1,0)--cycle
	(6,2)--++(3,0)--++(0,2)--++(-1,0)
		--++(0,-1)--++(-1,0)--++(0,2)--++(1,0)
		--++(0,1)--++(-1,0)--++(0,1)--++(-1,0)--cycle;
	}
\def\masume{\foreach \x in {0,...,8}{\draw(0,\x)--++(11,0);}
	\foreach \x in {0,...,11}{\draw(\x,0)--++(0,8);}
	}
%■■■■■■■■■■■■■　テスト領域　■■■■■■■■■■■■■■




%\end{document}
%■■■■■■■■■■■■■　完成品　■■■■■■■■■■■■■■

\begin{frame}[t]
\frametitle{問題}
\begin{tikzpicture}[rotate=0, scale=0.5, thick, >=stealth,
	baseline={([yshift=-24pt] current bounding box.north)}]
\kita
\masume
\end{tikzpicture}
\hfill
\begin{minipage}[t]{0.55\textwidth}
図の白いマス目を３種類の\\
ブロック\ 
\begin{tikzpicture}[scale=0.3, thick, baseline=(current bounding box.south)] 
\tetrominoL{CUDRed}

\begin{scope}[xshift=3cm]
\tetrominoZ{CUDBlue}
\end{scope}

\begin{scope}[xshift=7cm]
\tetrominoT{CUDGreen}
\end{scope}
\end{tikzpicture}
\ 全部\\
を使って埋めるとき\ %
\begin{tikzpicture}[scale=0.3, thick, baseline=(current bounding box.south)] 
\tetrominoT{CUDGreen}
\end{tikzpicture}
\ は\\最低何個必要？\\
{\footnotesize （できれば理由も答えてください）}\\[1ex]
\centerline{\scriptsize たけしのコマ大数学科 DVDBOX 第$5$期}\\[-1ex]
\centerline{\scriptsize ９時限、問\ajMaru{40}、テトリス}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{試行錯誤しよう}
とにかく手と頭を使って試行錯誤しましょう。

\vskip3ex
すると何となく答えらしきものが見えて来るはずです。
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{解答例}
\begin{tikzpicture}[rotate=0, scale=0.5, >=stealth,
	baseline={([yshift=-24pt] current bounding box.north)}]
\filldraw[fill=CUDRed,draw=black,very thick](0,0) rectangle (11,8);
\kita
%
\filldraw[fill=CUDGreen,draw=black,very thick](1,2)--++(1,0)--++(0,1)
	--++(1,0)--++(0,1)--++(-1,0)--++(0,1)--++(-1,0)--cycle
(5,2)--++(1,0)--++(0,3)--++(-1,0)--++(0,-1)
	--++(-1,0)--++(0,-1)--++(1,0)--cycle;
%
\foreach \x/\y in {4/4,7/3}{
\filldraw[fill=CUDBlue,draw=black,very thick](\x,\y)--++(1,0)--++(0,1)%
	--++(1,0)--++(0,2)--++(-1,0)--++(0,-1)--++(-1,0)--cycle;
	}
%
\foreach \x/\y in {0/0, 4/0, 8/0, 1/6, 8/6}{
	\draw[very thick](\x,\y)--++(3,0)--++(0,2)--++(-1,0)--++(0,-1)%
	--++(-2,0)--cycle;
	}
\draw[very thick](3,2)--++(7,0)
	(0,4)--++(1,0)
	(9,2)--++(0,3)--++(1,0)--++(0,-2)--++(1,0)
	(0,6)--++(1,0)
	(8,6)--++(-1,0)--++(0,2)
	(2,5)--++(1,0)--++(0,1)
	(6,7)--++(1,0);
\masume
\end{tikzpicture}
\hfill
\begin{minipage}[t]{0.55\textwidth}
何回か試行錯誤すると\ 
\begin{tikzpicture}[scale=0.3, thick, baseline=(current bounding box.south)] 
\tetrominoT{CUDGreen}
\end{tikzpicture}
は最低$2$個必要らしいことが推測されます。

\bigskip
なぜ$2$個必要なのでしょう？\ $1$個だけにはできないのでしょうか？
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{解説}
\begin{tikzpicture}[rotate=0, scale=0.5, thick, >=stealth,
	baseline={([yshift=-24pt] current bounding box.north)}]
\foreach \y in {0,2,4,6}
	\foreach \x in {1,3,...,10}
		{\fill[fill=gray](\x,\y) rectangle +(1,1);}
\foreach \y in {1,3,5,7}
	\foreach \x in {0,2,...,10}
		{\fill[fill=gray](\x,\y) rectangle +(1,1);}
\kita
\masume
\end{tikzpicture}
\hfill
\begin{minipage}[t]{0.55\textwidth}
\only<1-2>{マス目を市松模様に塗り分けると白が$34$個、灰色が$38$個
	になることが分かります。\\
	}
\only<2>{\begin{tikzpicture}[scale=0.3, thick,
		baseline=(current bounding box.south)] 
	\tetrominoL{gray}
	\begin{scope}[xshift=3cm]
	\tetrominoZ{gray}
	\end{scope}
	\begin{scope}[xshift=7cm]
	\tetrominoT{gray}
	\end{scope}
	\end{tikzpicture}
	なので\ 
	\begin{tikzpicture}[scale=0.3, thick,
		baseline=(current bounding box.south)] 
	\tetrominoL{gray}
	\begin{scope}[xshift=3cm]
	\tetrominoZ{gray}
	\end{scope}
	\end{tikzpicture}
	だけでは白$2$個、灰色$2$個しか埋められない。
	}
\only<3-4>{\begin{tikzpicture}[scale=0.3, thick,
		baseline=(current bounding box.south)] 
	\tetrominoT{gray}
	\end{tikzpicture}
	は白$3$個、灰色$1$個（または白$1$個、灰色$3$個）なので、
	$2$個の差を作れます。\\
	}
\only<4>{\( \text{灰}38-\text{白}34=\text{差}4 \)を埋めるには、
	どうしても\ 
	\begin{tikzpicture}[scale=0.3, thick,
		baseline=(current bounding box.south)] 
	\tetrominoT{CUDGreen}
	\end{tikzpicture}
	が$2$個が必要だと分かります。
	}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





\end{document}

\textcolor{CUDRed}{

