ホーム
>
RPGツクール
>
テクニック集
>
VX一覧
>
テクニック

ビットマップ拡張（XP/VX共用）

BitmapExtension (For XP/VX)

概要

Summary

Bitmap クラスを拡張し、以下の機能を追加します。

ラスタオペレーション
- SRCCOPY, SRCPAINT, など 7 種
特殊合成
- 加算
- 減算
- 乗算
- 覆い焼き（ハイライト）
クリッピング
- 矩形
- 角丸矩形
- 楕円、正円
- 多角形
- 星
- 扇形
- 複合
高画質拡大縮小転送
平行四辺形転送
多角形描画/塗り潰し
- 任意多角形
- 正多角形
- スポーク
特殊テキスト描画
- アンチエイリアス無効
- 縁取り
- グラデーション
ビットマップファイルとして保存
※ アルファチャネルは破棄されます。

このスクリプトは、XP/VX のどちらでも使用できます。

使用時は、最新版の「TRGSSX.dll」を使用してください。
特殊合成等はスプライト同士の合成ではなく、ビットマップ同士の合成です。

↑目次

スクリーンショット

Screen Shot

ScreenShot
色々テスト。

ScreenShot
リージョン合成テスト。

ScreenShot
キングダムハーツっぽいゲージを描画してみたり。

ScreenShot
右側がノンアンチエイリアステキスト。

ScreenShot
それぞれを比較。

ScreenShot
ゲーム中の全テキストを縁取りすることも可能。

↑目次

更新履歴

History

2009/09/13

text_size_naを追加。

2009/09/04

元のdraw_textを呼び出す機能を追加。

2009/08/18

平行四辺形転送skew_blt,skew_blt_rを追加。

画質設定interpolation_mode,smoothing_modeを追加。

画質の初期設定をHIGHQUALITYからDEFAULTに変更。

多角形描画draw_polygon,fill_polygon,draw_regular_polygon,

fill_regular_polygon,draw_spokeを追加。

2009/08/11

高速テキスト描画draw_text_fastを追加。

text_size_fastを追加。

テキストの縁取り機能を追加。

DLL の名称を "TRGSSX" に変更。

2009/08/07

高画質拡大縮小転送stretch_blt_rを追加。

ノンアンチエイリアステキストのサイズ自動調整に対応。

2009/07/25

ノンアンチエイリアステキストを追加。

2008/11/22

PieRegionを追加。

2008/11/16

新規作成。

↑目次

スクリプト

Script

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ ビットマップ拡張 - KGC_BitmapExtension ◆ XP/VX ◆
#_/    ◇ Last update : 2009/09/13 ◇
#_/----------------------------------------------------------------------------
#_/  Bitmap クラスに様々な描画機能を追加します。
#_/  XP/VX のどちらでも使用することができます。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

#==============================================================================
# ★ カスタマイズ項目 - Customize BEGIN ★
#==============================================================================

module KGC
module BitmapExtension
  # ◆ draw_text の動作モード
  #   0 : draw_text (デフォルト)
  #   1 : draw_text_na
  #   2 : draw_text_fast
  # 1 or 2 を指定すると、draw_text が draw_text_na 等に置換されます。
  # (元の draw_text は _draw_text で呼び出せます)
  DEFAULT_MODE = 2

# ◆ 各モードのデフォルトフォント名
  #   ["フォント 1", "フォント 2", ...],
  #  という書式で設定。
  DEFAULT_FONT_NAME = [
    Font.default_name,  # 0
    ["ＭＳ ゴシック"],  # 1
    Font.default_name,  # 2
  ]

# ◆ デフォルトで縁取りにする
  #  draw_text には無効。
  DEFAULT_FRAME = true

# ◆ デフォルトのグラデーション色
  #  グラデーションをかけない場合は nil
  #  draw_text には無効。
  DEFAULT_GRAD_COLOR = nil
end
end

#==============================================================================
# ☆ カスタマイズ項目終了 - Customize END ☆
#==============================================================================

=begin
━━━━━ 搭載メソッド ━━━━━━━━━━━━━━━━━━━━━━━━━━━━
──── Class - Bitmap ────────────────────────────
rop_blt(x, y, src_bitmap, src_rect[, rop])
  x, y       : 描画先 X, Y 座標
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  rop        : ラスタオペレーションコード
               SRCCOPY, SRCPAINT, SRCAND, SRCINVERT, SRCERASE,
               NOTSRCCOPY, NOTSRCERASE
               (省略時 : SRCCOPY)

ラスタオペレーションを行って src_bitmap を描画します。

--------------------------------------------------------------------------------
blend_blt(x, y, src_bitmap, src_rect[, blend_type])
  x, y       : 描画先 X, Y 座標
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  blend_type : 合成形式
               BLEND_NORMAL, BLEND_ADD, BLEND_SUB, BLEND_MUL, BLEND_HILIGHT
               (省略時 : BLEND_NORMAL)

特殊な合成方法で src_bitmap を描画します。

--------------------------------------------------------------------------------
clip_blt(x, y, src_bitmap, src_rect, region)
  x, y       : 描画先 X, Y 座標
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  region     : クリッピングを行う領域 (Region)

Region による切り抜きを行って src_bitmap を描画します。

--------------------------------------------------------------------------------
stretch_blt_r(dest_rect, src_bitmap, src_rect[, opacity])
  dest_rect  : 描画先矩形
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  opacity    : 不透明度 (省略時 : 255)

高画質な拡大/縮小ブロック転送を行います。

--------------------------------------------------------------------------------
skew_blt(x, y, src_bitmap, src_rect, slope[, opacity])
  x, y       : 描画先 X, Y 座標
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  slope      : 傾き (-90 ～ 90)
  opacity    : 不透明度 (省略時 : 255)

src_bitmap を平行四辺形に変形して描画します。
 補間処理は行われません。

--------------------------------------------------------------------------------
skew_blt_r(x, y, src_bitmap, src_rect, slope[, opacity])
  x, y       : 描画先 X, Y 座標
  src_bitmap : 描画する Bitmap
  src_rect   : src_bitmap の転送範囲
  slope      : 傾き (-90 ～ 90)
  opacity    : 不透明度 (省略時 : 255)

src_bitmap を平行四辺形に変形して描画します。
 stretch_blt_r と同様の補間処理が行われます。

--------------------------------------------------------------------------------
draw_polygon(points, color[, width])
  points : 座標リスト (各要素 [x, y])
  color  : 描画色
  width  : 線幅 (省略時 : 1)

各座標を結んだ多角形を描画します。

--------------------------------------------------------------------------------
fill_polygon(points, start_color, end_color)
  points      : 座標リスト (各要素 [x, y])
  start_color : 中心色
  end_color   : 周辺色

各座標を結んだ多角形を塗り潰して描画します。

--------------------------------------------------------------------------------
draw_regular_polygon(x, y, r, n, color[, width])
  x, y  : 中心座標
  r     : 外接円の半径
  n     : 頂点数
  color : 描画色
  width : 線幅 (省略時 : 1)

中心 x, y、半径 r の円に内接する正 n 角形を描画します。

--------------------------------------------------------------------------------
fill_regular_polygon(x, y, r, n, start_color, end_color)
  x, y        : 中心座標
  r           : 外接円の半径
  n           : 頂点数
  start_color : 中心色
  end_color   : 周辺色

中心 x, y、半径 r の円に内接する正 n 角形を塗り潰して描画します。

--------------------------------------------------------------------------------
draw_spoke(x, y, r, n, color[, width])
  x, y  : 中心座標
  r     : 半径
  n     : 頂点数
  color : 描画色
  width : 線幅 (省略時 : 1)

中心 x, y、半径 r の円に対するスポークを描画します。

--------------------------------------------------------------------------------
draw_text_na(x, y, width, height, text[, align])
draw_text_na(rect, text[, align])
  x, y          : 描画先座標
  width, height : 描画サイズ
  rect          : 描画先矩形
  text          : 描画する文字列
  align         : 整列位置 (省略時 : 0)

