求汉化 位图显示功能增强[汉化中]

雪流星

http://f44.aaa.livedoor.jp/~ytomy/tkool/rpgtech/php/tech.php?tool=VX&cat=tech_xp/draw_function&tech=bitmap_extension

日语的，懒得用翻译引擎慢慢去猜他的意思

看截图效果很华丽，但是说明看不明白







自己接了{/gg}
需要 dll
http://rpg.blue/upload_program/d/snstar2006_trgssex_107794431.rar

1. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
   
2. #_/    ◆ Bitmap 扩张 - KGC_BitmapExtension ◆ XP/VX ◆
   
3. #_/    ◇ Last update : 2008/11/16 ◇
   
4. #_/----------------------------------------------------------------------------
   
5. #_/  Bitmap 类描画功能增强。
   
6. #_/  XP/VX 通用脚本
   
7. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
   
8. 
   
9. =begin
   
10. 增强 Bitmap 类的绘制，增摘了下列功能：
    
11. 
    
12.      * 位图操作
    
13.            o SRCCOPY, SRCPAINT, 等七种操作方式
    
14.      * 特殊合成
    
15.            o 加法
    
16.            o 减法
    
17.            o 乘法
    
18.            o 高光
    
19.      * 裁减
    
20.            o 矩形
    
21.            o 圆角矩形
    
22.            o 椭圆（包含圆形）
    
23.            o 星形
    
24.            o 复合型
    
25.      * 位图保存
    
26.        ※ alpha 通道会被舍弃
    
27. 
    
28. XP 和 VX通用
    
29. 
    
30. ━━━━━ 使用方法 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━
    
31. ──── Class - Bitmap ────────────────────────────
    
32. rop_blt(x, y, src_bitmap, src_rect[, rop])
    
33.   x, y       : 描画的 X, Y 座标
    
34.   src_bitmap : 描画的 Bitmap
    
35.   src_rect   : src_bitmap 传送范围
    
36.   rop        : 位图操作
    
37.                SRCCOPY, SRCPAINT, SRCAND, SRCINVERT, SRCERASE,
    
38.                NOTSRCCOPY, NOTSRCERASE
    
39.                (默认: SRCCOPY)
    
40. 
    
41.   rop 就是指定位图描绘的方式。
    
42. 
    
43. --------------------------------------------------------------------------------
    
44. blend_blt(x, y, src_bitmap, src_rect[, blend_type])
    
45.   x, y       : 描画的 X, Y 座标
    
46.   src_bitmap : 描画的 Bitmap
    
47.   src_rect   : src_bitmap 传送范围
    
48.   blend_type : 合成方式
    
49.                BLEND_NORMAL, BLEND_ADD, BLEND_SUB, BLEND_MUL, BLEND_HILIGHT
    
50.                (默认 : BLEND_NORMAL)
    
51. 
    
52. blend+type 就是指定描绘 src_bitmap 的合成方式。
    
53. 
    
54. --------------------------------------------------------------------------------
    
55. clip_blt(x, y, src_bitmap, src_rect, region)
    
56.   x, y       : 描画的 X, Y 座标
    
57.   src_bitmap : 描画的 Bitmap
    
58.   src_rect   : src_bitmap 传送范围
    
59.   region     : 执行裁剪的区域 (Region)
    
60. 
    
61. region 指定裁剪并描绘 src_bitmap 的区域和形状。
    
62. 
    
63. --------------------------------------------------------------------------------
    
64. save(filename)
    
65.   filename : 保存文件名
    
66. 
    
67. 保存为 bitmap 格式。
    
68. 
    
69. 
    
70. ━━━━━ 使用方法 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
    
71. Region
    
72. 
    
73. 各种形状区域的超级类。
    
74. 
    
75. --------------------------------------------------------------------------------
    
76. RectRegion < Region
    
77. 
    
78.     - 构造符 -
    
79.   (x, y, width, height)
    
80.   (rect)
    
81. 
    
82.     - 公开成员 -
    
83.   x, y, width, height : 矩形的位置和大小
    
84. 
    
85. 矩形区域
    
86. 指定一个矩形的绘制范围。
    
87. 
    
88. --------------------------------------------------------------------------------
    
89. RoundRectRegion < RectRegion
    
90. 
    
91.     - 构造符 -
    
