请教可否在rm内实现画图功能?

文雅夕露

前提是有鼠标脚本。
请问可否在rm的脚本内实现画图功能?
就是windows自带的那种简单的画图。
没有色板的噢。
请教各位前辈，谢谢。

张咚咚

1. canvas = Sprite.new
   
2. canvas.bitmap = Bitmap.new(640,480)
   
3. c = Color.new(255,255,255)
   
4. 
   
5. while true
   
6.   x = Mouse.x
   
7.   y = Mouse.y
   
8.   canvas.bitmap.fill_rect(x, y, 5, 5, c)
   
9.   Graphics.update
   
10. end

复制代码

场景调用

1. class Scene_Draw
   
2.   #--------------------------------------------------------------------------
   
3.   # ● 主处理
   
4.   #--------------------------------------------------------------------------
   
5.   def main
   
6.     @canvas = Sprite.new
   
7.     @canvas.bitmap = Bitmap.new(640,480)
   
8.     @c = Color.new(255,255,255)
   
9.     # 执行过渡
   
10.     Graphics.transition
    
11.     # 主循环
    
12.     loop do
    
13.       # 刷新游戏画面
    
14.       Graphics.update
    
15.       # 刷新输入信息
    
16.       Input.update
    
17.       # 刷新画面
    
18.       update
    
19.       # 如果画面被切换就中断循环
    
20.       if $scene != self
    
21.         break
    
22.       end
    
23.     end
    
24.     # 装备过渡
    
25.     Graphics.freeze
    
26.     # 释放标题图形
    
27.     @canvas.bitmap.dispose
    
28.     @canvas.dispose
    
29.     @c.dispose
    
30.   end
    
31.   #--------------------------------------------------------------------------
    
32.   # ● 刷新画面
    
33.   #--------------------------------------------------------------------------
    
34.   def update
    
35.     if Mouse.press?(:L) # 判断按住左键
    
36.       x = Mouse.x  # 鼠标X的获取
    
37.       y = Mouse.y  # 鼠标Y的获取
    
38.       @canvas.bitmap.fill_rect(x, y, 5, 5, @c)
    
39.     end
    
40.   end
    
41. end

复制代码

ppspssss

理论上就是点一下生成一个bitmap,多起来会不会卡出翔

文雅夕露

张咚咚 发表于 2018-9-6 09:45

请问怎么写成场景里再调用呢？
暂时没有发现怎么使用啊，前辈能说明一下吗？
比如按左键才画线条等等。

ppspssss

楼主我做了个可以选顏色, 还可以用橡皮擦給你代碼參考

1.   if  Kboard.keyb($R_Key_3) and  Kboard.keyb($R_Key_CTLR)
   
2. @p_colourboard = Sprite.new if @p_colourboard == nil
   
3. @p_colourboard.x = 100
   
4. @p_colourboard.y = 100
   
5. @p_colourboard.z = 100
   
6. @p_colourboard.zoom_x = 1
   
7. @p_colourboard.zoom_y = 1
   
8. #@p_colourboard.bitmap = Bitmap.new(128,128)
   
9. @p_colourboard.bitmap = RPG::Cache.picture("Talk_Image")
   
10. end
    
11. #Talk_Image繪畫板图片

复制代码

1. if Kboard.keyb($R_Key_1) and  Kboard.keyb($R_Key_CTLR)
   
2. #pst "#{@p_colourboard.bitmap.get_pixel($mx-100,$my-100)}" if @p_colourboard != nil# P顏色用
   
3. $pen_colour = @p_colourboard.bitmap.get_pixel($mx-100,$my-100)
   
4. end
   
5. #取得鼠標标x,y ($mx,$my)坐標图片顏色作為畫筆顏色

复制代码

1. if  Kboard.keyb($R_Key_2) and  Kboard.keyb($R_Key_CTLR)
   
2. @p=[] if @p==nil
   
3. a = Sprite.new #if @p ==nil
   
4. a.bitmap = Bitmap.new(5,5)
   
5. a.x = $mx
   
6. a.y = $my
   
7. a.z=100
   
8. a.bitmap.fill_rect(0, 0, 5, 5, $pen_colour)
   
9. #pst "#{$mx},#{$my}"
   
10. @p.push(a)
    
11. end
    
12. #寫出點陣代碼

复制代码

1. #写画橡皮擦
   
2. return if @p == nil
   
3. for i in [email protected]
   
4. #pst "#{$mx},#{$my},,#{@p[i].x},#{@p[i].y}"
   
5. if ($my-10) <@p[i].y and($my+10)>@p[i].y and ($mx-10)<@p[i].x and ($mx+10)>@p[i].x
   
6. #  and
   
7. #@p[i].bitmap.clear if @p[i] != nil #*删除点画
   
8. #@p.delete_at(i) #*删除数组名(两个一起)
   
9. @p[i].bitmap.clear  
   
10. end
    
11. end

复制代码

ppspssss

ppspssss 发表于 2018-9-7 15:36
楼主我做了个可以选顏色, 还可以用橡皮擦給你代碼參考

这样还是只能画点 ,  要是画线之类的要用公式过于复杂,  还是能简侧简为好 , new多的話不会卡,因為使用 a.bitmap = Bitmap.new(5,5) 单个象素视窗只有5X5, 而我的測試50X50 畫了 100多个点都不卡
@　眠　 @张咚咚