# Hair From Points

This rhino script allows the user to create highly varied, yet controllable, low polygon count “hairs”. This script operates based on the world coordinate system, growing upwards from a user-selected series of points. The user is given the option to specify the range of lengths (min-max), the range of bending per segment, and the base and tip radius. The user can control the number of segments the blade will have, the more segments, the smoother the bend, the greater the polygons. In addition as part of the interest in polygon optimization, the user can specify the number of sides on each blade, a 2 sided blade is flat, 3 sided become three dimensional (triangular), 4 rectangular, etc. the higher the number the rounder it is, the higher the polygon count.

## Rhino Script

```Option Explicit
'Script written by <David Mans>
'Script version Sunday, July 05, 2009 9:42:52 PM
Call Main()
Sub Main()
Dim arrPts, arrInputs
arrPts = Rhino.GetObjects("Select Points", 1)
If isNull(arrPts) Then Exit Sub
arrInputs = Rhino.PropertyListBox(array("Min Length", "Max Length", "Min Hair Bend", "Max Hair Bend", "Base Radius", "Tip Radius", "Segments", "Sides"), array(4, 12, 10, 45, 0.1, 0.01, 5, 2))
If isNull(arrInputs) Then Exit Sub
If CInt(arrInputs(7)) < 2 Then
sides = 2
Else
sides = CInt(arrInputs(7))
End If
Call Rhino.EnableRedraw(False)
For i = 0 To uBound(arrPts) Step 1
stem(i) = segmentedStem(Rhino.PointCoordinates(arrPts(i)), random(CDbl(arrInputs(0)), CDbl(arrInputs(1))), CInt(arrInputs(6)), random(CDbl(arrInputs(2)), CDbl(arrInputs(3)))) blades(i) = bladesFlat(stem(i), CDbl(arrInputs(4)), CDbl(arrInputs(5)), sides)
Next
Call Rhino.EnableRedraw(True)
End Sub
Dim i, j, k, r, arrOutput
Dim arrPoints(),arrFaces(), arrMesh()
ReDim arrMesh(intSteps-1)
Else
End If
rotStep = 360 / intSteps
For k = 0 To intSteps - 1 Step 1
r = 0
For i = 0 To uBound(arrPlanes) Step 1
ReDim Preserve arrPoints(r)
r = r + 1
ReDim Preserve arrPoints(r)
r = r + 1
Next
r = 0
ReDim arrFaces(uBound(arrPoints)-2)
For i = 0 To uBound(arrPoints) - 2 Step 2
arrFaces(r) = array(i, i + 1, i + 3, i + 3)
r = r + 1
arrFaces(r) = array(i, i + 3, i + 2, i + 2)
r = r + 1
Next
If intSteps = 2 Then
If k = 1 Then
End If
Else
End If
Next
If intSteps >< 2 Then
arrOutput = Rhino.MeshBooleanUnion(arrMesh)
End If
End Function
Function segmentedStem(arrPoint, dblHeight, dblSegments, maxRotation)
segmentedStem = Null
Dim i, count
count = dblSegments - 1
Dim dblStep, tempLen, dblLen()
Dim mPlane(), tmpAngle(1), blnWavy
ReDim dblLen(count), mPlane(count+1)
mPlane(0) = Rhino.MovePlane(Rhino.RotatePlane(Rhino.WorldXYPlane(), random(0, 360), Rhino.WorldXYPlane()(3)), arrPoint)
blnWavy = random(-1, 1)
dblStep = dblHeight / dblSegments
For i = 0 To count Step 1
If i = 0 Then
tempLen = random(0.5, 1) * dblStep
dblLen(i) = dblStep - tempLen
ElseIf i = count Then
tempLen = dblStep + dblLen(i - 1)
Else
tempLen = random(0.5, 1) * (dblStep + dblLen(i - 1))
dblLen(i) = dblStep + dblLen(i - 1) - tempLen
End If
If blnWavy >= 0 Then
tmpAngle(0) = random(0, maxRotation)
tmpAngle(1) = random(0, maxRotation)
Else
tmpAngle(0) = random(-maxRotation, 0)
tmpAngle(1) = random(-maxRotation, 0)
End If
mPlane(i + 1) = Rhino.RotatePlane(Rhino.RotatePlane(Rhino.moveplane(mPlane(i), Rhino.PointAdd(mPlane(i)(0), Rhino.VectorScale(Rhino.VectorUnitize(mPlane(i)(3)), tempLen))), tmpAngle(0), mPlane(i)(1)), tmpAngle(1), mPlane(i)(2))
Next
segmentedStem = mPlane
End Function
Function random(min, max)
random = Null
Dim dblValue: dblValue = min + (max - min) * rnd()
random = dblValue
End Function```