Attractor Scripts

RhinoCommon Code

Single Point Attractor

Implemented in a Grasshopper VB.NET component.

Circle Radius

  Private Sub RunScript(ByVal P As Point3d, ByVal A As List(Of Point3d), ByRef G As Object) 
    Dim circlelist As New List (Of Circle)

    For i As Integer = 0 To A.Count - 1

      Dim distance As Double
      distance = P.DistanceTo(A(i))

      Dim radius As Double = distance * 0.015

      Dim mycircle As Circle
      mycircle = New Circle(A(i), radius)

      circlelist.Add(mycircle)

    Next

    G = circlelist

  End Sub

Circle Ripple

  Private Sub RunScript(ByVal P As Point3d, ByVal A As List(Of Point3d), ByRef G As Object) 
    Dim circlelist As New List (Of Circle)

    For i As Integer = 0 To A.Count - 1

      Dim distance As Double
      distance = P.DistanceTo(A(i))

      Dim radius As Double = 2 * Math.Sin(distance * 0.05)

      Dim mycircle As Circle
      mycircle = New Circle(A(i), radius)

      circlelist.Add(mycircle)

    Next

    G = circlelist

  End Sub

Surface Ripple

  Private Sub RunScript(ByVal P As Point3d, ByVal U As Integer, ByVal V As Integer, ByVal D As Double, ByRef S As Object) 

    Dim pointgrid As New List (Of Point3d)
    Dim mysurface As NurbsSurface

    For i As Integer = 0 To U - 1
      For j As Integer = 0 To V - 1

        Dim x As Double = i * D
        Dim y As Double = j * D

        Dim loc As Point3d = New Point3d(x, y, 0)

        Dim distance As Double
        distance = P.DistanceTo(Loc)

        Dim z  As Double = 10 * Math.Sin(distance * 0.1)

        Dim srfpt As Point3d = New Point3d(x, y, z)
        pointgrid.Add(srfpt)

      Next
    Next

    mysurface = NurbsSurface.CreateFromPoints(pointgrid, U, V, 3, 3)

    S = mysurface

  End Sub

Multi-Point Attractor

Implemented in a Grasshopper VB.NET component.

Multi-Point Circle Ripple

  Private Sub RunScript(ByVal P As List(Of Point3d), ByVal U As Integer, ByVal V As Integer, ByVal D As Double, ByRef C As Object) 

    Dim circlelist As New List (Of Circle)

    For i As Integer = 0 To U - 1
      For j As Integer = 0 To V - 1

        Dim x As Double = i * D
        Dim y As Double = j * D

        Dim loc As Point3d = New Point3d(x, y, 0)

        Dim distance As Double = 0
        Dim att  As Double = 0

        For k As Integer = 0 To P.Count - 1
          distance = distance + P(k).DistanceTo(Loc)
          att = att + (2 * Math.Sin(distance * .05))
        Next

        Dim mycircle As Circle = New Circle(loc, att)
        circlelist.Add(mycircle)

      Next
    Next

    C = circlelist

  End Sub

Multi-Point Surface Ripple

  Private Sub RunScript(ByVal P As List(Of Point3d), ByVal U As Integer, ByVal V As Integer, ByVal D As Double, ByRef S As Object) 

    Dim pointgrid As New List (Of Point3d)
    Dim mysurface As NurbsSurface

    For i As Integer = 0 To U - 1
      For j As Integer = 0 To V - 1

        Dim x As Double = i * D
        Dim y As Double = j * D

        Dim loc As Point3d = New Point3d(x, y, 0)

        Dim distance As Double = 0
        Dim att  As Double = 0

        For k As Integer = 0 To P.Count - 1
          distance = distance + P(k).DistanceTo(Loc)
          att = att + (10 * Math.Sin(distance * .1))
        Next

        Dim z As Double = att / p.Count

        Dim srfpt As Point3d = New Point3d(x, y, z)
        pointgrid.Add(srfpt)

      Next
    Next

    mysurface = NurbsSurface.CreateFromPoints(pointgrid, U, V, 3, 3)

    S = mysurface

  End Sub

Processing

Simple Attractor

import toxi.geom.*;
 
int xcount;
int ycount;
Vec3D grid[][];
 
void setup() {
  size(800, 600, P3D);
 
  background(0);
  int incr = 40;
  xcount = width/incr;    
  ycount = height/incr;
  grid = new Vec3D[xcount+1][ycount+1];
 
  for (int i=0; i<=xcount;i++) {
    for (int j=0; j<=ycount;j++) {
      grid[i][j] = new Vec3D(i*incr, j*incr, 0);
    }
  }
}
 
void draw() {
  background(0);
  stroke(255);
  noFill();
  Vec3D attpt = new Vec3D(mouseX, mouseY, 0);
 
  for (int i=0;i<=xcount;i++) {
    for (int j=0;j<=ycount;j++) {
      float distance = (attpt.distanceTo(grid[i][j]))*.05;
      ellipse(grid[i][j].x, grid[i][j].y, distance, distance);
    }
  }
}

Single-Point Ripple

Requires the Toxiclibs library

import toxi.geom.*;
 
int xcount;
int ycount;
 
Vec3D grid[][];
 
void setup() {
  size(800, 600, P3D);
 
  background(0);
  int incr = 10;
  xcount = width/incr;    
  ycount = height/incr;
  grid = new Vec3D[xcount+1][ycount+1];
 
  for (int i=0; i<=xcount;i++) {
    for (int j=0; j<=ycount;j++) {
      grid[i][j] = new Vec3D(i*incr, j*incr, 0);
    }
  }
}
 
void draw() {
  background(0);
  noStroke();
  Vec3D attpt = new Vec3D(mouseX, mouseY, 0);
 
  for (int i=0;i<=xcount;i++) {
    for (int j=0;j<=ycount;j++) {
      float distance = (attpt.distanceTo(grid[i][j]))*.1;
      float attvar = 10*sin((frameCount*-.01)+(distance*.2));
      fill(0,4*distance,255-attvar*30);
      ellipse(grid[i][j].x, grid[i][j].y, attvar, attvar);
    }
  }
}

License

The code and components on this page are free software: you can redistribute them and/or modify them under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

http://www.gnu.org/licenses/