schwarzの雑記 このページをアンテナに追加 RSSフィード

06/11/29 (Wed)11月29日の雑記

[] 11月29日の雑記 - schwarzの雑記 を含むブックマーク

木曜日にドイツ語検定を受けてきまして、あまりの簡単さにかえって調子を崩しつつ、つつがなく終了。まあ受かるでしょう。

そして金曜は公然とサボって惰眠をむさぼっていると、大雪到来。まさかの雪かき。

雪が降ると、犬と子供は喜び、大人はため息をつきます。わたしは前者です。つまりまだまだガキだということですね。


おかげで少し元気になったので何とかツクールを起動することが出来ました。特に意味もなくメソッドを作成。

#=============================================================
# ■ Bitmap
#-------------------------------------------------------------
#  ビットマップ
#=============================================================
class Bitmap
  
  #-----------------------------------------------------------
  # ● モザイク化
  #    rect  : モザイクをかける領域
  #    rough : 目の粗さ
  #------------------------------------------------------------
  def mosaic!(rect, rough)
    # 一辺roughの正方形ごとにループ
    (rect.x).step((rect.x+rect.width), rough){ |sqr_x|
      (rect.y).step((rect.y+rect.height), rough){ |sqr_y|
        colors = []
        # 正方形領域のピクセルごとの色を取得
        sqr_x.upto(sqr_x + rough){ |x|
          sqr_y.upto(sqr_y + rough){ |y|
            colors << get_pixel(x, y) 
          }
        }
        # 色の平均値を求める
        red = colors.inject(0){|result, item| 
         result + item.red } / colors.size
        green = colors.inject(0){|result, item| 
          result + item.green } / colors.size
        blue = colors.inject(0){|result, item| 
          result + item.blue } / colors.size
        ave_color = Color.new(red, green, blue)
        # 正方形領域を全て平均化された色で塗る
        sqr_x.upto(sqr_x + rough){ |x|
          sqr_y.upto(sqr_y + rough){ |y|
            set_pixel(x, y, ave_color) 
          }
        }
      }
    }
    return self
  end
  def mosaic(*args)
    return self.dup.mosaic!(*args)
  end
  
end

これを、

sprite = Sprite.new
sprite.bitmap = Bitmap.new("Graphics/Titles/001-Title01")
sprite.bitmap.mosaic!(Rect.new(300, 430, 340, 45), 5)

loop{
  Graphics.update
}

こんな風に実行してみると、

f:id:Schwarz:20061129213312j:image

こんなふうになります。

mr-80bmr-80b2006/11/30 08:18おひさしぶりです。
ドイツ語検定ですか。相変わらずいろいろやってらっしゃるのですねぇ。

SchwarzSchwarz2006/11/30 19:25どうもお久しぶりです。
趣味は広く浅く、ですね。

ebexolihucoipebexolihucoip2018/01/07 21:40http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

aqaiczuguvcoaqaiczuguvco2018/01/07 21:44http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

mucojevemmucojevem2018/01/07 21:57http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

eayumoyajaneayumoyajan2018/01/07 22:03http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

ufarupuyiufarupuyi2018/01/07 22:04http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

ubuebatevoqeubuebatevoqe2018/01/07 22:06http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

gilionapohegilionapohe2018/01/07 22:17http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

auqhovasederauqhovaseder2018/01/07 22:17http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

itiakudodekeaitiakudodekea2018/01/08 21:24http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/

fisiilahcatsefisiilahcatse2018/01/08 21:38http://levitra-20mg-priceof.online/ - levitra-20mg-priceof.online.ankor <a href="http://pricespharmacy-canadian.online/">pricespharmacy-canadian.online.ankor</a> http://buy-amoxicillin-amoxil.online/