[DevTip] Rhino 3D에서 sine파형 그리기
Rhino 3D에서 사인파를 그릴 일이 있었는데, 방법을 몰라 한참 헤멨다. Visual Basic Script를 사용하면 될 것 같았는데, VB은 쓸 줄 몰라서 배워서 하기에도 그렇고... 일단 구글에서 검색하니 http://www.supermanoeuvre.com/blog/?p=92 에서 스크립트가 나온다. 스크립트 본문을 옮기자면... -------------------------------------------------------------------- Option Explicit 'Script written by www.supermanoeuvre.com Call math_SinWave() Sub math_SinWave() Dim dblWavelength : dblWavelength = 1 Dim intPts2Plot : intPts2Plot = 50 Dim dblMagnitude : dblMagnitude = 0.5 Dim dblFrequency : dblFrequency = 1 Dim i Dim uStep, tParam ReDim arrPtSet1(intPts2Plot), arrPtSet2(intPts2Plot) uStep = dblWavelength / intPts2Plot ''' EXAMPLE: Classic sine()wave formula tParam = ((2 * PI)*dblFrequency) / intPts2Plot ''' EXAMPLE: Shortened wave period ' tParam = ((2 *(PI/3))*dblFrequency) / intPts2Plot For i = 0 To intPts2Plot ' Traditional Direction arrPtSet1(i) = Array( i*uStep, Sin(i*tParam)...