buckeyevr

Untitled

Feb 22nd, 2019
38
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. //MobiusStrip.bvr\n\n//Mobius Strip\n\nmobius=parametricSurface\nmobius.setMinMax=s,-1,1\nmobius.setMinMax=t,0,6.28318\nmobius.setEquation=x,((3 + s*cos(t/2))*cos(t))\nmobius.setEquation=y,((3 + s*cos(t/2))*sin(t))\nmobius.setEquation=z,(s * sin(t/2))\nmobius.setSegmentCount=30 \nmobius.spawn\n\n\n//Curve1\n\ncurve1=parametricCurve\n\ncurve1.setMinMax=t,0,6.35\ncurve1.setEquation=x,(3*cos(t)+0.2*cos(t)*sin(0.5*t))\ncurve1.setEquation=y,(3*sin(t)+0.2*sin(t)*sin(0.5*t))\ncurve1.setEquation=z,(-0.2*cos(0.5*t))\ncurve1.setSegmentCount=70\ncurve1.setThickness=0.15\ncurve1.color=red\ncurve1.spawn\n\n//Curve2\ncurve2=parametricCurve\ncurve2.setMinMax=t,0,6.35\ncurve2.setEquation=x,(3*cos(t)-0.2*cos(t)*sin(0.5*t))\ncurve2.setEquation=y,(3*sin(t)-0.2*sin(t)*sin(0.5*t))\ncurve2.setEquation=z,(0.2*cos(0.5*t))\ncurve2.setSegmentCount=70\ncurve2.setThickness=0.15\ncurve2.color=red\ncurve2.spawn\n\n
Add Comment
Please, Sign In to add comment