• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 4535|回复: 7

[郭立员] 「安卓按键」脚本实现图片旋转 [复制链接]

郭立员
头像

3分钟学堂-郭立员

  • 大学三年级
  • 325019
  • 734
  • 13
  • 1738 朵
  • 2853 个
  • 844 个
  • 20600
  • 2009-10-23
双十一绝版纪念勋章抗战胜利70周年勋章第二届“新浪&按键杯”致命连招勋章冠军勋章优秀管理员勋章图灵勋章按键图书勋章骨灰级按键用户按键精灵开发者6级教程达人发帖高手爱心大使学有所成按键元老管理人员
1#
t T
发表于 2022-03-07 17:03 | |只看楼主

大家好，我是公众号3分钟学堂的郭立员，今天继续学习安卓按键。


上期文章讲到怎么实现图片旋转，但是有一个问题，自带的命令只能实现90度及其倍数的角度旋转。


如果我想要旋转20°，35°，41°等任意角度，自带命令就无法实现。那怎么办呢？


于是我翻出了珍藏20年的初中数学课本，找到角度的正弦、余弦、正切这节课，重新温习了一遍，顿时豁然开朗了，才思泉涌，想到了解决思路。然后……


好吧，编不下去了，直接进入主题吧。


我们以图片中心点为旋转中心，进行旋转。



在图的左上角区域有一个红点，大家稍微留意一下，下面我们开始顺时针旋转45°。



旋转后红点发生了变化，我们隐去图片看一下。




这两个点有啥关系：


①相距中心点的距离相同



②角度相差45°



有了这两个关系，我们运用正弦、余弦、正切就可以根据第一点坐标，计算出旋转45度以后的坐标，因为第一点是任意的点，所以我们可以通过遍历所有点，然后在算出每个点旋转后的坐标，把颜色值直接赋值过去，就得到新的图片。


当然我知道，大家基本上数学都忘得差不多了，我也是回忆了半天才想起来的，做了一下笔记，计算出4个象限的计算公式。