アンチエイリアスを無効化して文字列を描画します。

--------------------------------------------------------------------------------
draw_text_fast(x, y, width, height, text[, align])
draw_text_fast(rect, text[, align])
  x, y          : 描画先座標
  width, height : 描画サイズ
  rect          : 描画先矩形
  text          : 描画する文字列
  align         : 整列位置 (省略時 : 0)

アンチエイリアス付きのテキストを高速描画します。

--------------------------------------------------------------------------------
text_size_na(text)
  text : 対象の文字列

draw_text_na で text を描画した際の矩形 (Rect) を取得します。

--------------------------------------------------------------------------------
text_size_fast(text)
  text : 対象の文字列

draw_text_fast で text を描画した際の矩形 (Rect) を取得します。

--------------------------------------------------------------------------------
save(filename)
  filename : 保存先

ビットマップファイルとして保存します。
 アルファチャネルは破棄されます。

━━━━━ 搭載クラス ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
Region

各種リージョンのスーパークラスです。

--------------------------------------------------------------------------------
RectRegion < Region

- コンストラクタ -
  (x, y, width, height)
  (rect)

- 公開メンバ -
  x, y, width, height : 矩形の位置・サイズ

矩形リージョンです。
 指定した矩形そのものが描画範囲となります。

--------------------------------------------------------------------------------
RoundRectRegion < RectRegion

- コンストラクタ -
  (x, y, width, height[, width_ellipse[, height_ellipse]])
    width_ellipse  : 角の丸みの幅
    height_ellipse : 角の丸みの高さ
  (rect[, width_ellipse[, height_ellipse]])

- 公開メンバ -
  RectRegion の公開メンバ
  width_ellipse, height_ellipse : 角の丸み

角丸矩形リージョンです。
 指定した矩形の角を丸めたものが描画範囲となります。

--------------------------------------------------------------------------------
EllipticRegion < RectRegion

- コンストラクタ -
  (x, y, width, height)
  (rect)

- 公開メンバ -
  RectRegion の公開メンバ

楕円形リージョンです。
 指定した矩形に内接する楕円が描画範囲となります。

--------------------------------------------------------------------------------
CircularRegion < EllipticRegion

- コンストラクタ -
  (x, y, radius)
    x, y   : 中心座標
    radius : 半径

- 公開メンバ -
  x, y, radius : 中心と半径

円形リージョンです。
 指定した中心・半径の円が描画範囲となります。

--------------------------------------------------------------------------------
PolygonRegion < Region

- コンストラクタ -
  (point1, point2, ...)
    point : [x, y] の形式の座標

- 公開メンバ -
  points    : [x, y] 形式の座標リスト
  fill_mode : 多角形充填形式
                ALTERNATE : 奇数番目の線分と偶数番目の線分の間の領域のみ
                WINDING   : すべて線分の間の領域
              初期値は WINDING

多角形リージョンです。
 座標リストを連結した多角形が描画範囲となります。

--------------------------------------------------------------------------------
StarRegion < PolygonRegion

- コンストラクタ -
  (x, y, width, height[, angle])
  (region[, angle])
    region : Rect, RectRegion, EllipticRegion, CircularRegion のいずれか
    angle  : 開始角度 (省略時 : 0)

- 公開メンバ -
  fill_mode           : PolygonRegion と同様
  x, y, width, height : 基準とする矩形
  angle               : 回転角度 (0 ～ 359)

星形リージョンです。
 基準とする矩形に内接する楕円に内接する星が描画範囲となります。
 回転角度は時計回りです。

--------------------------------------------------------------------------------
PieRegion < Region

- コンストラクタ -
  (region, start_angle, sweep_angle)
    region      : 基準とする CircularRegion
    start_angle : 開始角度
    sweep_angle : 描画角度 (-360 ～ 360)

- 公開メンバ -
  x, y, radius : 中心と半径
  start_angle  : 開始角度
  sweep_angle  : 描画角度 (-360 ～ 360)

扇形リージョンです。
 基準とする円の開始角度から描画角度分が描画範囲となります。
 開始角度は右方向を 0 とした時計回りで、負数も指定できます。

--------------------------------------------------------------------------------
CombinedRegion < Region

複合リージョンです。
 リージョン r1, r2 に対する以下の二項演算によって生成されます。

r1 & r2
  r1 * r2
    r1 と r2 の積 (r1, r2 の共通部分をとる)

r1 | r2
  r1 + r2
    r1 と r2 の和 (r1, r2 全体をとる)

r1 ^ r2
    r1 と r2 の排他的論理和 (片方のみに存在する領域をとる)

r1 - r2
    r1 と r2 の差 (r1 から r2 が重なる領域を除去)

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
=end

$imported = {} if $imported == nil
$imported["BitmapExtension"] = true

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ TRGSSX
#------------------------------------------------------------------------------
#   "TRGSSX.dll" の機能を扱うモジュールです。
#==============================================================================

module TRGSSX
  # 合成タイプ
  BLEND_NORMAL  = 0  # 通常
  BLEND_ADD     = 1  # 加算
  BLEND_SUB     = 2  # 減算
  BLEND_MUL     = 3  # 乗算
  BLEND_HILIGHT = 4  # 覆い焼き

# ラスタオペレーションコード
  SRCCOPY     = 0x00CC0020  # dest = src
  SRCPAINT    = 0x00EE0086  # dest = dest | src
  SRCAND      = 0x008800C6  # dest = dest & src
  SRCINVERT   = 0x00660046  # dest = dest ^ src
  SRCERASE    = 0x00440328  # dest = dest & ~src
  NOTSRCCOPY  = 0x00330008  # dest = ~src
  NOTSRCERASE = 0x001100A6  # dest = ~(dest | src) = ~dest & ~src

# 補間方法
  IM_INVALID             = -1
  IM_DEFAULT             = 0
  IM_LOWQUALITY          = 1
  IM_HIGHQUALITY         = 2
  IM_BILINEAR            = 3
  IM_BICUBIC             = 4
  IM_NEARESTNEIGHBOR     = 5
  IM_HIGHQUALITYBILINEAR = 6
  IM_HIGHQUALITYBICUBIC  = 7

# スムージングモード
  SM_INVALID     = -1
  SM_DEFAULT     = 0
  SM_HIGHSPEED   = 1
  SM_HIGHQUALITY = 2
  SM_NONE        = 3
  SM_ANTIALIAS   = 4

# 塗り潰しモード
  FM_FIT    = 0  # 形状通り
  FM_CIRCLE = 1  # 外接円

# フォントスタイル
  FS_BOLD      = 0x0001  # ボールド
  FS_ITALIC    = 0x0002  # イタリック
  FS_UNDERLINE = 0x0004  # 下線
  FS_STRIKEOUT = 0x0008  # 取り消し線
  FS_SHADOW    = 0x0010  # 影
  FS_FRAME     = 0x0020  # 縁取り

