易语言实现超简单的画板画线算法 (画任意直线、斜线算法)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 标题 ＝ “画线算法 - 请点击画板(右键清除)”
   
9. 
   
10. 
    
11. .子程序 画线
    
12. .参数 起点X, 整数型
    
13. .参数 起点Y, 整数型
    
14. .参数 终点X, 整数型
    
15. .参数 终点Y, 整数型
    
16. .参数 颜色, 整数型
    
17. .局部变量 距离, 整数型
    
18. .局部变量 索引, 整数型
    
19. 
    
20. 距离 ＝ 四舍五入 (求平方根 (求次方 (起点X － 终点X, 2) ＋ 求次方 (起点Y － 终点Y, 2)), ) ＋ 1
    
21. .变量循环首 (0, 距离, 1, 索引)
    
22.     画板1.画点 (线性取值 (起点X, 终点X, 索引, 距离), 线性取值 (起点Y, 终点Y, 索引, 距离), 颜色)
    
23. .变量循环尾 ()
    
24. 
    
25. 
    
26. .子程序 _画板1_鼠标左键被按下, 逻辑型
    
27. .参数 横向位置, 整数型
    
28. .参数 纵向位置, 整数型
    
29. .参数 功能键状态, 整数型
    
30. .局部变量 旧X, 整数型, 静态
    
31. .局部变量 旧Y, 整数型, 静态
    
32. 
    
33. 画线 (旧X, 旧Y, 横向位置, 纵向位置, #黑色)
    
34. 旧X ＝ 横向位置
    
35. 旧Y ＝ 纵向位置
    
36. 
    
37. 
    
38. .子程序 _画板1_鼠标右键被按下, 逻辑型
    
39. .参数 横向位置, 整数型
    
40. .参数 纵向位置, 整数型
    
41. .参数 功能键状态, 整数型
    
42. 
    
43. 画板1.清除 (, , , )
    
44. 
    
45. 
    
46. .子程序 线性取值, 双精度小数型
    
47. .参数 A, 双精度小数型
    
48. .参数 B, 双精度小数型
    
49. .参数 位置, 双精度小数型, , 范围:0~距离 值越小越接近A 值越大越接近B
    
50. .参数 距离, 双精度小数型, , A与B的距离 大于0的值
    
51. 
    
52. 返回 (B × 位置 ÷ 距离 ＋ A × (距离 － 位置) ÷ 距离)
    
53. 
    
54. .子程序 __启动窗口_尺寸被改变
    
55. 
    
56. 画板1.左边 ＝ 0
    
57. 画板1.顶边 ＝ 0
    
58. 画板1.宽度 ＝ 取用户区宽度 ()
    
59. 画板1.高度 ＝ 取用户区高度 ()
    
60. 
    
61. 
    

复制代码

淡黄的长裙

康康是什么呀

开开心心

哦懂了，原来如此

朵朵

偶来看看是什么玩意

panda45

学习一下