按照公式套用命令代码：

  1. Dim Path = "/sdcard/pictures/b.png"
  2. Dim NewPath = "/sdcard/pictures/3k.jpg"
  3. dim PicSize = Image.Size(Path)
  4. Dim x=PicSize[1]
  5. Dim y=PicSize[2]
  6. Dim PixelData =Image.GetPicData(Path)
  7. Dim NewPixelData= Image.GetScreenData(1,1,x,y)
  8. For i = 1 To x
  9. For j = 1 To y
  10. For k = 1 To 3
  11. NewPixelData[i][j][k]=255
  12. Next
  13. Next
  14. Next
  15. Dim x0=int(x/2)
  16. Dim y0=int(y/2)
  17. Dim n=120
  18. Dim xf,yf
  19. PixelData[1][1][1] = 255
  20. PixelData[1][1][2] = 255
  21. PixelData[1][1][3]=255
  22. For i = 1 To x
  23. For j = 1 To y
  24. For k = 1 To 3
  25. xf = getx(x0, y0, i, j, n)
  26. yf = gety(x0, y0, i, j, n)
  27. // TracePrint xf,yf,k,"|",i,j,k
  28. If xf < 1 or yf < 1 or cstr(xf)="-nan" or cstr(yf)="-nan" Then
  29. xf = 1
  30. yf=1
  31. End If
  32. NewPixelData[i][j][k] = PixelData[xf][yf][k]
  33. Next
  34. Next
  35. Next
  36. Image.SavePixelData NewPixelData, NewPath


  39. Function getx(x0,y0,x1,y1,n)
  40. Dim r=Sqr((x0-x1)^2+(y0-y1)^2)
  41. Dim pi=3.14
  42. Dim t1,t2,x2,y2
  43. If x0 >= x1 and y0 >= y1 Then
  44. t1=atn((y0-y1)/(x0-x1))
  45. t2=t1+n*pi/180
  46. x2 = x0 - Cos(t2) * r
  47. If x2 > x0 * 2 Then
  48. getx = 0
  49. Else
  50. getx=round(x2)
  51. End If
  52. ElseIf x0 <= x1 and y0 >= y1 Then
  53. t1 = Atn((x1 - x0) / (y0 - y1))
  54. t2 = t1 + n * pi / 180
  55. x2 = x0 + Sin(t2) * r
  56. If x2 > x0 * 2 Then
  57. getx = 0
  58. Else
  59. getx=round(x2)
  60. End If
  61. ElseIf x1 <= x0 and y1 >= y0 Then
  62. t1 = Atn((x0 - x1) / (y1 - y0))
  63. t2 = t1 + n * pi / 180
  64. x2 = x0 - Sin(t2) * r
  65. If x2 > x0 * 2 Then
  66. getx = 0
  67. Else
  68. getx=round(x2)
  69. End If
  70. ElseIf x1 >= x0 and y1 >= y0 Then
  71. t1 = Atn((y1 - y0) / (x1 - x0))
  72. t2 = t1 + n * pi / 180
  73. x2 = x0 + Cos(t2) * r
  74. If x2 > x0 * 2 Then
  75. getx =0
  76. Else
  77. getx=round(x2)
  78. End If
  79. End If
  80. End Function


  83. Function gety(x0, y0, x1, y1, n)
  84. Dim r=Sqr((x0-x1)^2+(y0-y1)^2)
  85. Dim pi=3.14
  86. Dim t1,t2,x2,y2
  87. If x0 >= x1 and y0 >= y1 Then
  88. t1=atn((y0-y1)/(x0-x1))
  89. t2=t1+n*pi/180
  90. y2 = y0 - sin(t2) * r
  91. If y2 > y0 * 2 Then
  92. gety = 0
  93. Else
  94. gety=round(y2)
  95. End If
  96. ElseIf x0 <= x1 and y0 >= y1 Then
  97. t1 = Atn((x1 - x0) / (y0 - y1))
  98. t2 = t1 + n * pi / 180
  99. y2 = y0-cos(t2) * r
  100. If y2 > y0 * 2 Then
  101. gety = 0
  102. Else
  103. gety=round(y2)
  104. End If
  105. ElseIf x1 <= x0 and y1 >= y0 Then
  106. t1 = Atn((x0 - x1) / (y1 - y0))
  107. t2 = t1 + n * pi / 180
  108. y2 = y0 + Cos(t2) * r
  109. If y2 > y0 * 2 Then
  110. gety = 0
  111. Else
  112. gety=round(y2)
  113. End If
  114. ElseIf x1 >= x0 and y1 >= y0 Then
  115. t1 = Atn((y1 - y0) / (x1 - x0))
  116. t2 = t1 + n * pi / 180
  117. y2 = y0 + Sin(t2) * r
  118. If y2 > y0 * 2 Then
  119. gety = 0
  120. Else
  121. gety=round(y2)
  122. End If
  123. End If
  124. End Function
复制代码

旋转后的效果：



图片只能是方形的，所有超出部分被省略了，缺失部分我用白色补上了。


对于我写的这个代码可以直接用，只需要修改3处，原始图片路径，旋转后的图片路径，旋转角度变量n，n的值是正数就是逆时针，n的值是负数就是顺时针，其他就不用动了。


代码中的路径不能写错，否则会报错。


好了本期就这些内容，觉得还行，点个赞，留个言。
点赞
扫码免费获取我的基础教程【视频教程】
扫码下方二维码关注我的公众号：3分钟学堂
QQ交流群：936858410
回顶部
jy262832680
头像

脚本定制QQ:262832680

  • 官方脚本作者
  • 2991681
  • 5147
  • 0
  • 1393 朵
  • 19931 个
  • 1804 个
  • 192100
  • 2015-01-06
图灵勋章天使勋章按键明星骨灰级按键用户按键精灵开发者6级论坛GG小红帽学有所成
2#
t T
发表于 2022-03-07 22:13 | |只看该用户

看是看不懂了 还是点个赞吧

承接各类游戏脚本制作,post,手游,端游,办公,自动化

