纸灯笼（附代码）

夜神

http://ncf.5d6d.com/thread-893-1-1.html
上面这位兄台提的问题，今天刚看到。

纸灯笼.jpg (31.11 KB, 下载次数: 5)

2010-6-18 13:50 上传

点击文件名下载附件
阅读权限: 10

代码刚编写的，没有好好整理，不过还好不算复杂。

option explicit
run Rhino.Integerbox("slices sum:",240),Rhino.Integerbox("waves sum:",20)

function run(n,nVp)
n=int(n/4)*4
dim cvs(3)
cvs(0)=rhino.addline(array(0,0,0),array(0,0,70))
cvs(1)=rhino.addline(array(0,0,0),array(10,0,0))
cvs(2)=rhino.addline(array(0,0,70),array(5,0,90))
cvs(3)=rhino.addcurve(array(array(10,0,0),array(10,0,20),array(30,0,40),array(50,0,60),array(50,0,90),array(40,0,100),array(25,0,105),array(15,0,100),array(5,0,90)))
dim srf : srf=rhino.AddEdgeSrf(cvs)
rhino.deleteobjects cvs
dim nU,nV : nU=1 : nV=nVp*2
dim domainU : domainU=Rhino.SurfaceDomain(srf,0)
dim domainV : domainV=Rhino.SurfaceDomain(srf,1)
dim dU: dU=(domainU(1)-domainU(0))/nU
dim dV: dV=(domainV(1)-domainV(0))/nV
dim puv() : redim puv(nU,nV)
dim pNormal,pTempUV,pTempXYZ,pTempXYZ1
dim i,j
dim alfa : alfa=360/n  'double sided
dim dAlfa
dim p  : redim p((nU+1)*(nV+1)-1)
for i=0 to nU
  for j=0 to nV
   puv(i,j)=array(domainU(0)+i*dU,domainV(0)+j*dV)
   pTempXYZ=Rhino.EvaluateSurface (srf, puv(i,j))
   pNormal=rhino.surfaceNormal(srf,puv(i,j))
   dAlfa=pTempXYZ(0)*tan(alfa*rhino.pi/180)
   pTempXYZ1=shiftPt(pTempXYZ,array(0,0,0),pNormal,0.5*dAlfa*(-1)^j*abs(1-(-1)^i))
   p(i*(nV+1)+j)=pTempXYZ1
  next
next
rhino.deleteobject srf
dim srfA,srfB
srfA=rhino.AddSrfPtGrid(array(nU+1,nV+1), p,array(1,2))
for i=0 to ubound(p)
  p(i)(1)=-p(i)(1)
next
srfB=rhino.AddSrfPtGrid(array(nU+1,nV+1), p,array(1,2))
srfB=rhino.RotateObject(srfB, array(0,0,0),alfa*2,array(0,0,1))
for i=1 to n/4
  rhino.RotateObjects array(srfA,srfB), array(0,0,0),i*(alfa*4),array(0,0,1),true
next
end function

'distance of 2 pts
function shiftPt(p,p0,p1,d)
dim pp : pp=Array(0,0,0)
dim dd : dd=sqr((p1(0)-p0(0))^2+(p1(1)-p0(1))^2+(p1(2)-p0(2))^2)
pp(0)=(d/dd)*(p1(0)-p0(0))+p(0)
pp(1)=(d/dd)*(p1(1)-p0(1))+p(1)
pp(2)=(d/dd)*(p1(2)-p0(2))+p(2)
shiftPt=pp
end function

njyqqq

楼主活雷锋啊，怎么着也的给楼主个管理员当把，{:3_51:}

skywoolf

犀利的楼主～感谢分享！{:3_57:}

stratagem

佩服楼主，为什么我看到代码之类的东西就头晕

夜神

还是个习惯问题，我看电池图也头晕，呵呵！

RRTYY

看不懂{:3_54:}

panhao1

5# 夜神

已经半年没写rs了、、、
现在都看不懂了

城市边缘工厂

前来支持一下

990628

我看见代码头疼....

marcowoo

感谢分享！学习~

董羽天

O(∩_∩)O哈哈~学习了

claudemit

学习下，谢谢lz
多读高人的代码理解着看书

tony_tsang

尴尬。。我也没看懂。。。这些数都怎么来的。。。

architc

坦白地承认，代码什么的最讨厌了。。。。

gh还能瞎琢磨一下，这rs确实让人觉得别说入门了，连找到门在哪里都很困难。

帮犀利的楼主顶一下。

麓山小农

好多字母数字，啥东东？

Line

感谢楼主的分享。
问楼主个问题，想将代码掌握熟练，是否需要数学思维很强大？
对于我这样数学一向不擅长的同志学代码要注意些什么呢，谢谢。

夜神

感谢楼主的分享。
问楼主个问题，想将代码掌握熟练，是否需要数学思维很强大？
对于我这样数学一向不擅长的同志学代码要注意些什么呢，谢谢。
Line 发表于 2010-6-19 13:48

                               
登录/注册后可看大图

其实大部分rs工作有高中数学能力就够了。代码写多了自然就熟悉了。
别人的代码看懂后一定要学着改，改成自己想要的东西，这样才算真懂了。
比如，把这个灯笼改成方的、改成葫芦形，或者把正弦波的形状改成方波或锯齿波（改成锯齿波只需要动一个字符，呵呵）……

很多高手并不是很愿意发代码，所以遇到代码一定要把里面的能量全部榨干变成自己的东西，不要玩两下不新鲜了就放一边去了。

tjhzxc

嗨，玩过processing看犀牛的看不懂啊

qiqiyunyan1986

好玩，挺好用

3972602

不错不错 O(∩_∩)O谢谢