第十一节_RhinoScript教程.pptVIP

下载本文档

169
0
约7.42千字
约 54页
2016-08-07 发布于浙江
举报
版权申诉

第十一节_RhinoScript教程.ppt

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

\ForClass\ AnotherBogusFunction_ByReference.rvb Sub Main() Dim intA, intB, dblC intA = 4 intB = 7 dblC = AnotherBogusFunction(intA, intB) Call Rhino.Print(A: intA , B: intB , C: dblC) End Sub Function AnotherBogusFunction(ByRef intNumber1, ByRef intNumber2) intNumber1 = intNumber1 + 1 intNumber2 = intNumber2 + 2 AnotherBogusFunction = intNumber1 * intNumber2 End Function 子过程（引用） Option Explicit Script written by insert name Script copyrighted by insert company name Script version 2013年11月25日 20:16:03 Call Main() Sub Main() Dim arrPoints arrPoints = Rhino.GetPoints(True,,Pick 3 or 4 corner points) If IsArray(arrPoints) Then Rhino.AddSrfPt arrPoints End If End Sub AddSrfPt.rvb Sub Main() Dim Plane, Radius, m Plane = Rhino.WorldXYPlane Radius = Rhino.GetReal(input a number) For m = 0 To 10 Step 1 If (Radius + m) 30 Then Rhino.AddCircle Plane, Radius + m Else rhino.Printthe circle is really big End If Next End Sub 06_递归的应用 07_递归的应用2.rvb 2.01_ControlPoint控制点曲线.rvb Log(sin(x)+Sin(y)+2.01) Cos(Sqr(x^2+y^2)) Sin(D+A) Sin(x)+Sin(y) 2.02_网格的单元格.rvb 2.03_控制点影响的Pattern.rvb 2.04_曲线影响的Pattern分布.rvb 3.01_内旋海螺曲面.rvb Sub main() n = 60 m = 15 Dim pts() ReDim pts(n*m-1) For i=0 To n-1 u = Rhino.pi*i/(n-1) For j = 0 To m-1 v = 5/2*Rhino.pi*j/(m-1) pts(i*m+j) = surface(u,v) Next Next Rhino.addSrfPtGrid Array(n,m), pts End Sub Function surface(u,v) x=1.2^v*(sin(u)^2 *sin(v)) y=1.2^v*(sin(u)*cos(u)) z=1.2^v*(sin(u)^2 *cos(v)) surface = Array(x,y,z) End Function 3.04极小曲面5.rvb 部分案例分析 GENERATIVE ALGORITHMS CONCEPTS and EXPERIMENTS: WEAVING ZUBIN KHABAZI 第十一讲 RhinoScript教程（参考资料）RhinoScript Primer_Chinese Edition Data Stream Matching*（匹配数据流） NURBS 代表着Non-Uniform Rational [Basic/Basis] Spline，而并不是一些人所认为的 Bézier-Spline。 Bézier 样条曲线是NURBS 曲线的一个子集。所有的NURBS 曲线都有一个代表度（degree阶数）的数字。一条曲线的度数总是一个位于1 到11 之间的正整数。一条曲线的读书用DN 来表示。因而D1 就代