有偿解决任何按键基础问题（可远程讲解、教会为止）
如果我的回答能帮助了你,大家可以加个好友互相了解
QQ : 262832680
回顶部
ycgzs
头像

ycgzs

  • 小学五年级
  • 5233232
  • 105
  • 0
  • 110 朵
  • 784 个
  • 71 个
  • 3420
  • 2018-05-09
3#
t T
发表于 2022-05-06 16:47 | |只看该用户

没注释一脸懵逼

回顶部
ycgzs
头像

ycgzs

  • 小学五年级
  • 5233232
  • 105
  • 0
  • 110 朵
  • 784 个
  • 71 个
  • 3420
  • 2018-05-09
4#
t T
发表于 2022-06-25 15:41 | |只看该用户

代码报错:当前脚本第19行：发生运行时错误！错误代码：2，错误行号：19，错误信息： attempt to index global 'id504958454c44415441' (a null value)

回顶部
w2451288234
头像

w1364085043

  • 小学一年级
  • 8839583
  • 24
  • 0
  • 18 朵
  • 24 个
  • 24 个
  • 0
  • 2022-09-04
5#
t T
发表于 2022-09-22 22:35 | |只看该用户

,

旋转之后超出的部分被遮挡了 要是能不被遮挡就好了

回顶部
huoshanxiaozi
头像

  • 小学一年级
  • 9037934
  • 10
  • 0
  • 11 朵
  • 11 个
  • 11 个
  • 0
  • 2023-05-11
6#
t T
发表于 2023-05-12 17:15 | |只看该用户

我用电脑版做了一下，感觉更简单一些。
//Ðýתһ¶¨½Ç¶ÈÉú³ÉÐÂͼƬ£¬Í¼Æ¬´óСÓëԭͼƬÏàͬ

Call Plugin.TURING.Pixel_FromPicture("C:\Users\Administrator\Desktop\tupian\yuantu.bmp")
//Call Plugin.TURING.Pixel_Preview() //¿´Ò»ÏÂʲôÑù×Ó
imageInfo = Split(Plugin.TURING.GetImageData(), "|")//Êý×é·ÖÀë
imageWidth = imageInfo(0) // ×¢ÒâÊý×é´Ó0¿ªÊ¼,91
imageHigh = imageInfo(1)// ×¢ÒâÊý×é´Ó0¿ªÊ¼,91
cenCirX = (imageWidth - 1) / 2 //Êý×é´Ó0¿ªÊ¼
cenCirY = (imageHigh - 1) / 2 //Êý×é´Ó0¿ªÊ¼
imageColor = Split(imageInfo(2), ",")//ÑÕÉ«Êý×é·ÖÀë
newImageColor = imageColor //³õʼ»¯ÐýתºóÐγɵÄÐÂͼɫÊý×é,¹²4*91*91¸öÊý