DLL_NAME = 'TRGSSX'
  begin
    NO_TRGSSX = false
    unless defined?(@@_trgssx_version)
      @@_trgssx_version =
        Win32API.new(DLL_NAME, 'DllGetVersion', 'v', 'l')
      @@_trgssx_get_interpolation_mode =
        Win32API.new(DLL_NAME, 'GetInterpolationMode', 'v', 'l')
      @@_trgssx_set_interpolation_mode =
        Win32API.new(DLL_NAME, 'SetInterpolationMode', 'l', 'v')
      @@_trgssx_get_smoothing_mode =
        Win32API.new(DLL_NAME, 'GetSmoothingMode', 'v', 'l')
      @@_trgssx_set_smoothing_mode =
        Win32API.new(DLL_NAME, 'SetSmoothingMode', 'l', 'v')
      @@_trgssx_rop_blt =
        Win32API.new(DLL_NAME, 'RopBlt', 'pllllplll', 'l')
      @@_trgssx_clip_blt =
        Win32API.new(DLL_NAME, 'ClipBlt', 'pllllplll', 'l')
      @@_trgssx_blend_blt =
        Win32API.new(DLL_NAME, 'BlendBlt', 'pllllplll', 'l')
      @@_trgssx_stretch_blt_r =
        Win32API.new(DLL_NAME, 'StretchBltR', 'pllllplllll', 'l')
      @@_trgssx_skew_blt_r =
        Win32API.new(DLL_NAME, 'SkewBltR', 'pllpllllll', 'l')
      @@_trgssx_draw_polygon =
        Win32API.new(DLL_NAME, 'DrawPolygon', 'pplll', 'l')
      @@_trgssx_fill_polygon =
        Win32API.new(DLL_NAME, 'FillPolygon', 'ppllll', 'l')
      @@_trgssx_draw_regular_polygon =
        Win32API.new(DLL_NAME, 'DrawRegularPolygon', 'pllllll', 'l')
      @@_trgssx_fill_regular_polygon =
        Win32API.new(DLL_NAME, 'FillRegularPolygon', 'plllllll', 'l')
      @@_trgssx_draw_spoke =
        Win32API.new(DLL_NAME, 'DrawSpoke', 'pllllll', 'l')
      @@_trgssx_draw_text_na =
        Win32API.new(DLL_NAME, 'DrawTextNAA', 'pllllpplpll', 'l')
      @@_trgssx_draw_text_fast =
        Win32API.new(DLL_NAME, 'DrawTextFastA', 'pllllpplpll', 'l')
      @@_trgssx_get_text_size_na =
        Win32API.new(DLL_NAME, 'GetTextSizeNAA', 'pppllp', 'l')
      @@_trgssx_get_text_size_fast =
        Win32API.new(DLL_NAME, 'GetTextSizeFastA', 'pppllp', 'l')
      @@_trgssx_save_to_bitmap =
        Win32API.new(DLL_NAME, 'SaveToBitmapA', 'pp', 'l')
    end
  rescue
    NO_TRGSSX = true
    print "\"#{DLL_NAME}.dll\" が見つからない、" +
      "もしくは古いバージョンを使用しています。"
    exit
  end

module_function
  #--------------------------------------------------------------------------
  # ○ バージョン取得
  #     (<例> 1.23 → 123)
  #--------------------------------------------------------------------------
  def version
    return -1 if NO_TRGSSX

return @@_trgssx_version.call
  end
  #--------------------------------------------------------------------------
  # ○ GetInterpolationMode
  #--------------------------------------------------------------------------
  def get_interpolation_mode
    return @@_trgssx_get_interpolation_mode.call
  end
  #--------------------------------------------------------------------------
  # ○ SetInterpolationMode
  #--------------------------------------------------------------------------
  def set_interpolation_mode(mode)
    @@_trgssx_set_interpolation_mode.call(mode)
  end
  #--------------------------------------------------------------------------
  # ○ GetSmoothingMode
  #--------------------------------------------------------------------------
  def get_smoothing_mode
    return @@_trgssx_get_smoothing_mode.call
  end
  #--------------------------------------------------------------------------
  # ○ SetSmoothingMode
  #--------------------------------------------------------------------------
  def set_smoothing_mode(mode)
    @@_trgssx_set_smoothing_mode.call(mode)
  end
  #--------------------------------------------------------------------------
  # ○ BitBltRop
  #--------------------------------------------------------------------------
  def rop_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, rop)
    return @@_trgssx_rop_blt.call(dest_info, dx, dy, dw, dh,
      src_info, sx, sy, rop)
  end
  #--------------------------------------------------------------------------
  # ○ ClipBlt
  #--------------------------------------------------------------------------
  def clip_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, hRgn)
    return @@_trgssx_clip_blt.call(dest_info, dx, dy, dw, dh,
      src_info, sx, sy, hRgn)
  end
  #--------------------------------------------------------------------------
  # ○ BlendBlt
  #--------------------------------------------------------------------------
  def blend_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, blend)
    return @@_trgssx_blend_blt.call(dest_info, dx, dy, dw, dh,
      src_info, sx, sy, blend)
  end
  #--------------------------------------------------------------------------
  # ○ StretchBltR
  #--------------------------------------------------------------------------
  def stretch_blt_r(dest_info, dx, dy, dw, dh, src_info, sx, sy, sw, sh, op)
    return @@_trgssx_stretch_blt_r.call(dest_info, dx, dy, dw, dh,
      src_info, sx, sy, sw, sh, op)
  end
  #--------------------------------------------------------------------------
  # ○ SkewBltR
  #--------------------------------------------------------------------------
  def skew_blt_r(dest_info, dx, dy, src_info, sx, sy, sw, sh, slope, op)
    return @@_trgssx_skew_blt_r.call(dest_info, dx, dy,
      src_info, sx, sy, sw, sh, slope, op)
  end
  #--------------------------------------------------------------------------
  # ○ DrawPolygon
  #--------------------------------------------------------------------------
  def draw_polygon(dest_info, pts, n, color, width)
    return @@_trgssx_draw_polygon.call(dest_info, pts,
      n, color, width)
  end
  #--------------------------------------------------------------------------
  # ○ FillPolygon
  #--------------------------------------------------------------------------
  def fill_polygon(dest_info, pts, n, st_color, ed_color, fm)
    return @@_trgssx_fill_polygon.call(dest_info, pts,
      n, st_color, ed_color, fm)
  end
  #--------------------------------------------------------------------------
  # ○ DrawRegularPolygon
  #--------------------------------------------------------------------------
  def draw_regular_polygon(dest_info, dx, dy, r, n, color, width)
    return @@_trgssx_draw_regular_polygon.call(dest_info, dx, dy,
      r, n, color, width)
  end
  #--------------------------------------------------------------------------
  # ○ FillRegularPolygon
  #--------------------------------------------------------------------------
  def fill_regular_polygon(dest_info, dx, dy, r, n, st_color, ed_color, fm)
    return @@_trgssx_fill_regular_polygon.call(dest_info, dx, dy,
      r, n, st_color, ed_color, fm)
  end
  #--------------------------------------------------------------------------
  # ○ DrawSpoke
  #--------------------------------------------------------------------------
  def draw_spoke(dest_info, dx, dy, r, n, color, width)
    return @@_trgssx_draw_spoke.call(dest_info, dx, dy,
      r, n, color, width)
  end
  #--------------------------------------------------------------------------
  # ○ DrawTextNAA
  #--------------------------------------------------------------------------
  def draw_text_na(dest_info, dx, dy, dw, dh, text,
      fontname, fontsize, color, align, flags)
    return @@_trgssx_draw_text_na.call(dest_info, dx, dy, dw, dh, text.dup,
      fontname, fontsize, color, align, flags)
  end
  #--------------------------------------------------------------------------
  # ○ DrawTextFastA
  #--------------------------------------------------------------------------
  def draw_text_fast(dest_info, dx, dy, dw, dh, text,
      fontname, fontsize, color, align, flags)
    return @@_trgssx_draw_text_fast.call(dest_info, dx, dy, dw, dh, text.dup,
      fontname, fontsize, color, align, flags)
  end
  #--------------------------------------------------------------------------
  # ○ GetTextSizeNAA
  #--------------------------------------------------------------------------
  def get_text_size_na(dest_info, text, fontname, fontsize, flags, size)
    return @@_trgssx_get_text_size_na.call(dest_info, text,
      fontname, fontsize, flags, size)
  end
  #--------------------------------------------------------------------------
  # ○ GetTextSizeFastA
  #--------------------------------------------------------------------------
  def get_text_size_fast(dest_info, text, fontname, fontsize, flags, size)
    return @@_trgssx_get_text_size_fast.call(dest_info, text,
      fontname, fontsize, flags, size)
  end
  #--------------------------------------------------------------------------
  # ○ SaveToBitmapA
  #--------------------------------------------------------------------------
  def save_to_bitmap(filename, info)
    return @@_trgssx_save_to_bitmap.call(filename, info)
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Bitmap
#==============================================================================

