Animation Tools

rvb Batch render - make2d

rvb batch render tool

This tool will help you save time by allowing you to batch reder and make 2d. Select your operation, output folder, extension type, and go to sleep... let your computer do the work!

Option explicit

'Script written by Adolfo Nadal

'Script by archiologics · www.archiologics.com

 

Call BatchRenderMake2d()

Sub BatchRenderMake2d()

Dim pathFolder, curView

 

Dim strResult, arrOptions(3), arrObjects

Dim FileName, blnRender 

Read more: rvb Batch render - make2d

rvb Save Animation Frames

rvb animation snippet example

This snippet will show you how to automate frame recording with rhinoscript. We used this as part of the script for the parametric kinetic wall design. It is particullarly suitable for users who do not use Bongo, and would like to create animations. Also, you can try to turn this piece of code into a class for even easier reuse. Do not hesitate to contact us for further information on its possible uses.

Option Explicit

'Script written by Adolfo Nadal

'Script by archiologics · www.archiologics.com

Call Main()

Sub Main()

' Do the geometry changing here

End Sub

Function AnimationSetup()

Dim FileFormat

FileFormat = Rhino.ListBox(Array("JPEG", "Bitmap", "Targa", "TIFF", "PCX", "Pong"), "Select a fileformat to use", "Render queue manager")

If IsNull(FileFormat) Then Exit Function

Select Case UCase(FileFormat)

Case "JPEG":FileFormat = ".jpeg"

Case "TARGA":FileFormat = ".tga"

Continue Reading... see full rvb Save Animation Frames

rvb Basic Animation

rvb animation snippet example

This script shows how to move objects with Rhinoscript.

Option Explicit

'Script written by Adolfo Nadal

'Script by archiologics · www.archiologics.com

Call Main()

Sub Main()

Dim strSphere : strSphere = Rhino.GetObject("Select Sphere", 8+16,vbTrue)

Dim strPath : strPath = Rhino.GetObject("Select Motion Path",4,vbTrue)

Dim nrFrames : nrFrames = Rhino.GetInteger("Nr of frames",20,10,200)

Dim countFrame : countFrame = 0

Dim arrPts : arrPts = Rhino.DivideCurve(strPath,nrFrames)

For countFrame = 0 To nrFrames

Rhino.MoveObject strSphere,Rhino.SurfaceVolumeCentroid(strSphere)(0),arrPts(countFrame)

Rhino.ScaleObject strSphere,Rhino.SurfaceVolumeCentroid(strSphere)(0),array(0.95,0.95,0.95)

countFrame = countFrame + 1

Next

End Sub

Search Site




archi·o·logics survey

I am interested in: