[天気:曇](三重県津市・亀山市) <睡眠:100--610><労働830--1710>
1
[Misc] アサー≫^^FF
ぬぃぅ
ねむいのぅ。
請求書とか購入依頼とかをごにょごにょと処理。
月曜にさんざん残業したので今日は定時で逃亡。
亀山のダイソーで買い物をしたのち、
白熊で熊丼（チャーシューと玉葱炒めが載った丼飯）とコロッケを食って帰宅。
4
[Web] ちょっとhnsにGPSコマンドをつけてみた
hnf中に
GPS 33_33_33N 133_33_33E
と書くと
33°33′33.00″N ; 133°33′33.00″Eのようにその場所
*1
へのGoogleマップへリンクされるGPSコマンドを作ってみた。
下のようなgps.phを作って、
#
# gps.ph
#
# how to use
# require 'gps.ph' in config.ph or <theme>/theme.ph
#
# command usage:
# GPS latitude longitude
# => "[mark] latitude ; longitude" which links to GoogleMap showing that place.
#
# (c)2008 ulara
# This library is free software; you can redistribute it
# and/or modify it under the same terms as HyperNikkiSystem itself.
#
package HNS::Hnf::Command;
push @{$Entities{'Inline'}}, 'GPS';
package HNS::Hnf::Command::GPS;
use vars qw(@ISA $Template $NumAttr $IsOneline $mark);
@ISA = qw(HNS::Hnf::Command::Inline);
$AllowCommands = [''];
$Template = qq(<a href="http://maps.google.co.jp/maps?hl=ja&q=%latitude_f,%longitude_f">%mark %latitude_str ; %longitude_str</a>);
$mark = qq(<img src="./icons/web_24.png" width="24" height="24" alt="○" border="0" >);
sub parse_arg($) {
my($tmp) = @_;
my($deg_f,$sgn,$deg,$min,$sec);
if($tmp =~ /^[-+]\d{1,3}\.\d+$/) {
$deg_f = sprintf("%+0.6f",$tmp);
$sgn = ($tmp <=> 0), $tmp=abs($tmp);
$deg = int($tmp), $tmp -= $deg;
$min = int($tmp*60), $tmp -= $min/60;
$sec = $tmp*3600;
return [ $deg_f, $sgn, $deg, $min, $sec ];
}elsif($tmp =~ /^(\d{1,3})_(\d\d)_(\d\d(\.\d\d?)?)([NSEW])$/){
($deg,$min,$sec)=($1,$2,$3);
$sgn=1 if($5 eq "N" || $5 eq "E");
$sgn=-1 if($5 eq "S" || $5 eq "W");
$sgn=0 if($1==0 && $2==0 && $3==0);
$deg_f=sprintf("%+0.6f", $sgn*($deg+$min/60+$sec/3600));
return [$deg_f, $sgn, $deg, $min, $sec ];
}else{
return ["+0.000000", 0, 0, 0, 0];
}
}
sub AsHTML($$$){
my($self,$start,$params) = @_;
my($latitude,$longitude) = split(/ /,$self->{arg_content});
my($lat_f,$lat_sgn,$lat_deg,$lat_min,$lat_sec) = @{&parse_arg($latitude)};
my($lon_f,$lon_sgn,$lon_deg,$lon_min,$lon_sec) = @{&parse_arg($longitude)};
$params->{latitude_f} = $lat_f;
$params->{longitude_f} = $lon_f;
$params->{latitude_str} =
sprintf("%1d°%02d′%05.2f″%1s",
$lat_deg, $lat_min, $lat_sec, ($lat_sgn<0 ? "S" : "N"));
$params->{longitude_str} =
sprintf("%1d°%02d′%05.2f″%1s",
$lon_deg, $lon_min, $lon_sec, ($lon_sgn<0 ? "W" : "E"));
$params->{mark} = $mark;
$self->SUPER::AsHTML($start,$params);
}
1;
これをconfig.ph とか 〈テーマ名〉/theme.ph からrequireする。
中身を見れば分かるとおり、
GPS +35.681579 +139.767079
と書いてもよい。（
35°40′53.68″N ; 139°46′01.48″E）
$Templateを変えれば他の（WGS84測地系な）地図サイトに対応したり、
地図をインラインやポップアップで表示したりできるだろうけど、
めんどくさいからやらない（ぉ
5
[TV] 2008年4月期の録画予定・改
HOLiCの放送日を間違えていたのと、
DV-TR11はVHSで地上波の裏録が出来るのを思い出したので修正。
==============================================================
タイトル 開始 曜日 時刻 放送局 機材
--------------------------------------------------------------
yes!プリキュア5 Go Go! 継続 日 8:30 メ〜
ゲゲゲの鬼太郎 継続 日 9:00 東海
絶対可憐チルドレン 4月6日 日 10:00 愛知
コードギアス 反逆のルルーシュ R2 4月6日 日 17:00 CBC
仮面のメイドガイ 4月10日 木 2:50 メ〜
To Loveる 4月23日 木 2:50 CBC ●
ドルアーガの塔 〜the Aegis of ... 4月10日 木 3:00 三重 V
アリソンとリリア 4月3日 木 23:32 BS2 ●
図書館戦争 4月18日 金 2:05 東海
マクロスFRONTIER 4月4日 金 2:30 CBC ●
ゴルゴ13 4月18日 金 2:58 愛知
xxxHOLiC◆継 4月11日 金 3:00 CBC ●
どうでしょうリターンズ 継続? 土 1:50 メ〜 ●
S･A〜スペシャル・エー〜 4月12日 土 1:58 愛知
宇宙戦艦ヤマト 継続 土 3:24 中京
精霊の守り人（再） 4月5日 土 9:00 教育
電脳コイル 継続 土 18:25 教育
=============================================================
日付・曜日は24時切り替え
機材 無印=RD-H2EX ●=DV-TR11(HDD) V=DV-TR11(VHS)
朝食: ミックスフルーツヨーグルト、トースト・サラダ・アメリカンコーヒー＠社喫
昼食: ホキ竜田揚、菜の花飯、味噌汁、南瓜、他＠社食
夕食: 熊丼、コロッケ＠白熊亀山店
7
[Books][AV] 本日の書籍およびCD-DA
「ダイソーCDで学ぶ会話シリーズ」より
- (35)通じる! かんたんイタリア語会話
- (50)通じる! かんたんイタリア語会話[CD]
- (43)通じる! かんたんブラジル・ポルトガル語会話
以上、1 日分です。
うらゝのどす黒いエゴイスム日記＠ぷに★さくら版
![[hns2.1]](icons/hns-2.1-icon.png){kind=icon}
2008年04月09日(