「久しぶりに□□の匂いが...」探偵脳噛ネウロ(少年ジャンプ)風

> ただ，このばねに重りなどを付けるとなると大変かな？
重り(おもり)を重なり(かさなり)と思い
開領域塗りつぶしを思い出しながら勝手にアレンジしてし始めてから
気がつきました。お許しを> 飯島さん

後半部は \Spring などという名前でマクロ化しようと思いましたが、
軌跡が重なりすぎてしまうことと、両端の具合が
心をくすぐる飯島さんのものとは比べようもなく
取り柄といえば、巻数を指定できるところぐらいです。
始点は(0,0)
終点は(\横*(\巻数+2.5),0)になっています。
適当に骨を拾ってやってください。

物理系という事ならば MePoTeX なるパッケージも研究する価値はありそうです。> たけちゃんさん

\documentclass[a4j]{jarticle}
\usepackage{emathP}
\usepackage[debug]{emathPs}
\begin{document}

% 飯島さんに重なりをもたせたもの

\begin{zahyou*}[ul=5mm](0,4)(0,10){}%
%\zahyouMemori[g][n]%
\Put{(0,0)}[n]{%
\def\Wide{20}%
\def\Narrow{5}%
\begin{psZahyou*}[(-1,0)][(0,-.25)][(0,.25)](-2,2)(-2,2)(-14,14)%
\def\Fx{(12*$pi+X)/(2*$pi)*cos(X)}%
\def\Fy{(12*$pi+X)/(2*$pi)*sin(X)}%
\def\Fz{X/$pi}%
\setlinewidth{\Narrow}
\iiiBGurafu\Fx\Fy\Fz{-12*$pi}{-10*$pi}%
\def\Fx{cos(X)}%
\def\Fy{sin(X)}%
\def\Fz{X/$pi}%
\Ifor\Cnt{0}{10}\Do{%
\calcval{(2*\Cnt-10)*$pi}\Hajime%
\calcval{\Hajime+2*$pi}\Owari%
\setlinewidth{\Wide}%
\begin{EMpscolor}{white}%
\iiiBGurafu\Fx\Fy\Fz{\Hajime}{\Owari}%
\end{EMpscolor}
\setlinewidth{\Narrow}%
\iiiBGurafu\Fx\Fy\Fz{\Hajime}{\Owari}%
}%
\def\Fx{(12*$pi-X)/(2*$pi)*cos(X)}%
\def\Fy{(12*$pi-X)/(2*$pi)*sin(X)}%
\setlinewidth{\Wide}
\begin{EMpscolor}{white}%
\iiiBGurafu\Fx\Fy\Fz{10*$pi}{12*$pi}%
\end{EMpscolor}
\setlinewidth{\Narrow}
\iiiBGurafu\Fx\Fy\Fz{10*$pi}{12*$pi}%
\iiiDrawline{(0,0,12)(0,0,14)}%
\iiiDrawline{(0,0,-12)(0,0,-14)}%
\end{psZahyou*}
\En{(-2,0)}{1}%
}
\end{zahyou*}

\vspace*{10mm}

% コイル部をマクロにしようとする試み

\makeatletter%
\def\Spring#1#2#3#4{%
\def\@横{#1}%
\def\@縦{#2}%
\def\@巻数{#3}%
\calcval{\@横*(\@巻数+2.6)}\@描画横幅%
\begin{zahyou*}[ul=#4,Hidariyohaku=-1mm](0,\@描画横幅)(-\@縦,\@縦)%
\Ifor\Cnt{0}{\@巻数}\Do{%
\def\Fx{\@横*cos($pi-2*$pi*T)+\@横*(\Cnt+T+1)}%
\def\Fy{\@縦*sin($pi-2*$pi*T)}%
{\Thicklines%
\begin{color}{white}%
\BGurafu\Fx\Fy{0}{1}%
\end{color}%
}%
\BGurafu\Fx\Fy{0}{1.1}%
}%
\def\Fx{\@横*cos($pi-2*$pi*T)+\@横*(\Cnt+T+1)}%
\def\Fy{\@縦*sin($pi-2*$pi*T)}%
\BGurafu\Fx\Fy{0}{0.5}%
\def\Fx{\@横*cos($pi-2*$pi*T)+\@横*(\Cnt+T+1+(T-0.5))}%
\def\Fy{\@縦*sin($pi-2*$pi*T)}%
%\BGurafu\Fx\Fy{0.5}{1}%
\end{zahyou*}
}%
\makeatother%

\fboxsep=0mm%
\fbox{
\Spring{1}{2}{3}{5mm}
}
\rotatebox{30}{\Spring{0.4}{1}{5}{3mm}}

\begin{zahyou*}[ul=5mm](-1,4)(0,1)%
\emmoveto(0,0)%
\emrlineto(-1,0)%
\emmoveto(3.75,0)%
\emrlineto(1,0)%
\Put{(0,0)}[e]{\Spring{0.3}{1}{10}{\unitlength}}%
\end{zahyou*}
\end{document}

▼関連発言
│
└◆347:ばねについて [たけちゃん] 03/16 11:56
　├◆348:Re:ばねについて [飯島　徹] 03/16 16:15
　│└◆349:Re[2]:ばねについて [田中徹] 03/16 23:53
　└◆350:Re:ばねについて [tDB] 03/17 15:28
　　├◆351:Re[2]:ばねについて [田中徹] 03/17 18:44
　　│├◆352:Re[3]:ばねについて [tDB] 03/17 19:19
　　│└◆353:Re[3]:ばねについて [tDB] 03/17 19:26
　　├◆354:Re[2]:ばねについて [TaD] 03/18 00:33
　　└◆357:Re[2]:ばねについて [たけちゃん] 03/21 23:19<-last