92.   (x, y, width, height[, width_ellipse[, height_ellipse]])
    
93.     width_ellipse  : 圆角宽度
    
94.     height_ellipse : 圆角高度
    
95.   (rect[, width_ellipse[, height_ellipse]])
    
96. 
    
97.     - 公开成员 -
    
98.   RectRegion 的公开成员
    
99.   width_ellipse, height_ellipse : 圆角宽、高度
    
100. 
     
101. 圆角矩形区域
     
102. 指定一个圆角矩形的绘制范围。
     
103. 
     
104. --------------------------------------------------------------------------------
     
105. EllipticRegion < RectRegion
     
106. 
     
107.     - 构造符 -
     
108.   (x, y, width, height)
     
109.   (rect)
     
110. 
     
111.     - 公开成员 -
     
112.   RectRegion 的公开成员
     
113. 
     
114. 椭圆形区域
     
115. 指定一个椭圆形的绘制范围。
     
116. 
     
117. --------------------------------------------------------------------------------
     
118. CircularRegion < EllipticRegion
     
119. 
     
120.     - 构造符 -
     
121.   (x, y, radius)
     
122.     x, y   : 原心座標
     
123.     radius : 半径
     
124. 
     
125.     - 公开成员 -
     
126.   x, y, radius : 原心与半径
     
127. 
     
128. 圆形区域
     
129. 指定一个圆形的绘制范围。
     
130. 
     
131. --------------------------------------------------------------------------------
     
132. PolygonRegion < Region
     
133. 
     
134.     - 构造符 -
     
135.   (point1, point2, ...)
     
136.     point : [x, y] 形式的座标
     
137. 
     
138.     - 公开成员 -
     
139.   points    : [x, y] 形式的座標
     
140.   fill_mode : 多边形充填形式
     
141.                 ALTERNATE : 奇数番目の線分と偶数番目の線分の間の領域のみ
     
142.                 WINDING   : すべて線分の間の領域
     
143.               初始值为 WINDING
     
144. 
     
145. 多边形区域
     
146. 由指定座标所连结而成的多边行描绘范围。
     
147. 
     
148. --------------------------------------------------------------------------------
     
149. StarRegion < PolygonRegion
     
150. 
     
151.     - 构造符 -
     
152.   (x, y, width, height[, angle])
     
153.   (region[, angle])
     
154.     region : Rect, RectRegion, EllipticRegion, CircularRegion のいずれか
     
155.     angle  : 開始角度 (省略時 : 0)
     
156. 
     
157.     - 公开成员 -
     
158.   fill_mode           : 与 PolygonRegion 一样
     
159.   x, y, width, height : 基准矩形
     
160.   angle               : 开始角度 (0 ～ 359)
     
161. 
     
162. 星形区域
     
163. 由与基准矩形内切的椭圆形形成的星形描绘范围。
     
164. 
     
165. --------------------------------------------------------------------------------
     
166. CombinedRegion < Region
     
167. 
     
168. 複合リージョンです。
     
169. リージョン r1, r2 に対する以下の二項演算によって生成されます。
     
170. 
     
171.   r1 & r2 : r1 与 r2 之積 (共通部分)
     
172.   r1 * r2 : r1 与 r2 之積
     
173.   r1 | r2 : r1 与 r2 之和 (双方的总和)
     
174.   r1 + r2 : r1 与 r2 之和
     
175.   r1 ^ r2 : r1 与 r2 之排他的論理和 (片方のみに存在する領域をとる)
     
176.   r1 - r2 : r1 与 r2 之差 (除去共通部分)
     
177. 
     
178. ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
     
179. =end
     
180. 
     
181. $imported = {} if $imported == nil
     
182. $imported["BitmapExtension"] = true
     
183. 
     
184. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
185. 
     
186. #==============================================================================
     
187. # □ TRGSSEx
     
188. #------------------------------------------------------------------------------
     
189. #   "TRGSSEx.dll" の機能を扱うモジュールです。
     
190. #==============================================================================
     
191. 
     
192. module TRGSSEx
     
193.   # 合成タイプ
     
194.   BLEND_NORMAL  = 0  # 通常
     
195.   BLEND_ADD     = 1  # 加算
     
196.   BLEND_SUB     = 2  # 減算
     
197.   BLEND_MUL     = 3  # 乗算
     
