相変わらずTcl/Tkの拡張とプログラミングをしている。楽しい。
Tkの文字を扱うtext widgetは高機能で,任意の領域の文字のフォント、サイズ、色などを設定できるし、文字以外に画像やウィジェットも入れることができる。但し内容をファイルにセーブしようとすると全部自分でやらなければいけない。その部分を作ったので、おお高機能！楽しい！となっているわけだ。Tcl/Tkで扱える画像はgifとpngだけだが自分で拡張もできる。そこでjpegも扱えるように拡張した。これで画像を好きに扱えるのではないかと思ったが、任意のサイズに変換する機能がない。整数倍に縮小する機能しかない。で、これも自作コマンドで拡張。画像ビューアーとか作れてしまいそうだ。
Tcl/Tkが好きな理由の１つは、偉ぶっていない(?)こと。単純なスクリプト言語で、オブジェクト指向でも関数型でもない。しかし、その巧みな仕組みで、いろんなことができる。upvarで他のスタックの環境で値を評価できたりするので、forやwhileのような制御構文みたいな機能をもつ関数を定義できる。無名関数はないが、いろんなところにスクリプトを押し込むことができるので、関数に渡したり、変数に入れておくこともできる。
複数のファイルに分割したソースを容易に扱えるのも凄くいい。これは関数がみつからなかった時に呼び出されるハンドラで定義されている機能だが、事前にauto_mkindexでtclIndexというファイルを作っておくと、このファイルをみて必要なファイルを自動でloadしてくれる。 プログラムを作っていて、いくらでもファイルを分けれるので非常に作りやすい。
まぁでも、古い環境で喜んでばかりいても不安なので、新しそうな関数型言語にも手を出してみる。なんで関数型言語かというと、たまたま「
初めて学ぶ人にも，挫折した人にもきちんとわかる：［入門］関数プログラミング―質の高いコードをすばやく直感的に書ける！」という記事を読んだから。でも実用的なプログラムはできるのか疑問になって調べると
YesodというWeb FrameworkがHaskellで動いているらしい。でまぁHaskellを勉強してみようかと、よさ気な本を物色し
「すごいHaskellたのしく学ぼう!」のkindle本を購入。何日かかけて、ざっと目を通した。感想は、Lispじゃん。何かの皮を被ったLisp? すごい機能がいろいろあるのかもしれないが、その部分は、まだわからなかった。次の本に進もう。
職場で缶コーヒーやジュースばかり飲んでいるのはどうだろうと、インスタントコーヒーに切り替えてみた。砂糖の量も抑えられるし、砂糖なしでも良い、金額的にも安いということで、ガバガバ飲んでいたらカフェインの摂り過ぎではなかろうかと気になってきた。夕方になると頭が痛くなる気もする。
先週、天草パールラインマラソンのハーフに参加。今年は同級生のS野くんと一緒に行く。二回目で駐車場等の事情が分かっているので気が楽だ。熊本城マラソンの３週間後なので、少しは練習できるかと思ったが前の週に風邪を引いてしまい練習できない。前日にやっと8km走るが筋肉痛になり、そのまま出場することになった。
子飼橋は下流側2車線分が完成し供用開始、旧橋撤去も済み、現在、上流側2車線分の橋の建設が進んでいる。上流側は写真が撮りずらいのだが、たまたま高い所から写真を撮る機会があり上流側の写真が撮れたので掲載しておく。
相変わらずTcl/Tkの拡張とプログラミングをしている。楽しい。
昨日、芦北うたせマラソン大会のハーフに参加して来た。昨年についで2回目。2週前の天草パールラインマラソンでは、途中で歩いてしまい、その後も天気が悪くて、ほとんど練習できなかったので完走も危ぶまれたが、なんとか給水所以外では歩かずにゴールできた。タイムはギリギリ2時間切りの1時間59分15秒。順位は499人中304位。遅い。が、まぁ今期は調子が良くないので完走しただけで良しとする。パールラインマラソンよりは良かった。
応急修理されたドアミラー[/caption]今朝、車で通勤途中、事故にあった。車をぶつけられてしまった。ちなみに、怪我等は全く無い。
久しぶりにハンズマンでネジを購入。パラ売で必要な量だけかったので、これだけかっても183円。毎度ながら素晴らしい。内訳はボルトM8x20が14円,M8 ナットが3円,M8 スプリングワッシャーは3円,M8x20がキャップスクリュー 20円,M8 ワッシャーが2円,それに小鍋ネジM2.6x10が1円。ん？計算合うかな？税別？
まえまえからやってみたかった自分のマラソン走行データのグラフ化をやってみた。元データはgarminで計測し、Garmin Connectにアップロードされた走行データ。詳しい座標の入ったデータもダウンロードできるみたいなのだが処理が面倒なので、今回は1km毎のデータをcsvでダウンロード。これをgnuplotでグラフ化するための簡単なプログラムをperlで作成。gnuplotでグラフ化した。