class Bitmap
  #--------------------------------------------------------------------------
  # ○ 補間モード取得
  #--------------------------------------------------------------------------
  def self.interpolation_mode
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.get_interpolation_mode
  end
  #--------------------------------------------------------------------------
  # ○ 補間モード設定
  #--------------------------------------------------------------------------
  def self.interpolation_mode=(value)
    return if TRGSSX::NO_TRGSSX

TRGSSX.set_interpolation_mode(value)
  end
  #--------------------------------------------------------------------------
  # ○ スムージングモード取得
  #--------------------------------------------------------------------------
  def self.smoothing_mode
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.get_smoothing_mode
  end
  #--------------------------------------------------------------------------
  # ○ スムージングモード設定
  #--------------------------------------------------------------------------
  def self.smoothing_mode=(value)
    return if TRGSSX::NO_TRGSSX

TRGSSX.set_smoothing_mode(value)
  end
  #--------------------------------------------------------------------------
  # ○ ビットマップ情報 (object_id, width, height) の pack を取得
  #--------------------------------------------------------------------------
  def get_base_info
    return [object_id, width, height].pack('l!3')
  end
  #--------------------------------------------------------------------------
  # ○ ラスタオペレーションを使用して描画
  #     rop : ラスタオペレーションコード
  #--------------------------------------------------------------------------
  def rop_blt(x, y, src_bitmap, src_rect, rop = TRGSSX::SRCCOPY)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.rop_blt(get_base_info,
      x, y, src_rect.width, src_rect.height,
      src_bitmap.get_base_info, src_rect.x, src_rect.y, rop)
  end
  #--------------------------------------------------------------------------
  # ○ クリッピング描画
  #     region : リージョン
  #--------------------------------------------------------------------------
  def clip_blt(x, y, src_bitmap, src_rect, region)
    return -1 if TRGSSX::NO_TRGSSX

hRgn = region.create_region_handle
    return if hRgn == nil || hRgn == 0

result = TRGSSX.clip_blt(get_base_info,
      x, y, src_rect.width, src_rect.height,
      src_bitmap.get_base_info, src_rect.x, src_rect.y, hRgn)
    # 後始末
    Region.delete_region_handles

return result
  end
  #--------------------------------------------------------------------------
  # ○ ブレンド描画
  #     blend : ブレンドタイプ
  #--------------------------------------------------------------------------
  def blend_blt(x, y, src_bitmap, src_rect, blend = TRGSSX::BLEND_NORMAL)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.blend_blt(get_base_info,
      x, y, src_rect.width, src_rect.height,
      src_bitmap.get_base_info, src_rect.x, src_rect.y, blend)
  end
  #--------------------------------------------------------------------------
  # ○ 高画質ブロック転送
  #--------------------------------------------------------------------------
  def stretch_blt_r(dest_rect, src_bitmap, src_rect, opacity = 255)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.stretch_blt_r(get_base_info,
      dest_rect.x, dest_rect.y, dest_rect.width, dest_rect.height,
      src_bitmap.get_base_info,
      src_rect.x, src_rect.y, src_rect.width, src_rect.height,
      opacity)
  end
  #--------------------------------------------------------------------------
  # ○ 平行四辺形転送
  #--------------------------------------------------------------------------
  def skew_blt(x, y, src_bitmap, src_rect, slope, opacity = 255)
    slope = [[slope, -89].max, 89].min
    sh    = src_rect.height
    off  = sh / Math.tan(Math::PI * (90 - slope.abs) / 180.0)
    if slope >= 0
      dx   = x + off.to_i
      diff = -off / sh
    else
      dx   = x
      diff = off / sh
    end
    rect = Rect.new(src_rect.x, src_rect.y, src_rect.width, 1)

sh.times { |i|
      blt(dx + (diff * i).round, y + i, src_bitmap, rect, opacity)
      rect.y += 1
    }
  end
  #--------------------------------------------------------------------------
  # ○ 高画質平行四辺形転送
  #--------------------------------------------------------------------------
  def skew_blt_r(x, y, src_bitmap, src_rect, slope, opacity = 255)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.skew_blt_r(get_base_info,
      x, y, src_bitmap.get_base_info,
      src_rect.x, src_rect.y, src_rect.width, src_rect.height,
      slope, opacity)
  end
  #--------------------------------------------------------------------------
  # ○ 多角形描画
  #--------------------------------------------------------------------------
  def draw_polygon(points, color, width = 1)
    return -1 if TRGSSX::NO_TRGSSX

_points = create_point_pack(points)

return TRGSSX.draw_polygon(get_base_info,
      _points, points.size, color.argb_code, width)
  end
  #--------------------------------------------------------------------------
  # ○ 多角形塗り潰し
  #--------------------------------------------------------------------------
  def fill_polygon(points, st_color, ed_color, fill_mode = TRGSSX::FM_FIT)
    return -1 if TRGSSX::NO_TRGSSX

_points = create_point_pack(points)

return TRGSSX.fill_polygon(get_base_info,
      _points, points.size, st_color.argb_code, ed_color.argb_code, fill_mode)
  end
  #--------------------------------------------------------------------------
  # ○ 座標リストの pack を作成
  #--------------------------------------------------------------------------
  def create_point_pack(points)
    result = ''
    points.each { |pt| result += pt.pack('l!2') }
    return result
  end
  private :create_point_pack
  #--------------------------------------------------------------------------
  # ○ 正多角形描画
  #--------------------------------------------------------------------------
  def draw_regular_polygon(x, y, r, n, color, width = 1)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.draw_regular_polygon(get_base_info,
      x, y, r, n, color.argb_code, width)
  end
  #--------------------------------------------------------------------------
  # ○ 正多角形塗り潰し
  #--------------------------------------------------------------------------
  def fill_regular_polygon(x, y, r, n, st_color, ed_color,
      fill_mode = TRGSSX::FM_FIT)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.fill_regular_polygon(get_base_info,
      x, y, r, n, st_color.argb_code, ed_color.argb_code, fill_mode)
  end
  #--------------------------------------------------------------------------
  # ○ スポーク描画
  #--------------------------------------------------------------------------
  def draw_spoke(x, y, r, n, color, width = 1)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.draw_spoke(get_base_info,
      x, y, r, n, color.argb_code, width)
  end
  #--------------------------------------------------------------------------
  # ○ アンチエイリアス無効テキスト描画
  #--------------------------------------------------------------------------
  def draw_text_na(*args)
    return -1 if TRGSSX::NO_TRGSSX

x, y, width, height, text, align = get_text_args(args)
    fname = get_available_font_name
    flags = get_draw_text_flags

return TRGSSX.draw_text_na(get_base_info, x, y, width, height, text,
      fname, font.size, get_text_color, align, flags)
  end
  #--------------------------------------------------------------------------
  # ○ 高速テキスト描画
  #--------------------------------------------------------------------------
  def draw_text_fast(*args)
    return -1 if TRGSSX::NO_TRGSSX

x, y, width, height, text, align = get_text_args(args)
    fname = get_available_font_name
    flags = get_draw_text_flags

return TRGSSX.draw_text_fast(get_base_info, x, y, width, height, text,
      fname, font.size, get_text_color, align, flags)
  end
  #--------------------------------------------------------------------------
  # ○ 描画サイズ取得 (na)
  #--------------------------------------------------------------------------
  def text_size_na(text)
    return -1 if TRGSSX::NO_TRGSSX

fname = get_available_font_name
    flags = get_draw_text_flags
    size  = [0, 0].pack('l!2')

result = TRGSSX.get_text_size_na(get_base_info, text.to_s,
      fname, font.size, flags, size)