198.   BLEND_HILIGHT = 4  # 覆い焼き
     
199. 
     
200.   # ラスタオペレーションコード
     
201.   SRCCOPY     = 0x00CC0020  # dest = src
     
202.   SRCPAINT    = 0x00EE0086  # dest = dest | src
     
203.   SRCAND      = 0x008800C6  # dest = dest & src
     
204.   SRCINVERT   = 0x00660046  # dest = dest ^ src
     
205.   SRCERASE    = 0x00440328  # dest = dest & ~src
     
206.   NOTSRCCOPY  = 0x00330008  # dest = ~src
     
207.   NOTSRCERASE = 0x001100A6  # dest = ~(dest | src) = ~dest & ~src
     
208. 
     
209.   DLL_NAME = 'TRGSSEx'
     
210.   begin
     
211.     NO_TRGSS_EX = false
     
212.     @@_trgss_ex_version =
     
213.       Win32API.new(DLL_NAME, 'DllGetVersion', 'v', 'l')
     
214.     @@_trgss_ex_rop_blt =
     
215.       Win32API.new(DLL_NAME, 'RopBlt', 'pllllplll', 'l')
     
216.     @@_trgss_ex_clip_blt =
     
217.       Win32API.new(DLL_NAME, 'ClipBlt', 'pllllplll', 'l')
     
218.     @@_trgss_ex_blend_blt =
     
219.       Win32API.new(DLL_NAME, 'BlendBlt', 'pllllplll', 'l')
     
220.     @@_trgss_ex_save_to_bitmap =
     
221.       Win32API.new(DLL_NAME, 'SaveToBitmapA', 'pp', 'l')
     
222.   rescue
     
223.     NO_TRGSS_EX = true
     
224.   end
     
225. 
     
226.   module_function
     
227.   #--------------------------------------------------------------------------
     
228.   # ○ バージョン取得
     
229.   #     (<例> 1.23 → 123)
     
230.   #--------------------------------------------------------------------------
     
231.   def version
     
232.     return -1 if NO_TRGSS_EX
     
233. 
     
234.     return @@_trgss_ex_version.call
     
235.   end
     
236.   #--------------------------------------------------------------------------
     
237.   # ○ BitBltRop
     
238.   #--------------------------------------------------------------------------
     
239.   def rop_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, rop)
     
240.     return @@_trgss_ex_rop_blt.call(dest_info, dx, dy, dw, dh,
     
241.       src_info, sx, sy, rop)
     
242.   end
     
243.   #--------------------------------------------------------------------------
     
244.   # ○ ClipBlt
     
245.   #--------------------------------------------------------------------------
     
246.   def clip_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, hRgn)
     
247.     return @@_trgss_ex_clip_blt.call(dest_info, dx, dy, dw, dh,
     
248.       src_info, sx, sy, hRgn)
     
249.   end
     
250.   #--------------------------------------------------------------------------
     
251.   # ○ BlendBlt
     
252.   #--------------------------------------------------------------------------
     
253.   def blend_blt(dest_info, dx, dy, dw, dh, src_info, sx, sy, blend)
     
254.     return @@_trgss_ex_blend_blt.call(dest_info, dx, dy, dw, dh,
     
255.       src_info, sx, sy, blend)
     
256.   end
     
257.   #--------------------------------------------------------------------------
     
258.   # ○ SaveToBitmapA
     
259.   #--------------------------------------------------------------------------
     
260.   def save_to_bitmap(filename, info)
     
261.     return @@_trgss_ex_save_to_bitmap.call(filename, info)
     
262.   end
     
263. end
     
264. 
     
265. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
266. 
     
267. #==============================================================================
     
268. # ■ Bitmap
     
269. #==============================================================================
     
270. 
     
271. class Bitmap
     
272.   #--------------------------------------------------------------------------
     
273.   # ○ ビットマップ情報 (object_id, width, height) の pack を取得
     
274.   #--------------------------------------------------------------------------
     
275.   def get_base_info
     
276.     return [object_id, width, height].pack('l3')
     
277.   end
     
278.   #--------------------------------------------------------------------------
     
279.   # ○ ラスタオペレーションを使用して描画
     
280.   #     rop : ラスタオペレーションコード
     
281.   #--------------------------------------------------------------------------
     
282.   def rop_blt(x, y, src_bitmap, src_rect, rop = TRGSSEx::SRCCOPY)
     
