うらゝの どす黒いエゴイズム日記@InterQ版

Since March 4, 2001
by うらゝ

[ 予定・椴 | カレンダー | 検索 | 指定旬へのジャンプ | タイトル一覧 ]
[ hina.di | RSS | ぷに★さくら版 | うらゝぶろぐ | Twitter:@ulara | Facebook | Ameba blog ]

hns - 日記自動生成システム - Version 2.19.9 [hns-2.1 icon]

[Namazu Search] 検索式:

2008年04月09日(水) [n年日記]

[天気:曇](三重県津市・亀山市) {睡眠:100--610} {労働830--1710}

#1 [Misc] アサー≫^^FF

ぬぃぅ
ねむいのぅ。

#2 [Labor] 労働

請求書とか購入依頼とかをごにょごにょと処理。

#3 [Misc] ゆーがった

月曜にさんざん残業したので今日は定時で逃亡。
亀山のダイソーで買い物をしたのち、 白熊で熊丼(チャーシューと玉葱炒めが載った丼飯)とコロッケを食って帰宅。

#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&deg;%02d&prime;%05.2f&Prime;%1s",
	    $lat_deg, $lat_min, $lat_sec, ($lat_sgn<0 ? "S" : "N"));
  $params->{longitude_str} =
    sprintf("%1d&deg;%02d&prime;%05.2f&Prime;%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測地系な)地図サイトに対応したり、 地図をインラインやポップアップで表示したりできるだろうけど、 めんどくさいからやらない(ぉ
*1: 当該位置については、 Wikipedia:地球33番地 を参照されたい。

#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)

#6 [Food] 飯

朝食: ミックスフルーツヨーグルト、トースト・サラダ・アメリカンコーヒー@社喫
昼食: ホキ竜田揚、菜の花飯、味噌汁、南瓜、他@社食
夕食: 熊丼、コロッケ@白熊亀山店

#7 [Books][AV] 本日の書籍およびCD-DA

「ダイソーCDで学ぶ会話シリーズ」より

以上、1 日分です。 [△このページの先頭へ]
先月 2008年04月 来月
01 02 03 04 05
06 07 08 09 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

指定旬へのジャンプ
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9-lite, HyperNikkiSystem Project

HNS logo