%
%	gbb60166@gmail.com	https://unilab.gbb60166.jp/prekou/prekou.htm
%
% aspectratio= は 1610, 169, 149, 54, 32 の中から選べる（省略時は 43）
% C:\texlive\2024\texmf-dist\tex\latex\beamer\beamer.cls
%\documentclass[20pt,dvipdfmx,usepdftitle=false,hyperref={pdfpagemode=FullScreen},aspectratio=169]{beamer}
%\documentclass[20pt,dvipdfmx,usepdftitle=false,hyperref={pdfstartview={XYZ null null 8.00}},aspectratio=169]{beamer}
\documentclass[20pt,dvipdfmx,usepdftitle=false,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{arrows.meta}
%\usetikzlibrary{calc,patterns,angles,intersections,backgrounds}
%\usepackage{animate}
%\usepackage{pgfplots}
%\pgfplotsset{compat=newest}
%\pgfplotsset{compat=newest, every axis/.append style={line width=1pt}}
%\PassOptionsToPackage{dvipdfmx}{graphicx}
\nofiles

\hypersetup{% Jul 18 2023
	pdftitle={プレ高数学科（LaTeX Beamer で汎用PDFプレゼンを作る）},
	pdfauthor={gbb60166@gmail.com},
	pdfsubject={https://unilab.gbb60166.jp/prekou/prekou.htm}
	}

% フォントはお好みで
%\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}

\newcommand{\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
\newcommand{\hooklen}[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{CUDBrightCyan}{fg=black,bg=CUDBrightCyan}
\setbeamercolor{CUDCream}{fg=black,bg=CUDCream!75}

\begin{document}

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

%■■■■■■■■■■■■■　テスト領域　■■■■■■■■■■■■■■


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

\begin{frame}[t]
\frametitle{陸上競技で使われる余弦定理}
陸上の投てき競技（ハンマー投げ/円盤投げなど）や跳躍競技（走り幅跳び/三段
跳びなど）は、以前はメジャー（巻き尺）を使って記録を測定していました。

\bigskip
しかし現在では\textcolor{CUDBlue}{光波距離計}を
使って瞬時に記録を計測できます。
そこでは\textcolor{CUDRed}{余弦定理}が使われています。
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{陸上競技で使われる余弦定理}
光波距離計を見てみましょう。

\bigskip
%\centerline{セイコータイムシステム（株）}
%\centerline{陸マガ突撃隊が行く！}
%\centerline{お道具拝見！！光波距離計}
\centerline{セイコータイムシステム（株）}

%リンク切れ
%http://www.seiko-sts.co.jp/products/sports/cat15/pdf/rikumaga_kouha.pdf

\centerline{製品情報 / \href{https://www.seiko-sts.co.jp/products/detail/sts_598.html}{\textcolor{CUDBlue}{光波距離計}\ \beamergotobutton{web}}}

%\vskip4ex
\begin{center}\href{https://www.youtube.com/watch?v=tuKDI3NMcdk}{\textcolor{CUDBlue}{\small 第\(97\)回日本陸上競技選手権大会}}\\[-.3ex]
\href{https://www.youtube.com/watch?v=tuKDI3NMcdk}{\textcolor{CUDBlue}{\small 男子ハンマー投決勝\(1\)位(YouTube)\ \beamergotobutton{web}}}
\end{center}
\end{frame}
%https://youtu.be/CPRZpRF78Ic?t=21
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{光波距離計、計測の仕組み}
\vspace*{-32pt}
\begin{tikzpicture}[scale=1,thick,
	baseline=(current bounding box.north)]
%\draw[help lines] (0,0) grid (15,7);
\useasboundingbox (0,0) rectangle (15,7);
\coordinate(A) at (13,6);%上書きで消えている
\coordinate(B) at (3,3);
\coordinate[label=right:{\footnotesize\rm C}] (C) at (10,1.6);

\foreach \x/\y in {1/12,4/9,7/6,10/3}{\draw[gray,join=round](A)--(\x,6)
	arc[start angle=180,end angle=207,radius=\y] --cycle;
	}
\fill[draw=black,fill=white,ultra thick](A) circle(0.8);

%ハンマー投げには、砲丸投げのような円弧の足留め材は無いようだ
%\draw[black,line width=3.2pt](12.13,6)
%	arc[start angle=180,end angle=230,radius=0.87];
%\draw[black,line width=3.2pt](12.13,6)
%	arc[start angle=180,end angle=160,radius=0.87];

%光波距離計
\draw(C)++(-2pt,0)--++(0,8pt)--++(4pt,0)--++(0,-8pt);
\draw[CUDYellow!90!black,ultra thick](C)--++(0,-1);
\draw[CUDYellow!90!black,ultra thick,rotate=20](C)--++(0,-1);
\draw[CUDYellow!90!black,ultra thick,rotate=-20](C)--++(0,-1);
\filldraw[draw=black,fill=gray](C)++(-4pt,-5pt) rectangle ++(8pt,10pt);
\filldraw[fill=green,thin,draw=black](C) circle(2pt);


%サークル内に設置するプリズム
\visible<1>{\draw[CUDYellow!90!black,-Triangle Cap,ultra thick]
		(A)++(0,0.6)--++(0,-0.9);
	\filldraw[fill=CUDCyan,draw=red](A) circle(2.4pt);
	}
\draw[dashed] (C) to[out=30,in=260]
		node[inner sep=2pt,fill=white,xshift=3.6ex]
		{\tiny\ajKakko{1}\ 競技前に距離を測定} (A);
\draw[CUDRed,join=round,ultra thick](A)--(C);
\draw(A)++(1ex,0) node{\footnotesize\rm A};

%落下地点に設置するプリズム
\visible<2->{\draw[CUDYellow!90!black,-Triangle Cap,ultra thick]
		(B)++(0,0.6)--++(0,-0.9);
	\filldraw[fill=CUDCyan,draw=red](B) circle(2.4pt);
	}
\visible<2->{\draw(3,4) node[inner sep=6pt,fill=white]
		{\tiny \ajKakko{2}\ 落下地点にプリズムを設置する};
	\draw(B) node[left]{\footnotesize\rm B};
	}
\visible<3->{
%	\draw[CUDRed,join=round,ultra thick](A)--(B)--(C)--cycle;
	\draw[CUDRed,ultra thick](B)--(C);
	\draw[CUDBlue,ultra thick](A)--(B);
	\draw[dashed] (B) to[out=-35,in=190]
		node[inner sep=2pt,fill=white]
		{\tiny\ajKakko{3}\ この距離を測定する} (C);
	}
\visible<4->{\begin{scope}
	\clip (A)--(B)--(C)--cycle;
	\draw[CUDRed,ultra thick](C) circle (0.7);
	\end{scope}
	\draw[CUDRed](C)++(-32pt,32pt)
		node{\footnotesize \ajKakko{4}\ 角度を測定};
	}
\visible<5->{\draw[dashed] (A) to[out=180,in=35]
	node[inner sep=2pt,fill=white,xshift=-4ex]
		{\tiny\ajKakko{5}\ 余弦定理を使って、この距離が計算できる}(B);
	}
\visible<6->{\draw(7,4.4) node[fill=CUDCream,inner sep=2ex,opacity=0.8]
	{\( \text{投げた距離} = \textrm{AB}
		- \text{\textcolor{CUDBlue}{サークル半径}} \)};
	\draw[CUDBlue,<->](A)--
		node[fill=white,inner sep=1pt]{\tiny サークル半径} ++(0,0.8);
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\end{document}
