在下碰到的一个难题(关于图象移动过程中的螺旋路径算法),请各位帮忙解决,万分感谢!(200分)

  • 主题发起人 主题发起人 jiaai
  • 开始时间 开始时间
J

jiaai

Unregistered / Unconfirmed
GUEST, unregistred user!
如何能够使图片在移动的过程中的效果和PowerPoint做幻灯片中的螺旋效果一样。给出具体的
算法代码,如可用马上结贴!
 
用OPENGL吗?
 
没有,我现在只想要算法,不想用其他的控件之类的!
 
按阿基米德螺旋曲线建立运动路径就成了
 
版主:卷起千堆雪tyn, menxin 可以帮忙看一下吗或给个思路谢谢
 
是问题太难还是DFW没有高手!!!!!!!!!!!!!!!!!
 
这里有几个例子,不一定和你的胃口,也许有些帮助,你的email?
 
you@newlysoft.com
 
真的没人会吗
 
楼主:阿基米德螺旋线你应该知道吧
以R为半径,转90度,再以2R为半径,转90度,再以4R为半径,转90度。。。。
当然也可以反过来。
写一个算法
R:integer;//半径
alpha:integer;//角度
j:integer;
x,y :integer;//运动轨迹
x0.y0:integer;//原点
x0:=400;
y0:=300;//假设屏幕为600*800
while r<400 do
begin
for j:=0 to 89 do
begin
x:=r*cos((alpha+j)*(3.1415926/180))+x0;
y:=r*sin((alpha+j)*(3.1415926/180))+y0;
end;
alpha:=(alpha+90) mod 360;
case alpha do
0..89:begin
y0:=y0+r;
end;
90..179:begin
x0:=x0+r;
end;
180..269:begin
y0:=y0-r;
end;
270..359:begin
x0:=x0-r;
end;
end;
r:=2*r;
end;//x,y为运动轨迹。试试看吧,以上程序没有上机测试。
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部