283.     return -1 if TRGSSEx::NO_TRGSS_EX
     
284. 
     
285.     return TRGSSEx.rop_blt(get_base_info,
     
286.       x, y, src_rect.width, src_rect.height,
     
287.       src_bitmap.get_base_info, src_rect.x, src_rect.y, rop)
     
288.   end
     
289.   #--------------------------------------------------------------------------
     
290.   # ○ クリッピング描画
     
291.   #     region : リージョン
     
292.   #--------------------------------------------------------------------------
     
293.   def clip_blt(x, y, src_bitmap, src_rect, region)
     
294.     return -1 if TRGSSEx::NO_TRGSS_EX
     
295. 
     
296.     hRgn = region.create_region_handle
     
297.     return if hRgn == nil || hRgn == 0
     
298. 
     
299.     result = TRGSSEx.clip_blt(get_base_info,
     
300.       x, y, src_rect.width, src_rect.height,
     
301.       src_bitmap.get_base_info, src_rect.x, src_rect.y, hRgn)
     
302.     # 後始末
     
303.     Region.delete_region_handles
     
304. 
     
305.     return result
     
306.   end
     
307.   #--------------------------------------------------------------------------
     
308.   # ○ ブレンド描画
     
309.   #     blend : ブレンドタイプ
     
310.   #--------------------------------------------------------------------------
     
311.   def blend_blt(x, y, src_bitmap, src_rect, blend = TRGSSEx::BLEND_NORMAL)
     
312.     return -1 if TRGSSEx::NO_TRGSS_EX
     
313. 
     
314.     return TRGSSEx.blend_blt(get_base_info,
     
315.       x, y, src_rect.width, src_rect.height,
     
316.       src_bitmap.get_base_info, src_rect.x, src_rect.y, blend)
     
317.   end
     
318.   #--------------------------------------------------------------------------
     
319.   # ○ 保存
     
320.   #     filename : 保存先
     
321.   #--------------------------------------------------------------------------
     
322.   def save(filename)
     
323.     return -1 if TRGSSEx::NO_TRGSS_EX
     
324. 
     
325.     return TRGSSEx.save_to_bitmap(filename, get_base_info)
     
326.   end
     
327. end
     
328. 
     
329. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
330. 
     
331. #==============================================================================
     
332. # □ Region
     
333. #------------------------------------------------------------------------------
     
334. #   クリッピング用のリージョンを扱うクラスです。
     
335. #==============================================================================
     
336. 
     
337. class Region
     
338.   #--------------------------------------------------------------------------
     
339.   # ○ クラス変数
     
340.   #--------------------------------------------------------------------------
     
341.   @@handles = []  # 生成したリージョンハンドル
     
342.   #--------------------------------------------------------------------------
     
343.   # ○ Win32API
     
344.   #--------------------------------------------------------------------------
     
345.   @@_api_delete_object = Win32API.new('gdi32', 'DeleteObject', 'l', 'l')
     
346.   #--------------------------------------------------------------------------
     
347.   # ○ リージョンハンドル生成
     
348.   #--------------------------------------------------------------------------
     
349.   def create_region_handle
     
350.     # 継承先で再定義
     
351.     return 0
     
352.   end
     
353.   #--------------------------------------------------------------------------
     
354.   # ○ AND (&)
     
355.   #--------------------------------------------------------------------------
     
356.   def &(obj)
     
357.     return nil unless obj.is_a?(Region)
     
358.     return CombinedRegion.new(CombinedRegion::RGN_AND, self, obj)
     
359.   end
     
360.   #--------------------------------------------------------------------------
     
361.   # ○ AND (*)
     
362.   #--------------------------------------------------------------------------
     
363.   def *(obj)
     
364.     return self.&(obj)
     
365.   end
     
366.   #--------------------------------------------------------------------------
     
367.   # ○ OR (|)
     
368.   #--------------------------------------------------------------------------
     
369.   def |(obj)
     
370.     return nil unless obj.is_a?(Region)
     
371.     return CombinedRegion.new(CombinedRegion::RGN_OR, self, obj)
     
372.   end
     
373.   #--------------------------------------------------------------------------
     
374.   # ○ OR (+)
     
375.   #--------------------------------------------------------------------------
     
376.   def +(obj)
     
377.     return self.|(obj)
     
