Project1

标题: 请教可否在rm内实现画图功能? [打印本页]
作者: 文雅夕露    时间: 2018-9-6 08:52
标题: 请教可否在rm内实现画图功能?
前提是有鼠标脚本。
请问可否在rm的脚本内实现画图功能?
就是windows自带的那种简单的画图。
没有色板的噢。
请教各位前辈，谢谢。
作者: 张咚咚    时间: 2018-9-6 09:45
本帖最后由 张咚咚 于 2018-9-6 19:41 编辑
  1. canvas = Sprite.new
  2. canvas.bitmap = Bitmap.new(640,480)
  3. c = Color.new(255,255,255)

  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    时间: 2018-9-6 15:11
理论上就是点一下生成一个bitmap,多起来会不会卡出翔
作者: 文雅夕露    时间: 2018-9-6 19:32
张咚咚 发表于 2018-9-6 09:45

请问怎么写成场景里再调用呢？
暂时没有发现怎么使用啊，前辈能说明一下吗？
比如按左键才画线条等等。
作者: ppspssss    时间: 2018-9-7 15:36
本帖最后由 ppspssss 于 2018-9-7 18:01 编辑

楼主我做了个可以选顏色, 还可以用橡皮擦給你代碼參考
  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    时间: 2018-9-7 18:22
ppspssss 发表于 2018-9-7 15:36
楼主我做了个可以选顏色, 还可以用橡皮擦給你代碼參考


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




欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1