size = size.unpack('l!2')
    rect = Rect.new(0, 0, size[0], size[1])
    return rect
  end
  #--------------------------------------------------------------------------
  # ○ 描画サイズ取得 (fast)
  #--------------------------------------------------------------------------
  def text_size_fast(text)
    return -1 if TRGSSX::NO_TRGSSX

fname = get_available_font_name
    flags = get_draw_text_flags
    size  = [0, 0].pack('l!2')

result = TRGSSX.get_text_size_fast(get_base_info, text.to_s,
      fname, font.size, flags, size)

size = size.unpack('l!2')
    rect = Rect.new(0, 0, size[0], size[1])
    return rect
  end
  #--------------------------------------------------------------------------
  # ○ 描画引数を取得
  #--------------------------------------------------------------------------
  def get_text_args(args)
    if args[0].is_a?(Rect)
      # 矩形
      if args.size.between?(2, 4)
        x, y = args[0].x, args[0].y
        width, height = args[0].width, args[0].height
        text  = args[1].to_s
        align = (args[2].equal?(nil) ? 0 : args[2])
      else
        raise(ArgumentError,
          "wrong number of arguments(#{args.size} of #{args.size < 2 ? 2 : 4})")
        return
      end
    else
      # 数値
      if args.size.between?(5, 7)
        x, y, width, height = args
        text  = args[4].to_s
        align = (args[5].equal?(nil) ? 0 : args[5])
      else
        raise(ArgumentError,
          "wrong number of arguments(#{args.size} of #{args.size < 5 ? 5 : 7})")
        return
      end
    end
    return [x, y, width, height, text, align]
  end
  private :get_text_args
  #--------------------------------------------------------------------------
  # ○ 有効なフォント名を取得
  #--------------------------------------------------------------------------
  def get_available_font_name
    if font.name.is_a?(Array)
      font.name.each { |f|
        return f if Font.exist?(f)
      }
      return nil
    else
      return font.name
    end
  end
  private :get_available_font_name
  #--------------------------------------------------------------------------
  # ○ 文字色 (main, gradation, shadow, needGrad) の pack を取得
  #--------------------------------------------------------------------------
  def get_text_color
    need_grad = !font.gradation_color.equal?(nil)
    result = []
    result << font.color.argb_code
    result << (need_grad ? font.gradation_color.argb_code : 0)
    result << 0xFF000000
    result << (need_grad ? 1 : 0)
    return result.pack('l!4')
  end
  private :get_text_color
  #--------------------------------------------------------------------------
  # ○ テキスト描画フラグを取得
  #--------------------------------------------------------------------------
  def get_draw_text_flags
    flags  = 0
    flags |= TRGSSX::FS_BOLD   if font.bold
    flags |= TRGSSX::FS_ITALIC if font.italic
    flags |= TRGSSX::FS_SHADOW if font.shadow && !font.frame
    flags |= TRGSSX::FS_FRAME  if font.frame
    return flags
  end
  private :get_draw_text_flags
  #--------------------------------------------------------------------------
  # ○ 保存
  #     filename : 保存先
  #--------------------------------------------------------------------------
  def save(filename)
    return -1 if TRGSSX::NO_TRGSSX

return TRGSSX.save_to_bitmap(filename, get_base_info)
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Color
#==============================================================================

class Color
  #--------------------------------------------------------------------------
  # ○ ARGB コード取得
  #--------------------------------------------------------------------------
  def argb_code
    n  = 0
    n |= alpha.to_i << 24
    n |= red.to_i   << 16
    n |= green.to_i <<  8
    n |= blue.to_i
    return n
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Font
#==============================================================================

class Font
  unless const_defined?(:XP_MODE)
    # XP 専用処理
    unless method_defined?(:shadow)
      XP_MODE = true
      @@default_shadow = false
      attr_writer :shadow
      def self.default_shadow
        return @@default_shadow
      end
      def self.default_shadow=(s)
        @@default_shadow = s
      end
      def shadow
        return (@shadow == nil ? @@default_shadow : @shadow)
      end
    else
      XP_MODE = false
    end
  end
  #--------------------------------------------------------------------------
  # ○ クラス変数
  #--------------------------------------------------------------------------
  @@default_frame           = KGC::BitmapExtension::DEFAULT_FRAME
  @@default_gradation_color = KGC::BitmapExtension::DEFAULT_GRAD_COLOR
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :gradation_color
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  unless private_method_defined?(:initialize_KGC_BitmapExtension)
    alias initialize_KGC_BitmapExtension initialize
  end
  def initialize(name = Font.default_name, size = Font.default_size)
    initialize_KGC_BitmapExtension(name, size)

@frame = nil
    @gradation_color = @@default_gradation_color
    if XP_MODE
      @shadow = nil
    end
  end
  #--------------------------------------------------------------------------
  # ○ デフォルト縁取りフラグ設定
  #--------------------------------------------------------------------------
  def self.default_frame
    return @@default_frame
  end
  #--------------------------------------------------------------------------
  # ○ デフォルト縁取りフラグ設定
  #--------------------------------------------------------------------------
  def self.default_frame=(value)
    @@default_frame = value
  end
  #--------------------------------------------------------------------------
  # ○ デフォルトグラデーション色設定
  #--------------------------------------------------------------------------
  def self.default_gradation_color
    return @@default_gradation_color
  end
  #--------------------------------------------------------------------------
  # ○ デフォルトグラデーション色設定
  #--------------------------------------------------------------------------
  def self.default_gradation_color=(value)
    @@default_gradation_color = value
  end
  #--------------------------------------------------------------------------
  # ● 影文字フラグ設定
  #--------------------------------------------------------------------------
  unless method_defined?(:shadow_eq) || XP_MODE
    alias shadow_eq shadow=
  end
  def shadow=(value)
    XP_MODE ? @shadow = value : shadow_eq(value)
  end
  #--------------------------------------------------------------------------
  # ○ 縁取りフラグ取得
  #--------------------------------------------------------------------------
  def frame
    return (@frame == nil ? @@default_frame : @frame)
  end
  #--------------------------------------------------------------------------
  # ○ 縁取りフラグ設定
  #--------------------------------------------------------------------------
  def frame=(value)
    @frame = value
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ Region
#------------------------------------------------------------------------------
#   クリッピング用のリージョンを扱うクラスです。
#==============================================================================

class Region
  #--------------------------------------------------------------------------
  # ○ クラス変数
  #--------------------------------------------------------------------------
  @@handles = []  # 生成したリージョンハンドル
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_delete_object = Win32API.new('gdi32', 'DeleteObject', 'l', 'l')
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    # 継承先で再定義
    return 0
  end
  #--------------------------------------------------------------------------
  # ○ AND (&)
  #--------------------------------------------------------------------------
  def &(obj)
    return nil unless obj.is_a?(Region)
    return CombinedRegion.new(CombinedRegion::RGN_AND, self, obj)
  end
  #--------------------------------------------------------------------------
  # ○ AND (*)
  #--------------------------------------------------------------------------
  def *(obj)
    return self.&(obj)
  end
  #--------------------------------------------------------------------------
  # ○ OR (|)
  #--------------------------------------------------------------------------
  def |(obj)
    return nil unless obj.is_a?(Region)
    return CombinedRegion.new(CombinedRegion::RGN_OR, self, obj)
  end
  #--------------------------------------------------------------------------
  # ○ OR (+)
  #--------------------------------------------------------------------------
  def +(obj)
    return self.|(obj)
  end
  #--------------------------------------------------------------------------
  # ○ XOR (^)
  #--------------------------------------------------------------------------
  def ^(obj)
    return nil unless obj.is_a?(Region)
    return CombinedRegion.new(CombinedRegion::RGN_XOR, self, obj)
  end
  #--------------------------------------------------------------------------
  # ○ DIFF (-)
  #--------------------------------------------------------------------------
  def -(obj)
    return nil unless obj.is_a?(Region)
    return CombinedRegion.new(CombinedRegion::RGN_DIFF, self, obj)
  end