378.   end
     
379.   #--------------------------------------------------------------------------
     
380.   # ○ XOR (^)
     
381.   #--------------------------------------------------------------------------
     
382.   def ^(obj)
     
383.     return nil unless obj.is_a?(Region)
     
384.     return CombinedRegion.new(CombinedRegion::RGN_XOR, self, obj)
     
385.   end
     
386.   #--------------------------------------------------------------------------
     
387.   # ○ DIFF (-)
     
388.   #--------------------------------------------------------------------------
     
389.   def -(obj)
     
390.     return nil unless obj.is_a?(Region)
     
391.     return CombinedRegion.new(CombinedRegion::RGN_DIFF, self, obj)
     
392.   end
     
393. 
     
394.   #--------------------------------------------------------------------------
     
395.   # ○ リージョンハンドル破棄
     
396.   #--------------------------------------------------------------------------
     
397.   def self.delete_region_handles
     
398.     @@handles.uniq!
     
399.     @@handles.each { |h| @@_api_delete_object.call(h) }
     
400.     @@handles.clear
     
401.   end
     
402. end
     
403. 
     
404. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
405. 
     
406. #==============================================================================
     
407. # □ RectRegion
     
408. #------------------------------------------------------------------------------
     
409. #   矩形リージョンを扱うクラスです。
     
410. #==============================================================================
     
411. 
     
412. class RectRegion < Region
     
413.   #--------------------------------------------------------------------------
     
414.   # ○ 公開インスタンス変数
     
415.   #--------------------------------------------------------------------------
     
416.   attr_accessor :x               # X 座標
     
417.   attr_accessor :y               # Y 座標
     
418.   attr_accessor :width           # 幅
     
419.   attr_accessor :height          # 高さ
     
420.   #--------------------------------------------------------------------------
     
421.   # ○ Win32API
     
422.   #--------------------------------------------------------------------------
     
423.   @@_api_create_rect_rgn = Win32API.new('gdi32',
     
424.     'CreateRectRgn', 'llll', 'l')
     
425.   @@_api_create_rect_rgn_indirect = Win32API.new('gdi32',
     
426.     'CreateRectRgnIndirect', 'l', 'l')
     
427.   #--------------------------------------------------------------------------
     
428.   # ○ オブジェクト初期化
     
429.   #--------------------------------------------------------------------------
     
430.   def initialize(*args)
     
431.     if args[0].is_a?(Rect)
     
432.       rect = args[0]
     
433.       @x = rect.x
     
434.       @y = rect.y
     
435.       @width  = rect.width
     
436.       @height = rect.height
     
437.     else
     
438.       @x, @y, @width, @height = args
     
439.     end
     
440.   end
     
441.   #--------------------------------------------------------------------------
     
442.   # ○ リージョンハンドル生成
     
443.   #--------------------------------------------------------------------------
     
444.   def create_region_handle
     
445.     hRgn = @@_api_create_rect_rgn.call(@x, @y, @x + @width, @y + @height)
     
446.     @@handles << hRgn
     
447.     return hRgn
     
448.   end
     
449. end
     
450. 
     
451. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
452. 
     
453. #==============================================================================
     
454. # □ RoundRectRegion
     
455. #------------------------------------------------------------------------------
     
456. #   角丸矩形リージョンを扱うクラスです。
     
457. #==============================================================================
     
458. 
     
459. class RoundRectRegion < RectRegion
     
460.   #--------------------------------------------------------------------------
     
461.   # ○ 公開インスタンス変数
     
462.   #--------------------------------------------------------------------------
     
463.   attr_accessor :width_ellipse   # 丸みの幅
     
464.   attr_accessor :height_ellipse  # 丸みの高さ
     
465.   #--------------------------------------------------------------------------
     
466.   # ○ Win32API
     
467.   #--------------------------------------------------------------------------
     
468.   @@_api_create_round_rect_rgn = Win32API.new('gdi32',
     
469.     'CreateRoundRectRgn', 'llllll', 'l')
     
470.   #--------------------------------------------------------------------------
     
471.   # ○ オブジェクト初期化
     
472.   #--------------------------------------------------------------------------
     
473.   def initialize(*args)
     
474.     super
     
475.     if args[0].is_a?(Rect)
     
476.       @width_ellipse  = args[1]
     
477.       @height_ellipse = args[2]
     