//¿ªÊ¼Ðýת
pi = 3.1415926
For cirNum = 1 to 360
    rotaAngle = cirNum * pi / 180 //Ðýת½Ç¶È£¬»»³É»¡¶È
    For i = 0 To imageWidth - 1
        For j = 0 To imageHigh - 1
            //³õʼ»¯Ã¿¸öµã²»Ðýת
            r = sqr((i - cenCirX) * (i - cenCirX) + (j - cenCirY) * (j - cenCirY))
            sourceI = i
            sourceJ = j
            //ԲȦ·¶Î§ÄÚµÄÊý¾ÝÐèÒªÐýת
            If r <= cenCirX Then
                theta = atn((cenCirY - j) / (i - cenCirX + 0.0001))//µÃµ½½Ç¶È
                If (i - cenCirX) < 0 Then
                    theta = theta + pi
                End If
                theta = theta - rotaAngle//תÏàÓ¦½Ç¶È£¬×¢Òâ¼Ó¼õ
                sourceI = round(r * cos(theta) + cenCirX)//´ÓÄĸöIת¹ýÀ´µÄ
                sourcej = round(cenCirY - r * sin(theta))//´ÓÄĸöYת¹ýÀ´µÄ
            End If
            newImageColor(4 * i * imageHigh + 4 * j) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ)
            newImageColor(4 * i * imageHigh + 4 * j+1) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+1)
            newImageColor(4 * i * imageHigh + 4 * j+2) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+2)
            newImageColor(4 * i * imageHigh + 4 * j+3) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+3)
            
        Next
    Next
    
    //Éú³ÉÐýתºóµÄbmpͼƬ
    
    rotaImageData = imageWidth & "|" & imageHigh & "|" & Join(newImageColor, ",") //ÐýתºóµÄÊý¾Ý×Ö·û´®
    Call Plugin.TURING.LoadImageData(rotaImageData)
    Call Plugin.TURING.SaveImageData("C:\Users\Administrator\Desktop\tupian\" & cirNum & ".bmp")
    //Call Plugin.TURING.Pixel_Preview()
next



/*colorLength=0
For i = 0 To imageWidth
For j = 0 To imageHigh
//TracePrint imageColor(colorLength) //B·ÖÁ¿Öµ
//TracePrint imageColor(colorLength + 1) //G·ÖÁ¿Öµ
//TracePrint imageColor(colorLength + 2) //R·ÖÁ¿Öµ
colorLength = colorLength + 4
Next
Next
TracePrint colorLength*/

回顶部
huoshanxiaozi
头像

  • 小学一年级
  • 9037934
  • 10
  • 0
  • 11 朵
  • 11 个
  • 11 个
  • 0
  • 2023-05-11
7#
t T
发表于 2023-05-12 17:15 | |只看该用户

我用电脑版做了一下，感觉更简单一些。

Call Plugin.TURING.Pixel_FromPicture("C:\Users\Administrator\Desktop\tupian\yuantu.bmp")
//Call Plugin.TURING.Pixel_Preview() //¿´Ò»ÏÂʲôÑù×Ó
imageInfo = Split(Plugin.TURING.GetImageData(), "|")//Êý×é·ÖÀë
imageWidth = imageInfo(0) // ×¢ÒâÊý×é´Ó0¿ªÊ¼,91
imageHigh = imageInfo(1)// ×¢ÒâÊý×é´Ó0¿ªÊ¼,91
cenCirX = (imageWidth - 1) / 2 //Êý×é´Ó0¿ªÊ¼
cenCirY = (imageHigh - 1) / 2 //Êý×é´Ó0¿ªÊ¼
imageColor = Split(imageInfo(2), ",")//ÑÕÉ«Êý×é·ÖÀë
newImageColor = imageColor //³õʼ»¯ÐýתºóÐγɵÄÐÂͼɫÊý×é,¹²4*91*91¸öÊý


//¿ªÊ¼Ðýת
pi = 3.1415926
For cirNum = 1 to 360
    rotaAngle = cirNum * pi / 180 //Ðýת½Ç¶È£¬»»³É»¡¶È
    For i = 0 To imageWidth - 1
        For j = 0 To imageHigh - 1
            //³õʼ»¯Ã¿¸öµã²»Ðýת
            r = sqr((i - cenCirX) * (i - cenCirX) + (j - cenCirY) * (j - cenCirY))
            sourceI = i
            sourceJ = j
            //ԲȦ·¶Î§ÄÚµÄÊý¾ÝÐèÒªÐýת
            If r <= cenCirX Then
                theta = atn((cenCirY - j) / (i - cenCirX + 0.0001))//µÃµ½½Ç¶È
                If (i - cenCirX) < 0 Then
                    theta = theta + pi
                End If
                theta = theta - rotaAngle//תÏàÓ¦½Ç¶È£¬×¢Òâ¼Ó¼õ
                sourceI = round(r * cos(theta) + cenCirX)//´ÓÄĸöIת¹ýÀ´µÄ
                sourcej = round(cenCirY - r * sin(theta))//´ÓÄĸöYת¹ýÀ´µÄ
            End If
            newImageColor(4 * i * imageHigh + 4 * j) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ)
            newImageColor(4 * i * imageHigh + 4 * j+1) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+1)
            newImageColor(4 * i * imageHigh + 4 * j+2) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+2)
            newImageColor(4 * i * imageHigh + 4 * j+3) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+3)
            
        Next
    Next
    
    //Éú³ÉÐýתºóµÄbmpͼƬ
    
    rotaImageData = imageWidth & "|" & imageHigh & "|" & Join(newImageColor, ",") //ÐýתºóµÄÊý¾Ý×Ö·û´®
    Call Plugin.TURING.LoadImageData(rotaImageData)
    Call Plugin.TURING.SaveImageData("C:\Users\Administrator\Desktop\tupian\" & cirNum & ".bmp")
    //Call Plugin.TURING.Pixel_Preview()
next



/*colorLength=0
For i = 0 To imageWidth
For j = 0 To imageHigh
//TracePrint imageColor(colorLength) //B·ÖÁ¿Öµ
//TracePrint imageColor(colorLength + 1) //G·ÖÁ¿Öµ
//TracePrint imageColor(colorLength + 2) //R·ÖÁ¿Öµ
colorLength = colorLength + 4
Next
Next
TracePrint colorLength*/

回顶部
huoshanxiaozi
头像

  • 小学一年级
  • 9037934
  • 10
  • 0
  • 11 朵
  • 11 个
  • 11 个
  • 0
  • 2023-05-11
8#
t T
发表于 2023-05-12 17:41 | |只看该用户

我的写法

我也写了一段，感觉比你的简单一些，电脑版。
//旋转一定角度生成新图片，图片大小与原图片相同

Call Plugin.TURING.Pixel_FromPicture("C:\Users\Administrator\Desktop\tupian\yuantu.bmp")
//Call Plugin.TURING.Pixel_Preview() //看一下什么样子
imageInfo = Split(Plugin.TURING.GetImageData(), "|")//数组分离
imageWidth = imageInfo(0) // 注意数组从0开始
imageHigh = imageInfo(1)// 注意数组从0开始
cenCirX = (imageWidth - 1) / 2 //数组从0开始
cenCirY = (imageHigh - 1) / 2 //数组从0开始
imageColor = Split(imageInfo(2), ",")//颜色数组分离
newImageColor = imageColor //初始化旋转后形成的新图色数组


//开始旋转
pi = 3.1415926
For cirNum = 1 to 360
    rotaAngle = cirNum * pi / 180 //旋转角度，换成弧度
    For i = 0 To imageWidth - 1
        For j = 0 To imageHigh - 1
            //初始化每个点不旋转
            r = sqr((i - cenCirX) * (i - cenCirX) + (j - cenCirY) * (j - cenCirY))
            sourceI = i
            sourceJ = j
            //圆圈范围内的数据需要旋转
            If r <= cenCirX Then
                theta = atn((cenCirY - j) / (i - cenCirX + 0.0001))//得到角度
                If (i - cenCirX) < 0 Then
                    theta = theta + pi
                End If
                theta = theta - rotaAngle//转相应角度，注意加减
                sourceI = round(r * cos(theta) + cenCirX)//从哪个I转过来的
                sourcej = round(cenCirY - r * sin(theta))//从哪个Y转过来的
            End If
            newImageColor(4 * i * imageHigh + 4 * j) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ)
            newImageColor(4 * i * imageHigh + 4 * j+1) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+1)
            newImageColor(4 * i * imageHigh + 4 * j+2) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+2)
            newImageColor(4 * i * imageHigh + 4 * j+3) = imageColor(4 * sourceI * imageHigh + 4 * sourceJ+3)
            
        Next
    Next
    
    //生成旋转后的bmp图片
    
    rotaImageData = imageWidth & "|" & imageHigh & "|" & Join(newImageColor, ",") //旋转后的数据字符串
    Call Plugin.TURING.LoadImageData(rotaImageData)
    Call Plugin.TURING.SaveImageData("C:\Users\Administrator\Desktop\tupian\" & cirNum & ".bmp")
    //Call Plugin.TURING.Pixel_Preview()
next

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器