#--------------------------------------------------------------------------
  # ○ リージョンハンドル破棄
  #--------------------------------------------------------------------------
  def self.delete_region_handles
    @@handles.uniq!
    @@handles.each { |h| @@_api_delete_object.call(h) }
    @@handles.clear
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ RectRegion
#------------------------------------------------------------------------------
#   矩形リージョンを扱うクラスです。
#==============================================================================

class RectRegion < Region
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :x               # X 座標
  attr_accessor :y               # Y 座標
  attr_accessor :width           # 幅
  attr_accessor :height          # 高さ
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_create_rect_rgn = Win32API.new('gdi32',
    'CreateRectRgn', 'llll', 'l')
  @@_api_create_rect_rgn_indirect = Win32API.new('gdi32',
    'CreateRectRgnIndirect', 'l', 'l')
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(*args)
    if args[0].is_a?(Rect)
      rect = args[0]
      @x = rect.x
      @y = rect.y
      @width  = rect.width
      @height = rect.height
    else
      @x, @y, @width, @height = args
    end
  end
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    hRgn = @@_api_create_rect_rgn.call(@x, @y, @x + @width, @y + @height)
    @@handles << hRgn
    return hRgn
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ RoundRectRegion
#------------------------------------------------------------------------------
#   角丸矩形リージョンを扱うクラスです。
#==============================================================================

class RoundRectRegion < RectRegion
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :width_ellipse   # 丸みの幅
  attr_accessor :height_ellipse  # 丸みの高さ
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_create_round_rect_rgn = Win32API.new('gdi32',
    'CreateRoundRectRgn', 'llllll', 'l')
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(*args)
    super
    if args[0].is_a?(Rect)
      @width_ellipse  = args[1]
      @height_ellipse = args[2]
    else
      @width_ellipse  = args[4]
      @height_ellipse = args[5]
    end
  end
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    hRgn = @@_api_create_round_rect_rgn.call(@x, @y, @x + @width, @y + @height,
      width_ellipse, height_ellipse)
    @@handles << hRgn
    return hRgn
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ EllipticRegion
#------------------------------------------------------------------------------
#   楕円形リージョンを扱うクラスです。
#==============================================================================

class EllipticRegion < RectRegion
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_create_elliptic_rgn = Win32API.new('gdi32',
    'CreateEllipticRgn', 'llll', 'l')
  @@_api_create_elliptic_rgn_indirect = Win32API.new('gdi32',
    'CreateEllipticRgnIndirect', 'l', 'l')
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    hRgn = @@_api_create_elliptic_rgn.call(@x, @y, @x + @width, @y + @height)
    @@handles << hRgn
    return hRgn
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ CircularRegion
#------------------------------------------------------------------------------
#   円形リージョンを扱うクラスです。
#==============================================================================

class CircularRegion < EllipticRegion
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_reader   :radius  # 半径
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(x, y, r)
    @cx = x
    @cy = y
    self.radius = r
    super(@cx - r, @cy - r, r * 2, r * 2)
  end
  #--------------------------------------------------------------------------
  # ○ 中心 X 座標参照
  #--------------------------------------------------------------------------
  def x
    return @cx
  end
  #--------------------------------------------------------------------------
  # ○ 中心 Y 座標参照
  #--------------------------------------------------------------------------
  def y
    return @cy
  end
  #--------------------------------------------------------------------------
  # ○ 中心 X 座標変更
  #--------------------------------------------------------------------------
  def x=(value)
    @cx = value
    @x = @cx - @radius
  end
  #--------------------------------------------------------------------------
  # ○ 中心 Y 座標変更
  #--------------------------------------------------------------------------
  def y=(value)
    @cy = value
    @y = @cy - @radius
  end
  #--------------------------------------------------------------------------
  # ○ 半径変更
  #--------------------------------------------------------------------------
  def radius=(value)
    @radius = value
    @x = @cx - @radius
    @y = @cy - @radius
    @width = @height = @radius * 2
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ PolygonRegion
#------------------------------------------------------------------------------
#   多角形リージョンを扱うクラスです。
#==============================================================================

class PolygonRegion < Region
  #--------------------------------------------------------------------------
  # ○ 定数
  #--------------------------------------------------------------------------
  # 多角形充填形式
  ALTERNATE = 1  # 交互モード
  WINDING   = 2  # 螺旋モード
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :points     # 頂点座標 [x, y] の配列
  attr_accessor :fill_mode  # 多角形充填形式
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_create_polygon_rgn = Win32API.new('gdi32',
    'CreatePolygonRgn', 'pll', 'l')
  @@_api_create_polypolygon_rgn = Win32API.new('gdi32',
    'CreatePolyPolygonRgn', 'llll', 'l')
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(*points)
    @points = points  # [x, y] の配列
    @fill_mode = WINDING
  end
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    pts = ""
    points.each { |pt| pts += pt.pack("ll") }
    hRgn = @@_api_create_polygon_rgn.call(pts, points.size, fill_mode)
    @@handles << hRgn
    return hRgn
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ StarRegion
#------------------------------------------------------------------------------
#   星型リージョンを扱うクラスです。
#==============================================================================

class StarRegion < PolygonRegion
  #--------------------------------------------------------------------------
  # ○ 定数
  #--------------------------------------------------------------------------
  POINT_NUM = 5               # 点数
  PI_4      = 4.0 * Math::PI  # 4 * Pi
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_reader   :x               # X 座標
  attr_reader   :y               # Y 座標
  attr_reader   :width           # 幅
  attr_reader   :height          # 高さ
  attr_reader   :angle           # 回転角度 (0 ～ 359)
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(*args)
    super()
    shape = args[0]
    ang = args[1]
    case shape
    when CircularRegion
      @x = shape.x - shape.radius
      @y = shape.y - shape.radius
      @width = @height = shape.radius * 2
    when Rect, RectRegion, EllipticRegion
      @x = shape.x
      @y = shape.y
      @width  = shape.width
      @height = shape.height
    when Integer
      @x, @y, @width, @height = args
      ang = args[4]
    else
      @x = @y = @width = @height = 0
    end
    @angle = (ang == nil ? 0 : ang % 360)
    @__init = true
    @points = create_star_points
  end
  #--------------------------------------------------------------------------
  # ○ 星型座標を生成
  #--------------------------------------------------------------------------
  def create_star_points
    return unless @__init

dw = (width + 1) / 2
    dh = (height + 1) / 2
    dx = x + dw
    dy = y + dh
    base_angle = angle * Math::PI / 180.0
    pts = []
    POINT_NUM.times { |i|
      ang = base_angle + PI_4 * i / POINT_NUM
      pts << [dx + (Math.sin(ang) * dw).to_i,
        dy - (Math.cos(ang) * dh).to_i]
    }
    return pts
  end
  #--------------------------------------------------------------------------
  # ○ X 座標変更
  #--------------------------------------------------------------------------
  def x=(value)
    @x = value
    @points = create_star_points
  end
  #--------------------------------------------------------------------------
  # ○ Y 座標変更
  #--------------------------------------------------------------------------
  def y=(value)
    @y = value
    @points = create_star_points
  end
  #--------------------------------------------------------------------------
  # ○ 幅変更
  #--------------------------------------------------------------------------
  def width=(value)
    @width = value
    @points = create_star_points
  end
  #--------------------------------------------------------------------------
  # ○ 高さ座標変更
  #--------------------------------------------------------------------------
  def height=(value)
    @height = value
    @points = create_star_points
  end
  #--------------------------------------------------------------------------
  # ○ 開始角度変更
  #--------------------------------------------------------------------------
  def angle=(value)
    @angle = value % 360
    @points = create_star_points
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ PieRegion
#------------------------------------------------------------------------------
#   扇形リージョンを扱うクラスです。
#==============================================================================

