社区
GAME,图形处理/多媒体
帖子详情
转动效果
wealsh
2010-02-23 10:50:42
在画板上画一个圆框,然后在圆框上画个一点, 让它 绕着这个圆框不停的转,如何实现?谢谢。
...全文
135
5
打赏
收藏
转动效果
在画板上画一个圆框,然后在圆框上画个一点, 让它 绕着这个圆框不停的转,如何实现?谢谢。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihuasoft
2010-02-24
打赏
举报
回复
学习. 楼上代码已收藏
Rex_love_Burger
2010-02-24
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer=0;
implementation
{$R *.dfm}
procedure Circle(Canvas: TCanvas; pt: TPoint; r: Integer);
begin
Canvas.Ellipse(pt.x-r,pt.y-r,pt.x+r,pt.y+r);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pt,pt2: TPoint;
r:integer;
begin
r:=150;
pt.X:=200;
pt.Y:=200;
PaintBox1.Canvas.Brush.Color:=clBlack;
PaintBox1.Repaint;
PaintBox1.Canvas.Pen.Color := clYellow;
Circle(PaintBox1.Canvas, pt, r);
PaintBox1.Canvas.Pen.Color := clRed;
pt2.X := round(r*cos(i/180*pi))+pt.X;
pt2.Y := round(r*sin(i/180*pi))+pt.Y;
PaintBox1.Canvas.MoveTo(pt.X, pt.Y);
PaintBox1.Canvas.LineTo(pt2.X, pt2.Y);
//PaintBox1.Canvas.Pixels[pt2.X, pt2.Y]:=clRed;
inc(i);
end;
end.
dd_zhouqian
2010-02-23
打赏
举报
回复
楼主可装个directx sdk,看看demo
JPEXE
2010-02-23
打赏
举报
回复
几何问题哦!你说的那个点(A)是在圆上对吧?那它和圆心(O)的距离就是圆的半径(R),这样一来,问题就简化成点O绕着点A保持距离R转圈,则又形成了另一个圆(圆心为A,半径为R),那么圆A的这个圈就是圆O的圆心(点O)的运动轨迹(说得有点吃力-_-!),所以点O的每一个位置就都算出来了,有了圆心就能确定一个圆,后面的就不用再说了吧……自己在草稿上多画画图。
ios 全景浏览
效果
代码
ios 全景浏览
效果
代码 可上下左右前后
转动
观看
HTML5的风车
效果
HTML5实现的风车
效果
ThreeJS视频教程
什么是世界坐标,什么是当前坐标,怎么转化父子坐标系,组的优化,为什么用组,组的优势) 14-指定对象旋转中心(什么是物体的几何体中心,如何改变中心,如何绕轴
转动
) 15-层级对象渲染(多个场景一键切换,切换的...
android图片翻
转动
画
实现android图片翻转
效果
,可先到我博客看看
效果
再下载
61种flash 字体特效源文件下载
转动
文字 模拟文字围绕Y 轴作旋转,一个简单的动画;(3KB) 40,mech.zip 液晶文字 有点像是从液晶显示屏显示出来的文字
效果
,动感方面也做的不错;(9KB) 41,superholo.zip 3D文字 立体
效果
应该不是FLASH 做...
GAME,图形处理/多媒体
1,183
社区成员
14,336
社区内容
发帖
与我相关
我的任务
GAME,图形处理/多媒体
Delphi GAME,图形处理/多媒体
复制链接
扫一扫
分享
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章