From 9d20024aa35cd7f923ebfc1ed9a2ffbf2731da70 Mon Sep 17 00:00:00 2001
From: Jakob Odersky <jodersky@gmail.com>
Date: Thu, 5 Nov 2009 21:02:40 +0000
Subject: Initial import.

---
 src/sims/prefabs/Pylon.scala | 47 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 src/sims/prefabs/Pylon.scala

(limited to 'src/sims/prefabs/Pylon.scala')

diff --git a/src/sims/prefabs/Pylon.scala b/src/sims/prefabs/Pylon.scala
new file mode 100644
index 0000000..7f3211f
--- /dev/null
+++ b/src/sims/prefabs/Pylon.scala
@@ -0,0 +1,47 @@
+/*
+ * Simple Mechanics Simulator (SiMS)
+ * copyright (c) 2009 Jakob Odersky
+ * made available under the MIT License
+*/
+
+package sims.prefabs
+
+import sims.geometry._
+import sims.dynamics._
+import sims.dynamics.joints._
+
+class Pylon extends Prefab{
+  val position: Vector2D = Vector2D(2,1)
+  val nodeDensity: Double = 100
+  val beamHeight: Double = 1
+  val beamWidth: Double = 0.5
+  val beamNumber: Int = 10
+  
+  private val nodeRow1 = (for (i <- 0 to beamNumber) yield (new Circle(0.01, nodeDensity) {
+    pos = position + Vector2D(0, i * beamHeight)}).asBody).toList
+  private val nodeRow2 = (for (i <- 0 to beamNumber) yield (new Circle(0.01, nodeDensity) {
+    pos = position + Vector2D(beamWidth, i * beamHeight)}).asBody).toList
+  
+  private val beamRow1 = (for (i <- 0 until nodeRow1.length - 1) yield
+  	new DistanceJoint(nodeRow1(i), nodeRow1(i).pos, nodeRow1(i+1), nodeRow1(i + 1).pos)).toList
+  private val beamRow2 = (for (i <- 0 until nodeRow1.length - 1) yield
+  	new DistanceJoint(nodeRow2(i), nodeRow2(i).pos, nodeRow2(i+1), nodeRow2(i + 1).pos)).toList
+  
+  private val latBeams = (for (i <- 0 to beamNumber) yield 
+  	new DistanceJoint(nodeRow1(i), nodeRow2(i))).toList
+  private val diagBeams1 = (for (i <- 0 until beamNumber) yield
+    new DistanceJoint(nodeRow1(i), nodeRow2(i + 1))).toList
+  private val diagBeams2 = (for (i <- 0 until beamNumber) yield
+    new DistanceJoint(nodeRow2(i), nodeRow1(i + 1))).toList
+  
+  
+  
+  
+  lazy val nodes = nodeRow1 ++ nodeRow2
+  lazy val beams = beamRow1 ++ beamRow2 ++ latBeams ++ diagBeams1 ++ diagBeams2
+  
+  override val bodies = nodes
+  override val joints = beams
+  
+  
+}
-- 
cgit v1.2.3