class PieRegion < Region
  #--------------------------------------------------------------------------
  # ○ 定数
  #--------------------------------------------------------------------------
  HALF_PI = Math::PI / 2.0  # PI / 2
  #--------------------------------------------------------------------------
  # ○ 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_reader   :begin_angle     # 開始角度 [degree]
  attr_reader   :sweep_angle     # 描画角度 (0 ～ 359)
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(*args)
    super()
    shape = args[0]
    ang1, ang2 = args[1..2]
    case shape
    when CircularRegion
      @cx = shape.x
      @cy = shape.y
      self.radius = shape.radius
    else
      @cx = @cy = @x = @y = @radius = 0
    end
    self.start_angle = (ang1 == nil ? 0 : ang1)
    self.sweep_angle = (ang2 == nil ? 0 : ang2)
    @__init = true
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ 扇形リージョンを生成
  #--------------------------------------------------------------------------
  def create_pie_region
    return unless @__init

# 座標・範囲調整
    st_deg = @start_angle += (@sweep_angle < 0 ? @sweep_angle : 0)
    st_deg %= 360
    ed_deg = st_deg + @sweep_angle.abs
    diff = st_deg % 90
    r = @radius * 3 / 2
    s = st_deg / 90
    e = ed_deg / 90

# リージョン作成
    @region = nil
    (s..e).each { |i|
      break if i * 90 >= ed_deg
      if diff > 0
        st_rad = (i * 90 + diff) * Math::PI / 180.0
        diff = 0
      else
        st_rad = i * HALF_PI
      end
      if (i + 1) * 90 > ed_deg
        ed_rad = ed_deg * Math::PI / 180.0
      else
        ed_rad = (i + 1) * HALF_PI
      end
      pt1 = [@cx, @cy]
      pt2 = [
        @cx + Integer(Math.cos(st_rad) * r),
        @cy + Integer(Math.sin(st_rad) * r)
      ]
      pt3 = [
        @cx + Integer(Math.cos(ed_rad) * r),
        @cy + Integer(Math.sin(ed_rad) * r)
      ]
      rgn = PolygonRegion.new(pt1, pt2, pt3)
      if @region == nil
        @region = rgn
      else
        @region |= rgn
      end
    }
    @region &= CircularRegion.new(@cx, @cy, @radius)

return @region
  end
  #--------------------------------------------------------------------------
  # ○ 中心 X 座標参照
  #--------------------------------------------------------------------------
  def x
    return @cx
  end
  #--------------------------------------------------------------------------
  # ○ 中心 Y 座標参照
  #--------------------------------------------------------------------------
  def y
    return @cy
  end
  #--------------------------------------------------------------------------
  # ○ 中心 X 座標変更
  #--------------------------------------------------------------------------
  def x=(value)
    @cx = value
    @x = @cx - @radius
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ 中心 Y 座標変更
  #--------------------------------------------------------------------------
  def y=(value)
    @cy = value
    @y = @cy - @radius
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ 半径変更
  #--------------------------------------------------------------------------
  def radius=(value)
    @radius = value
    @x = @cx - @radius
    @y = @cy - @radius
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ 開始角度変更
  #--------------------------------------------------------------------------
  def start_angle=(value)
    @start_angle = value
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ 描画角度変更
  #--------------------------------------------------------------------------
  def sweep_angle=(value)
    @sweep_angle = [[value, -360].max, 360].min
    create_pie_region
  end
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    return @region.create_region_handle
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ CombinedRegion
#------------------------------------------------------------------------------
#   混合リージョンを扱うクラスです。
#==============================================================================

class CombinedRegion < Region
  #--------------------------------------------------------------------------
  # ○ 定数
  #--------------------------------------------------------------------------
  # 合成モード
  RGN_AND  = 1
  RGN_OR   = 2
  RGN_XOR  = 3
  RGN_DIFF = 4
  RGN_COPY = 5
  #--------------------------------------------------------------------------
  # ○ Win32API
  #--------------------------------------------------------------------------
  @@_api_combine_rgn = Win32API.new('gdi32', 'CombineRgn', 'llll', 'l')
  #--------------------------------------------------------------------------
  # ○ オブジェクト初期化
  #--------------------------------------------------------------------------
  def initialize(mode, region1, region2)
    @exp = CombinedRegionExp.new(mode, region1.clone, region2.clone)
  end
  #--------------------------------------------------------------------------
  # ○ リージョンハンドル生成
  #--------------------------------------------------------------------------
  def create_region_handle
    return combine_region(@exp.region1, @exp.region2, @exp.mode)
  end
  #--------------------------------------------------------------------------
  # ○ リージョン合成
  #     dest : 合成先
  #     src  : 合成元
  #     mode : 合成モード
  #--------------------------------------------------------------------------
  def combine_region(dest, src, mode)
    hdest = dest.create_region_handle
    hsrc  = src.create_region_handle
    @@_api_combine_rgn.call(hdest, hdest, hsrc, mode)
    return hdest
  end
  protected :combine_region
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# □ Struct
#==============================================================================

# □ CombinedRegionExp 構造体
CombinedRegionExp = Struct.new("CombinedRegionExp", :mode, :region1, :region2)

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

class Bitmap
  unless method_defined?(:_draw_text)
    alias _draw_text draw_text
    alias _text_size text_size

case KGC::BitmapExtension::DEFAULT_MODE
    when 1  # na
      alias draw_text draw_text_na
      alias text_size text_size_na
    when 2  # fast
      alias draw_text draw_text_fast
      alias text_size text_size_fast
    end
  end
end

Font.default_name = KGC::BitmapExtension::DEFAULT_FONT_NAME[
  KGC::BitmapExtension::DEFAULT_MODE]

↑目次

使用法

Usage

XP の場合、まずは最新版の「RGSS***J.dll」を「Game.exe」と同じフォルダに入れます。
入れなくても RTP が最新なら動きますが、相手側の RTP が古いと駄目なので、入れておくことをおすすめします。

次にここから『RGSS Extension Library』をダウンロードし、「TRGSSX.dll」を「Game.exe」と同じフォルダに入れます。
あとはスクリプトを導入すればOKです。

起動時にエラーメッセージが出る場合は、「TRGSSX.dll」のバージョンが古い可能性があります。

カスタマイズ項目
搭載メソッド
搭載クラス

カスタマイズ項目

# ◆ draw_text の動作モード
DEFAULT_MODE = 2

1にすると、draw_textがdraw_text_naに置き換わります。
（すべてのテキスト描画がノンアンチエイリアスになる）
2の場合は、draw_textがdraw_text_fastとなります。
通常通りにしたい場合は0にしてください。

元のdraw_textは_draw_textで呼び出すことができます。

# ◆ 各モードのデフォルトフォント名
DEFAULT_FONT_NAME = [
  Font.default_name,        # 0
  Font.default_name[1..2],  # 1
  Font.default_name,        # 2
]

DEFAULT_MODEで指定した各モードで使用するデフォルトのフォント名を指定します。

# ◆ デフォルトで縁取りにする
DEFAULT_FRAME = true

trueにすると、テキストをデフォルトで縁取り描画するようになります。
（draw_textは縁取りできません）

搭載メソッド

Bitmapクラスに以下のメソッドが追加されます。

interpolation_mode
smoothing_mode
rop_blt
blend_blt
clip_blt
stretch_blt_r
skew_blt
skew_blt_r
draw_polygon
fill_polygon
draw_regular_polygon
fill_regular_polygon
draw_spoke
draw_text_na
draw_text_fast
text_size_na
text_size_fast
_draw_text
_text_size
save

Bitmap.interpolation_mode Bitmap.interpolation_mode = mode

画像転送時の補間モードを取得または設定します。
効果があるのはstretch_blt_r, skew_blt_rです。

下表の補間モードを設定できます。
初期値はTRGSSX::IM_DEFAULTです。