478.     else
     
479.       @width_ellipse  = args[4]
     
480.       @height_ellipse = args[5]
     
481.     end
     
482.   end
     
483.   #--------------------------------------------------------------------------
     
484.   # ○ リージョンハンドル生成
     
485.   #--------------------------------------------------------------------------
     
486.   def create_region_handle
     
487.     hRgn = @@_api_create_round_rect_rgn.call(@x, @y, @x + @width, @y + @height,
     
488.       width_ellipse, height_ellipse)
     
489.     @@handles << hRgn
     
490.     return hRgn
     
491.   end
     
492. end
     
493. 
     
494. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
495. 
     
496. #==============================================================================
     
497. # □ EllipticRegion
     
498. #------------------------------------------------------------------------------
     
499. #   楕円形リージョンを扱うクラスです。
     
500. #==============================================================================
     
501. 
     
502. class EllipticRegion < RectRegion
     
503.   #--------------------------------------------------------------------------
     
504.   # ○ Win32API
     
505.   #--------------------------------------------------------------------------
     
506.   @@_api_create_elliptic_rgn = Win32API.new('gdi32',
     
507.     'CreateEllipticRgn', 'llll', 'l')
     
508.   @@_api_create_elliptic_rgn_indirect = Win32API.new('gdi32',
     
509.     'CreateEllipticRgnIndirect', 'l', 'l')
     
510.   #--------------------------------------------------------------------------
     
511.   # ○ リージョンハンドル生成
     
512.   #--------------------------------------------------------------------------
     
513.   def create_region_handle
     
514.     hRgn = @@_api_create_elliptic_rgn.call(@x, @y, @x + @width, @y + @height)
     
515.     @@handles << hRgn
     
516.     return hRgn
     
517.   end
     
518. end
     
519. 
     
520. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
521. 
     
522. #==============================================================================
     
523. # □ CircularRegion
     
524. #------------------------------------------------------------------------------
     
525. #   円形リージョンを扱うクラスです。
     
526. #==============================================================================
     
527. 
     
528. class CircularRegion < EllipticRegion
     
529.   #--------------------------------------------------------------------------
     
530.   # ○ 公開インスタンス変数
     
531.   #--------------------------------------------------------------------------
     
532.   attr_reader   :radius  # 半径
     
533.   #--------------------------------------------------------------------------
     
534.   # ○ オブジェクト初期化
     
535.   #--------------------------------------------------------------------------
     
536.   def initialize(x, y, r)
     
537.     @cx = x
     
538.     @cy = y
     
539.     @radius = r
     
540.     super(@cx - r, @cy - r, r * 2, r * 2)
     
541.   end
     
542.   #--------------------------------------------------------------------------
     
543.   # ○ 中心 X 座標参照
     
544.   #--------------------------------------------------------------------------
     
545.   def x
     
546.     return @cx
     
547.   end
     
548.   #--------------------------------------------------------------------------
     
549.   # ○ 中心 Y 座標参照
     
550.   #--------------------------------------------------------------------------
     
551.   def y
     
552.     return @cy
     
553.   end
     
554.   #--------------------------------------------------------------------------
     
555.   # ○ 中心 X 座標変更
     
556.   #--------------------------------------------------------------------------
     
557.   def x=(value)
     
558.     @cx = value
     
559.     @x = @cx - radius
     
560.   end
     
561.   #--------------------------------------------------------------------------
     
562.   # ○ 中心 Y 座標変更
     
563.   #--------------------------------------------------------------------------
     
564.   def y=(value)
     
565.     @cy = value
     
566.     @y = @cy - radius
     
567.   end
     
568.   #--------------------------------------------------------------------------
     
569.   # ○ 半径変更
     
570.   #--------------------------------------------------------------------------
     
571.   def radius=(value)
     
572.     @radius = value
     
573.     @x = @cx - @radius
     
574.     @y = @cy - @radius
     
575.     @width = @height = @radius * 2
     
576.   end
     
577. end
     
578. 
     
579. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
580. 
     
581. #==============================================================================
     
582. # □ PolygonRegion
     
583. #------------------------------------------------------------------------------
     
584. #   多角形リージョンを扱うクラスです。
     
585. #==============================================================================
     
586. 
     
587. class PolygonRegion < Region
     
588.   #--------------------------------------------------------------------------
     
