アニメ『ReLIFE』
会社でいろいろあって心も体も疲れきってしまった主人公は、高校生からやり直す研究の対象に選ばれます。研究所の薬を飲むと外見が若返るのですが、衰えた運動能力や今までの記憶は失いません。大人の週間が抜けずに学校にタバコとか持って行ってしまって指導を受けてしまうところが笑える。高校生やらやり直すわけですが、元々会社でのある出来事がなければ仕事はできる主人公で、周囲とのコミュニケーションは完璧、リーダーシップまで発揮します。若い男子女子に紛れて甘酸っぱい青春を再度経験。ああ青春っていいですね。
タイトル絵は、今回作成した抵抗を配置するコマンドで描きました。
では、ブレッドボードコマンドの続きを作って行きます。
抵抗のサブルーチン名はこのようにします。
put_resistor($x1,$x1,$x2,$y2,$ohm)
$x1 抵抗のワイヤーのX座標(穴座標)始点
$y1 抵抗のワイヤーのY座標(穴座標)始点
$x2 抵抗のワイヤーのX座標(穴座標)終点
$y2 抵抗のワイヤーのY座標(穴座標)終点
$ohmは抵抗値(1000を指定したら1kΩ)
穴座標x1,y1,x2,y2を、画像座標xx1,yy1,xx2,yy2に変換したら、ワイヤーの中間に抵抗を配置したいので、始点と終点の中間点を求めます。
中間点を求めるサブルーチンです。
sub get_center{
my($xx1,$yy1,$xx2,$yy2) = @_;
my $xxc = $xx1 + ($xx2 - $xx1)/2;
my $yyc = $yy1 + ($yy2 - $yy1)/2;
return ($xxc,$yyc);
}
角度はアークタンジェントで求めます。
atan2の戻り値はラジアンなので、度に変換します。rad2degを使うためMath::Trigをuseします。
use Math::Trig;
sub get_rr{
my($xx1,$yy1,$xx2,$yy2) = @_;
my($ww, $hh) = ($xx2-$xx1, $yy2-$yy1);
my $rr = rad2deg atan2($ww,$hh);
return 90 - $rr;
}
全体はこうなりました。もう長すぎです。
~$ cat -n bread.sh
1 a=`perl -e '
2 use Math::Trig;
3 @colors=("black","brown","red","orange","yellow","green","blue","purple","gray","white");
4 foreach(split / /, "0,60 62,125 197,125 324,60"){
5 my($x,$w) = split /,/,$_;
6 print qq#<rect x="$x" y="0" width="$w" height="650" stroke="black" fill="none"></rect>#;
7 }
8 foreach(split / /, "8:red 50:blue 334:red 376:blue"){
9 my($x,$c) = split /:/,$_;
10 print qq#<line x1="$x" y1="25" x2="$x" y2="620" stroke="$c" stroke-width="2"/>#;
11 }
12
13 $x=90;
14 foreach $ch (split //,"abcdefghij"){
15 print qq#<text x="$x" y="20" font-size="15" text-anchor="middle">$ch</text>#;
16 print qq#<text x="$x" y="638" font-size="15" text-anchor="middle">$ch</text>#;
17 $x += 20;
18 $x += 25 if($ch eq "e");
19 }
20
21 for($x=1;$x<=14;$x++){
22 for($y=1;$y<=30;$y++){
23 my($xx,$yy) = get_board_xxyy($x,$y);
24 print qq#<rect x="$xx" y="$yy" width="9" height="9" fill="black"></rect>#;
25 if($x == 5 or $x == 14){
26 $xx -=10 if($x == 5);
27 $xx +=20 if($x == 14);;
28 $yy +=10;
29 print qq#<text x="$xx" y="$yy" font-size="13" text-anchor="middle">$y</text>#;
30 }
31 }
32 }
33
34 foreach (@ARGV){
35 put_resistor(split /,/,$_) if(/R$/);
36 put_wire(split /,/,$_) if(/W$/);
37 }
38
39 sub put_wire{
40 my($color,$x1,$y1, $x2,$y2) = @_;
41 my($xx1,$yy1) = get_xxyy($x1,$y1);
42 my($xx2,$yy2) = get_xxyy($x2,$y2);
43 print qq#<circle cx="$xx1" cy="$yy1" r="3" fill="white" />#;
44 print qq#<circle cx="$xx2" cy="$yy2" r="3" fill="white" />#;
45 print qq#<line x1="$xx1" y1="$yy1" x2="$xx2" y2="$yy2" stroke="$color" stroke-width="8"/>#;
46
47 }
48
49 sub put_stripedwire{
50 my($x1,$y1, $x2,$y2) = @_;
51 my($xx1,$yy1) = get_xxyy($x1,$y1);
52 my($xx2,$yy2) = get_xxyy($x2,$y2);
53 my($xxc,$yyc) = get_center($xx1,$yy1,$xx2,$yy2);
54 my($rr) = get_rr($xx1,$yy1,$xx2,$yy2);
55 print qq#<circle cx="$xx1" cy="$yy1" r="3" fill="white" />#;
56 print qq#<circle cx="$xx2" cy="$yy2" r="3" fill="white" />#;
57 print qq#<line x1="$xx1" y1="$yy1" x2="$xx2" y2="$yy2" stroke="black" stroke-width="5"/>#;
58 print qq#<line x1="$xx1" y1="$yy1" x2="$xx2" y2="$yy2" stroke="silver" stroke-width="4"/>#;
59 return ($xxc,$yyc,$rr);
60 }
61
62 sub put_resistor{
63 my $ohm = @_[4];
64 my($xxc,$yyc,$rr) = put_stripedwire(@_);
65 @resi = split //,$ohm;
66
67 my ($xx1,$yy1) = ($xxc-20,$yyc-5);
68 my ($xxb1,$yyb1,$cb1) = ($xxc-15,$yyc-5,$colors[$resi[0]]);
69 my ($xxb2,$yyb2,$cb2) = ($xxc-7,$yyc-5,$colors[$resi[1]]);
70 my ($xxb3,$yyb3,$cb3) = ($xxc+1,$yyc-5,$colors[$#resi]);
71 my ($xxb4,$yyb4,$cb4) = ($xxc+11,$yyc-5,"gold");
72
73 print qq#<rect x="$xx1" y="$yy1" width="40" height="10" stroke="black" fill="white" transform="rotate($rr,$xxc,$yyc)"></rect>#;
74 print qq#<rect x="$xxb1" y="$yyb1" width="4" height="10" fill="$cb1" transform="rotate($rr,$xxc,$yyc)"></rect>#;
75 print qq#<rect x="$xxb2" y="$yyb2" width="4" height="10" fill="$cb2" transform="rotate($rr,$xxc,$yyc)"></rect>#;
76 print qq#<rect x="$xxb3" y="$yyb3" width="4" height="10" fill="$cb3" transform="rotate($rr,$xxc,$yyc)"></rect>#;
77 print qq#<rect x="$xxb4" y="$yyb4" width="4" height="10" fill="$cb4" transform="rotate($rr,$xxc,$yyc)"></rect>#;
78 }
79
80 sub get_center{
81 my($xx1,$yy1,$xx2,$yy2) = @_;
82
83 my $xxc = $xx1 + ($xx2 - $xx1)/2;
84 my $yyc = $yy1 + ($yy2 - $yy1)/2;
85 return ($xxc,$yyc);
86 }
87
88 sub get_rr{
89 my($xx1,$yy1,$xx2,$yy2) = @_;
90 my($ww, $hh) = ($xx2-$xx1, $yy2-$yy1);
91 my $rr = rad2deg atan2($ww,$hh);
92
93 return 90 - $rr;
94 }
95
96 sub get_xxyy{
97 my($xx,$yy) = get_board_xxyy(@_);
98 return ($xx+4,$yy+4);
99 }
100
101 sub get_board_xxyy{
102 my($x,$y) = @_;
103 $x-=1;
104 $y-=1;
105 if($x < 4){
106 my $w = 20;
107 $xx = $x * $w + 15 + ($x >= 2)*285;
108 $y = 0 if($y >= 25);
109 $yy = $y * 20 + 35 + int($y /5) * 20;
110 }else{
111 my $w = 19;
112 $xx = $x * $w + 10 + ($x >= 9)*32;
113 $yy = $y * 20 + 30;
114 }
115 return ($xx,$yy);
116 }
117 ' $@`
118
119 cat <<EOL > /tmp/tmp.svg
120 <svg width="384" height="650">
121 <rect x="0" y="0" width="384" height="650" fill="white"></rect>
122 $a
123 </svg>
124 EOL
125 inkscape -z -e out.png /tmp/tmp.svg -w 384 -h 600
使ってみます。例によってランダム実行。
~$ r(){
perl -e '
printf"%d,%d,%d,%d,%d,R",
1+int rand(4),
1+int rand(25),
4+int rand(10),
1+int rand(30),
1+int rand(100000);
'
}
~$ . bread.sh `r` `r` `r` `r` `r` `r` `r` `r` `r` `r` `r` `r` `r`
コメント