定数	補間
TRGSSX::IM_DEFAULT	デフォルト。 IM_BILINEARと同程度の品質。
TRGSSX::IM_LOWQUALITY	低品質補間。 IM_BILINEARと同程度の品質。
TRGSSX::IM_HIGHQUALITY	高品質補間。低速。 IM_BICUBICと同程度の品質。
TRGSSX::IM_BILINEAR	双一次補間。
TRGSSX::IM_BICUBIC	双三次補間。低速。
TRGSSX::IM_NEARESTNEIGHBOR	最近傍補間。やや高速。 stretch_bltと同程度の品質。ほぼ役立たず。
TRGSSX::IM_HIGHQUALITYBILINEAR	高品質双一次補間。低速。
TRGSSX::IM_HIGHQUALITYBICUBIC	高品質双三次補間。やたら低速。

Bitmap.smoothing_mode Bitmap.smoothing_mode = mode

画像描画時の補間モードを取得または設定します。
効果があるのは
draw_polygon, fill_polygon,
draw_regular_polygon, fill_regular_polygon,
draw_spoke
です。

下表の補間モードを設定できます。
初期値はTRGSSX::SM_DEFAULTです。

定数	補間
TRGSSX::SM_DEFAULT	デフォルト。補間は行わない。
TRGSSX::SM_HIGHQUALITY	高品質補間。低速。
TRGSSX::SM_NONE	補間なし。 SM_DEFAULTと同等。
TRGSSX::SM_ANTIALIAS	アンチエイリアス。 SM_HIGHQUALITYと同等。

rop_blt(x, y, src_bitmap, src_rect[, rop])

ラスタオペレーションを行ってsrc_bitmapを描画します。

x, y

描画先 X, Y 座標。

src_bitmap

描画する Bitmap。

src_rect

src_bitmap の転送範囲。

rop

ラスタオペレーションコード。
描画先の色を D、描画元を S としたとき、以下の演算を行います。

コード	演算
TRGSSX::SRCCOPY	D = S （bltと同じ）
TRGSSX::SRCPAINT	D = D \| S (D = D OR S)
TRGSSX::SRCAND	D = D & S (D = D AND S)
TRGSSX::SRCINVERT	D = D ^ S (D = D XOR S)
TRGSSX::SRCERASE	D = D & ~S (D = D AND NOT S)
TRGSSX::NOTSRCCOPY	D = ~S
TRGSSX::NOTSRCERASE	D = ~(D \| S)

省略時はTRGSSX::SRCCOPYになります。

blend_blt(x, y, src_bitmap, src_rect[, blend_type])

特殊な合成方法でsrc_bitmapを描画します。

x, y

描画先 X, Y 座標。

src_bitmap

描画する Bitmap。

src_rect

src_bitmap の転送範囲。

blend_type

合成形式。

コード	合成形式
TRGSSX::BLEND_NORMAL	通常合成（bltと同じ）
TRGSSX::BLEND_ADD	加算合成
TRGSSX::BLEND_SUB	減算合成
TRGSSX::BLEND_MUL	乗算合成
TRGSSX::BLEND_HILIGHT	覆い焼き（ハイライト）

省略時はTRGSSX::BLEND_NORMALになります。

clip_blt(x, y, src_bitmap, src_rect, region)

Regionによる切り抜きを行ってsrc_bitmapを描画します。

x, y: 描画先 X, Y 座標。
src_bitmap: 描画する Bitmap。
src_rect: src_bitmap の転送範囲。
region: クリッピングを行う領域（Regionクラス）。

stretch_blt_r(dest_rect, src_bitmap, src_rect[, opacity])

通常のstretch_bltより高画質な拡大縮小描画を行います。

dest_rect: 描画先矩形。
src_bitmap: 描画する Bitmap。
src_rect: src_bitmap の転送範囲。
opacity: 不透明度。省略時は255。

skew_blt(x, y, src_bitmap, src_rect, slope[, opacity])

src_bitmap を平行四辺形に変形して描画します。

x, y: 描画先 X, Y 座標。
src_bitmap: 描画する Bitmap。
src_rect: src_bitmap の転送範囲。
slope: 傾き。-89 ～ 89で指定。
opacity: 不透明度。省略時は255。

skew_blt_r(x, y, src_bitmap, src_rect, slope[, opacity])

skew_bltにアンチエイリアスをかけたバージョンです。
使用法はskew_bltと同じです。

draw_polygon(points, color[, width])

points に格納した各点を結ぶ多角形を描画します。

points: 頂点座標の配列。各頂点は [x, y] 形式で格納。
color: 描画色。
width: 線の太さ。省略時は1。

fill_polygon(points, start_color, end_color)

points に格納した各点を結ぶ多角形を描画し、内部を塗り潰します。

points: 頂点座標の配列。各頂点は [x, y] 形式で格納。
start_color: 中心の色。
end_color: 外縁部の色。

draw_regular_polygon(x, y, r, n, color[, width])

x, y を中心とした半径 r の円に内接する正 n 角形を描画します。

x, y: 中心座標
r: 外接円の半径。
n: 頂点数。
color: 描画色。
width: 線の太さ。省略時は1。

fill_regular_polygon(x, y, r, n, start_color, end_color)

x, y を中心とした半径 r の円に内接する正 n 角形を描画し、内部を塗り潰します。

x, y: 中心座標
r: 外接円の半径。
n: 頂点数。
start_color: 中心の色。
end_color: 外縁部の色。

draw_spoke(x, y, r, n, color[, width])

x, y を中心とした半径 r の円に対応するスポークを描画します。

x, y: 中心座標
r: 外接円の半径。
n: 頂点数。
color: 描画色。
width: 線の太さ。省略時は1。

draw_text_na(x, y, width, height, text[, align]) draw_text_na(rect, text[, align])

アンチエイリアスを行わずにテキストを描画します。
使用方法はdraw_textと同じです。

Font::gradation_colorに色を指定すると、上下にグラデーションが
かかったテキストを描画できます。
グラデーションを解除する場合はFont::gradation_colorにnilを指定してください。

# だんたん青っぽく
self.contents.font.gradation_color = Color.new(192, 224, 255)
self.contents.draw_text_na(0, 0, 300, 24, "ぐらでーしょん")

Font::frameをtrueにすると、テキストを縁取りして描画できます。
Font::shadowとFont::frameの両方をtrueにした場合、
縁取りの設定が優先されます。

# 縁取りする
self.contents.font.frame = true
self.contents.draw_text_na(0, 0, 300, 24, "縁取り")

draw_text_fast(x, y, width, height, text[, align]) draw_text_fast(rect, text[, align])

通常のdraw_textより高速にテキストを描画します。
使用方法はdraw_text_naと同じです。

Font::gradation_colorやFont::frameも使用できます。

text_size_na(text)

draw_text_naでtextを描画した際の矩形を取得します。

text_size_fast(text)

draw_text_fastでtextを描画した際の矩形を取得します。

_draw_text(x, y, width, height, text[, align]) _draw_text(rect, text[, align])

通常のdraw_textを呼び出します。

_text_size(text)

通常のdraw_textでtextを描画した際の矩形を取得します。

save(filename)

パスfilenameにビットマップファイルとして保存します。
保存の際、アルファチャネルは破棄されます。

VX の場合、次の操作で簡単にスクリーンショットを撮ることができます。

# snap.bmp にスクリーンショットを保存
bmp = Graphics.snap_to_bitmap
bmp.save("snap.bmp")
bmp.dispose

搭載クラス

**** 以下、鋭意執筆中 ****

↑目次

参考文献

References

[1] RPGTKOOLXP/RGSS Wiki, http://tkool.web-ghost.net/wiki/wiki.cgi

↑目次

ビットマップ拡張（XP/VX共用）

BitmapExtension (For XP/VX)

目次

Outline

概要

Summary

スクリーンショット

Screen Shot

更新履歴

History

スクリプト

Script

使用法

Usage

カスタマイズ項目

搭載メソッド

搭載クラス

参考文献

References