589.   # ○ 定数
     
590.   #--------------------------------------------------------------------------
     
591.   # 多角形充填形式
     
592.   ALTERNATE = 1  # 交互モード
     
593.   WINDING   = 2  # 螺旋モード
     
594.   #--------------------------------------------------------------------------
     
595.   # ○ 公開インスタンス変数
     
596.   #--------------------------------------------------------------------------
     
597.   attr_accessor :points     # 頂点座標 [x, y] の配列
     
598.   attr_accessor :fill_mode  # 多角形充填形式
     
599.   #--------------------------------------------------------------------------
     
600.   # ○ Win32API
     
601.   #--------------------------------------------------------------------------
     
602.   @@_api_create_polygon_rgn = Win32API.new('gdi32',
     
603.     'CreatePolygonRgn', 'pll', 'l')
     
604.   @@_api_create_polypolygon_rgn = Win32API.new('gdi32',
     
605.     'CreatePolyPolygonRgn', 'llll', 'l')
     
606.   #--------------------------------------------------------------------------
     
607.   # ○ オブジェクト初期化
     
608.   #--------------------------------------------------------------------------
     
609.   def initialize(*points)
     
610.     @points = points  # [x, y] の配列
     
611.     @fill_mode = WINDING
     
612.   end
     
613.   #--------------------------------------------------------------------------
     
614.   # ○ リージョンハンドル生成
     
615.   #--------------------------------------------------------------------------
     
616.   def create_region_handle
     
617.     pts = ""
     
618.     points.each { |pt| pts += pt.pack("ll") }
     
619.     hRgn = @@_api_create_polygon_rgn.call(pts, points.size, fill_mode)
     
620.     @@handles << hRgn
     
621.     return hRgn
     
622.   end
     
623. end
     
624. 
     
625. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
626. 
     
627. #==============================================================================
     
628. # □ StarRegion
     
629. #------------------------------------------------------------------------------
     
630. #   星型リージョンを扱うクラスです。
     
631. #==============================================================================
     
632. 
     
633. class StarRegion < PolygonRegion
     
634.   #--------------------------------------------------------------------------
     
635.   # ○ 定数
     
636.   #--------------------------------------------------------------------------
     
637.   POINT_NUM = 5               # 点数
     
638.   PI_4      = 4.0 * Math::PI  # 4 * Pi
     
639.   #--------------------------------------------------------------------------
     
640.   # ○ 公開インスタンス変数
     
641.   #--------------------------------------------------------------------------
     
642.   attr_reader   :x               # X 座標
     
643.   attr_reader   :y               # Y 座標
     
644.   attr_reader   :width           # 幅
     
645.   attr_reader   :height          # 高さ
     
646.   attr_reader   :angle           # 開始角度 (0 ～ 359)
     
647.   #--------------------------------------------------------------------------
     
648.   # ○ オブジェクト初期化
     
649.   #--------------------------------------------------------------------------
     
650.   def initialize(*args)
     
651.     super()
     
652.     shape = args[0]
     
653.     ang = args[1]
     
654.     case shape
     
655.     when CircularRegion
     
656.       @x = shape.x - shape.radius
     
657.       @y = shape.y - shape.radius
     
658.       @width = @height = shape.radius * 2
     
659.     when Rect, RectRegion, EllipticRegion
     
660.       @x = shape.x
     
661.       @y = shape.y
     
662.       @width  = shape.width
     
663.       @height = shape.height
     
664.     when Integer
     
665.       @x, @y, @width, @height = args
     
666.       ang = args[4]
     
667.     else
     
668.       @x = @y = @width = @height = 0
     
669.     end
     
670.     @angle = (ang == nil ? 0 : ang) % 360
     
671.     @points = create_star_points
     
672.   end
     
673.   #--------------------------------------------------------------------------
     
674.   # ○ 星型座標を生成
     
675.   #--------------------------------------------------------------------------
     
676.   def create_star_points
     
677.     dw = (width + 1) / 2
     
678.     dh = (height + 1) / 2
     
679.     dx = x + dw
     
680.     dy = y + dh
     
681.     base_angle = angle * Math::PI / 180.0
     
682.     pts = []
     
