Let's write β

プログラミング中にできたことか、思ったこととか

Smalltalk

SmalltalkでdoesNotUnderstand:をつかってローマ数字の変換

おとといあたりに' Last Resort'というワードを聞き僕がまずおもいうかんだのは、 どこかのプレゼンで目にした「method-missing is last resort」というフレーズでした、 そして次に連想されたのは以前メタプログラミングRubyで読んだRubyのmethod-missingを…

ソートアルゴリズムの可視化をしました。

ソートのアルゴリズムを可視化するというプログラムを紹介され、自分たちでもつくってみてね といわれたので,さっそくSmalltalkで作成してみました。クラスを大別して、ソートのログをOrderedCollectionで渡すとImageをつくる機能をもつ SortVisualizerと、O…

Catrobat(Catroid)で遊びたい

先日Nexus7をGoogle for Entrepreneur Weekで賞をいただきNexus 7をチームに一台いただきました。 そのNexus 7はどうせならということでチームの共有財産にしているのですが、それを触らせてもらっていたらあまりにも楽しかったので、自分で買ってしまいまし…

VisualWorksで画像処理 〜バイラテラルフィルタ〜

こちらのページを参考にいたしまして 黄昏に鎮む画廊:ちょっと真面目に画像処理(バイラテラルフィルタ) VisualWorksでバイラテラルフィルタを実装してみました。 filter: anImage w: w s1: sigma1 s2: sigma2 | newImage | newImage := anImage copyEmpty. w…

画像フィルタをデバッグするときには

ここ最近VisualWorks環境で画像フィルタをつくっていました。 その際にちゃんとフィルタが動作しているか確認するために、つくったフィルタを適応して すぐに結果を確認するためのコードをずっとWorkspaceにひらいておく事をしておきました。 その時に利用し…

VisualWorksでセピアフィルタ

画像をセピア化 filter: anImage | newImage | newImage := anImage copyEmpty. anImage pixelsDo: [:x :y | | pxColor Red Green Blue newPxColor | pxColor := anImage valueAtPoint: x @ y. Red := (pxColor red) * 240 / 255. Green := (pxColor green) …

VisualWorksで画像補色処理

ある画像をじっくりながめたあと、白い画像をみたりすると 綺麗な色つきの画像が見えるようになったりするというものがテレビなどで 紹介されている事があるので、その補色処理をおこなうフィルタを書いてみました。 | dialog fileName imgReader img newIma…

VisualWorksで画像グレイスケール処理~NTSC系加重平均~

グレイスケールのNTSC系加重平均法 | img newImage | img := (ImageReader fromFile: '/path/to/your/image/file') image. newImage := img copyEmpty. img pixelsDo: [:x :y | | pxColor ntscGray newPxColor | pxColor := img valueAtPoint: x@y. ntscGray…

VisualWorksで画像グレイスケール処理~平均値法~

VisualWorksで画像のグレイスケール処理をやってみました。今回もsumimさんにお世話になりました.... | img newImage | img := (ImageReader fromFile: '/path/to/your/image/file') image. newImage := img copyEmpty. img pixelsDo: [:x :y | | pxColor rg…

VisualWorksで画像エッジ抽出

VisualWorksで画像のエッジ抽出してみました。 "画像のロード" img := (ImageReader fromFile: '/path/to/your/image/file') image. newImage := img copyEmpty. "画像のグレイスケール化" img pixelsDo: [:x :y | pxColor := img valueAtPoint: x@y. ntscGr…

VisualWorksで画像閾値処理

夜中の更新になりますが、僕に取っては昼間よりも夜の方が集中しやすいので... Smalltalkで画像の閾値処理(2値化とも)をやってみました。いろんなSmalltalk界の有名人の方(sumimさんや、umejavaさん)にお世話になっていて申し訳ない気持ちです... imgReader …

Squeakに入門しなおしてみた

Smalltalkは以前も触っていて、一度熱がさめたのですが、今年はLispもそうですが、Perlなどの他の好きな言語も真面目に取り組む事にしようと決めたので Perlをある程度復習し終わったと判断して、Smalltalkを復習しはじめました。しばらく触っていないと本当…