683.     POINT_NUM.times { |i|
     
684.       ang = base_angle + PI_4 * i / POINT_NUM
     
685.       pts << [dx + (Math.sin(ang) * dw).to_i,
     
686.         dy - (Math.cos(ang) * dh).to_i]
     
687.     }
     
688.     return pts
     
689.   end
     
690.   #--------------------------------------------------------------------------
     
691.   # ○ X 座標変更
     
692.   #--------------------------------------------------------------------------
     
693.   def x=(value)
     
694.     @x = value
     
695.     @points = create_star_points
     
696.   end
     
697.   #--------------------------------------------------------------------------
     
698.   # ○ Y 座標変更
     
699.   #--------------------------------------------------------------------------
     
700.   def y=(value)
     
701.     @y = value
     
702.     @points = create_star_points
     
703.   end
     
704.   #--------------------------------------------------------------------------
     
705.   # ○ 幅変更
     
706.   #--------------------------------------------------------------------------
     
707.   def width=(value)
     
708.     @width = value
     
709.     @points = create_star_points
     
710.   end
     
711.   #--------------------------------------------------------------------------
     
712.   # ○ 高さ座標変更
     
713.   #--------------------------------------------------------------------------
     
714.   def height=(value)
     
715.     @height = value
     
716.     @points = create_star_points
     
717.   end
     
718.   #--------------------------------------------------------------------------
     
719.   # ○ 開始角度変更
     
720.   #--------------------------------------------------------------------------
     
721.   def angle=(value)
     
722.     @angle = value % 360
     
723.     @points = create_star_points
     
724.   end
     
725. end
     
726. 
     
727. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
728. 
     
729. #==============================================================================
     
730. # □ CombinedRegion
     
731. #------------------------------------------------------------------------------
     
732. #   混合リージョンを扱うクラスです。
     
733. #==============================================================================
     
734. 
     
735. class CombinedRegion < Region
     
736.   #--------------------------------------------------------------------------
     
737.   # ○ 定数
     
738.   #--------------------------------------------------------------------------
     
739.   # 合成モード
     
740.   RGN_AND  = 1
     
741.   RGN_OR   = 2
     
742.   RGN_XOR  = 3
     
743.   RGN_DIFF = 4
     
744.   RGN_COPY = 5
     
745.   #--------------------------------------------------------------------------
     
746.   # ○ Win32API
     
747.   #--------------------------------------------------------------------------
     
748.   @@_api_combine_rgn = Win32API.new('gdi32', 'CombineRgn', 'llll', 'l')
     
749.   #--------------------------------------------------------------------------
     
750.   # ○ オブジェクト初期化
     
751.   #--------------------------------------------------------------------------
     
752.   def initialize(mode, region1, region2)
     
753.     @exp = CombinedRegionExp.new(mode, region1.clone, region2.clone)
     
754.   end
     
755.   #--------------------------------------------------------------------------
     
756.   # ○ リージョンハンドル生成
     
757.   #--------------------------------------------------------------------------
     
758.   def create_region_handle
     
759.     return combine_region(@exp.region1, @exp.region2, @exp.mode)
     
760.   end
     
761.   #--------------------------------------------------------------------------
     
762.   # ○ リージョン合成
     
763.   #     dest : 合成先
     
764.   #     src  : 合成元
     
765.   #     mode : 合成モード
     
766.   #--------------------------------------------------------------------------
     
767.   def combine_region(dest, src, mode)
     
768.     hdest = dest.create_region_handle
     
769.     hsrc  = src.create_region_handle
     
770.     @@_api_combine_rgn.call(hdest, hdest, hsrc, mode)
     
771.     return hdest
     
772.   end
     
773.   protected :combine_region
     
774. end
     
775. 
     
776. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
777. 
     
778. #==============================================================================
     
779. # □ Struct
     
780. #==============================================================================
     
781. 
     
782. # □ CombinedRegionExp 構造体
     
783. CombinedRegionExp = Struct.new("CombinedRegionExp", :mode, :region1, :region2)
     

复制代码

偶尔杀人越货

先毫不犹豫的抱下来，据说约束桑在holiday，你要等几天了

星辰天羽

前几天在QQ上问了下，好像KISS姐在研究这些东西

越前リョーマ

这效果真的很不错。

雪流星

以下引用偶尔杀人越货于2008-11-22 8:35:04的发言：
先毫不犹豫的抱下来，据说约束桑在holiday，你要等几天了

那还是我来吧