crystalscad 0.3.7 → 0.3.8

data/examples/openscad_examples/example001.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+size=50
+hole=25
+h = size * 2.5
+
+res = sphere(d:size)
+res -= cylinder(d:hole,h:h,center:true)
+res -= cylinder(d:hole,h:h,center:true).rotate(x:90)
+res -= cylinder(d:hole,h:h,center:true).rotate(y:90)
+		
+res.save("example001.scad")
+
+
+
+=begin
+module example001()
+{
+	function r_from_dia(d) = d / 2;
+
+	module rotcy(rot, r, h) {
+		rotate(90, rot)
+			cylinder(r = r, h = h, center = true);
+	}
+
+	difference() {
+		sphere(r = r_from_dia(size));
+		rotcy([0, 0, 0], cy_r, cy_h);
+		rotcy([1, 0, 0], cy_r, cy_h);
+		rotcy([0, 1, 0], cy_r, cy_h);
+	}
+
+	size = 50;
+	hole = 25;
+
+	cy_r = r_from_dia(hole);
+	cy_h = r_from_dia(size * 2.5);
+}
+
+example001();
+=end
+

data/examples/openscad_examples/example002.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+# note that center:true doesn't work with cube
+# however, there are convenience methods like 
+# center, center_x, center_y, center_xy, center_z available.
+# As rule of thumb, avoid center if possible.
+
+res1 = cube([30,30,30]).center
+res1+= cube([15,15,50]).center.translate(z:-25)
+
+res2 = cube([50,10,10]).center
+res2+= cube([10,50,10]).center
+res2+= cube([10,10,50]).center
+
+res = res1-res2
+res*=cylinder(r1:20,r2:5,h:50,center:true).translate(z:5)
+
+res.save("example002.scad")
+
+
+
+
+
+=begin
+module example002()
+{
+	intersection() {
+		difference() {
+			union() {
+				cube([30, 30, 30], center = true);
+				translate([0, 0, -25])
+					cube([15, 15, 50], center = true);
+			}
+			union() {
+				cube([50, 10, 10], center = true);
+				cube([10, 50, 10], center = true);
+				cube([10, 10, 50], center = true);
+			}
+		}
+		translate([0, 0, 5])
+			cylinder(h = 50, r1 = 20, r2 = 5, center = true);
+	}
+}
+
+example002();
+=end
+
+

data/examples/openscad_examples/example003.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+
+def example003
+  res1 = cube([30,30,30]).center
+  res2 = nil # either initialize it with a CrystalScadObject or nil as we do a += on it later on
+  [[1,0,0],[0,1,0],[0,0,1]].each do |x,y,z| 
+    res1+= cube([15+x*25,15+y*25,15+z*25]).center
+    res2+= cube([10+x*40,10+y*40,+10+z*40]).center
+  end
+  res1-res2  
+end
+
+example003.save("example003.scad")
+
+
+=begin
+
+module example003()
+{
+	difference() {
+		union() {
+			cube([30, 30, 30], center = true);
+			cube([40, 15, 15], center = true);
+			cube([15, 40, 15], center = true);
+			cube([15, 15, 40], center = true);
+		}
+		union() {
+			cube([50, 10, 10], center = true);
+			cube([10, 50, 10], center = true);
+			cube([10, 10, 50], center = true);
+		}
+	}
+}
+
+example003();
+
+=end
+

data/examples/openscad_examples/example004.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+
+def example004
+  cube([30,30,30]).center-sphere(d:40)
+end
+
+example004.save("example004.scad")
+
+
+=begin
+
+
+module example004()
+{
+	difference() {
+		cube(30, center = true);
+		sphere(20);
+	}
+}
+
+example004();
+
+
+=end
+

data/examples/openscad_examples/example005.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+
+# note that openscad works with radians automatically and ruby doesn't.
+def radians(a)
+  a/180.0 * Math::PI
+end
+
+def example005
+  # base 
+  res = cylinder(d:200,h:50)
+  res -= cylinder(d:160,h:50).translate(z:10)
+  res -= cube([50,50,50]).center.translate(x:100,z:35)   
+  
+  # pylons
+  (0..5).each do |i|
+    res+= cylinder(d:20,h:200).translate(x:Math::sin(radians(360*i/6))*80,y:Math::cos(radians(360*i/6))*80) 
+  end
+
+  # roof
+  res += cylinder(d1:240,d2:0,h:80).translate(z:200)  
+  
+  res.translate(z:-120)
+end
+
+example005.save("example005.scad")
+
+
+=begin
+
+
+
+module example005()
+{
+	translate([0, 0, -120]) {
+		difference() {
+			cylinder(h = 50, r = 100);
+			translate([0, 0, 10]) cylinder(h = 50, r = 80);
+			translate([100, 0, 35]) cube(50, center = true);
+		}
+		for (i = [0:5]) {
+			echo(360*i/6, sin(360*i/6)*80, cos(360*i/6)*80);
+			translate([sin(360*i/6)*80, cos(360*i/6)*80, 0 ])
+				cylinder(h = 200, r=10);
+		}
+		translate([0, 0, 200])
+			cylinder(h = 80, r1 = 120, r2 = 0);
+	}
+}
+
+example005();
+
+
+=end
+

data/examples/printed_gear.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+  
+g1 = PrintedGear.new(module:2.0,teeth:40,bore:5,height:4)
+g2 = PrintedGear.new(module:2.0,teeth:20,bore:5,height:4,rotation:0.5) # rotation in number of teeth
+
+res = g1.show.color("red").rotate(z:"$t*360")
+res += g2.show.rotate(z:"-$t*360*#{g1.ratio(g2)}").translate(x:g1.distance_to(g2))
+
+res.save("printed_gear.scad")
+

data/examples/threads2.rb

@@ -0,0 +1,102 @@
+#!/usr/bin/ruby1.9.3
+require "rubygems"
+require "crystalscad"
+include CrystalScad
+
+# This example shows the use of ScrewThreads in CrystalScad.
+
+class CustomPartWithFemaleThread < CrystalScad::Assembly
+	# this could be something like a tslot-nut
+
+	def initialize
+		@x=8
+		@y=20
+		@z=8
+	end
+	
+	def show
+		res = cube([@x,@y,@z]).color(r:180,b:180,g:180)
+		res -= threads_top.map(&:show) # - tries output normally, we want show here
+	end
+
+	def threads_top
+		holes =*ScrewThread.new(x:@x/2,y:@y/2+3,size:4,depth:@z)
+	end 
+
+end
+
+
+class CustomPartWithMaleThread < CrystalScad::Assembly
+	def initialize
+		@x=50
+		@y=50
+		@z=15
+	end
+
+	def show
+		res = cube([@x,@y,@z]).color(r:200,b:200,g:200,a:100)
+		res += threads
+
+	end
+
+	def threads_top
+		holes =*ScrewThread.new(x:@x/2+2,y:@y/2+2,z:@z,size:4,depth:@z)
+	end 
+
+	def threads_bottom
+		holes =*ScrewThread.new(x:@x/2+2,y:@y/2+2,z:0,size:4,depth:@z,face:"bottom")
+	end 
+
+	def threads_left
+		holes =*ScrewThread.new(x:0,y:10,z:8,size:4,depth:10,face:"left")
+	end 
+
+	def threads_right
+		holes =*ScrewThread.new(x:@x,y:15,z:3,size:4,depth:10,face:"right")
+	end 
+
+	def threads_front
+		holes =*ScrewThread.new(x:25,y:0,z:11,size:4,depth:10,face:"front")
+	end 
+
+	def threads_back
+		holes =*ScrewThread.new(x:25,y:@y,z:11,size:4,depth:10,face:"back")
+	end 
+
+end
+
+
+female=CustomPartWithFemaleThread.new
+male =CustomPartWithMaleThread.new
+
+pos = male.threads_top.first.position_on(female.threads_top.first)
+
+res = male.show
+res += female.show.translate(pos)
+
+rotation = {}
+pos = male.threads_bottom.first.position_on(female.threads_top.first,rotation)
+res += female.show.rotate(rotation).mirror(z:1).translate(pos)
+
+
+rotation = {y:-90}
+pos = male.threads_left.first.position_on(female.threads_top.first,rotation)
+res += female.show.rotate(rotation).translate(pos)
+
+rotation = {y:90}
+pos = male.threads_right.first.position_on(female.threads_top.first,rotation)
+res += female.show.rotate(rotation).translate(pos)
+
+
+rotation = {x:90}
+pos = male.threads_front.first.position_on(female.threads_top.first,rotation)
+# testing rotate_around here
+res += female.show.rotate_around(female.threads_top.first,z:90).rotate(rotation).translate(pos)
+
+
+rotation = {x:-90}
+pos = male.threads_back.first.position_on(female.threads_top.first,rotation)
+res += female.show.rotate(rotation).translate(pos)
+
+
+res.save("threads2.scad")

data/lib/crystalscad/Assembly.rb

@@ -76,6 +76,24 @@ module CrystalScad
 	  def scad_output()
 	    return self.output.scad_output
 	  end 
+		
+		def threads
+			a = []
+			[:threads_top,:threads_bottom,:threads_left,:threads_right,:threads_front,:threads_back].each do |m|
+				if self.respond_to? m
+					ret = self.send m
+					unless ret == nil
+						if ret.kind_of? Array
+							a+= ret
+						else
+							a << ret
+						end
+					end				
+				end
+			end
+
+			return a
+		end
 
 	end
 

data/lib/crystalscad/CrystalScad.rb

@@ -75,6 +75,11 @@ module CrystalScad
 			self
 		end
 
+		def rotate_around(point,args)
+			x,y,z= point.x, point.y, point.z
+			self.translate(x:-x,y:-y,z:-z).rotate(args).translate(x:x,y:y,z:z)
+		end
+
 		def translate(args)
 			@transformations << Translate.new(args)		
 			self			
@@ -97,13 +102,13 @@ module CrystalScad
 
 	class Rotate < Transformation
 		def to_rubyscad
-			return RubyScadBridge.new.rotate(@args)		
+			return RubyScadBridge.new.rotate(@args).gsub('"','')		
 		end	
 	end
 
  	class Translate < Transformation
 		def to_rubyscad
-			return RubyScadBridge.new.translate(@args)		
+			return RubyScadBridge.new.translate(@args).gsub('"','')		
 		end	
 	end
 	
@@ -152,6 +157,10 @@ module CrystalScad
 			self
 		end
 
+		def center
+			@transformations << Translate.new({x:-@x/2,y:-@y/2,z:-@z/2})
+			self
+		end
 	
 		def to_rubyscad
 			return RubyScadBridge.new.cube(@args)		
@@ -169,6 +178,17 @@ module CrystalScad
 		end	
 		Cube.new(args)	
 	end
+	
+	class Sphere < Primitive
+		def to_rubyscad	
+			return RubyScadBridge.new.sphere(@args)		
+		end	
+	end
+
+	def sphere(args)
+		Sphere.new(args)		
+	end
+		
 
 	#	2d primitives
 	class Square < Primitive
@@ -297,7 +317,7 @@ module CrystalScad
 			args.each do |a|
 				if a.respond_to? :output
 					r = Difference.new(r,a.output)	
-				else
+				else	
 					r = Difference.new(r,a)	
 				end
 			end

data/lib/crystalscad/Gears.rb

@@ -18,7 +18,6 @@ module CrystalScad::Gears
 
   class Gear < CrystalScad::Assembly
     # this library is to be used to easily work with gears and their distances to each other
-    # TODO: maybe at some point port the publicDomainGear.scad into it?
 
     attr_reader :module, :teeth, :height, :hub_dia, :hub_height
     
@@ -60,10 +59,87 @@ module CrystalScad::Gears
         raise "You cannot use two gears with different gear modules."
         return
       end
-      return (@module * (@teeth + other_gear.teeth))/2.0
+      return (@module.to_f * (@teeth.to_f + other_gear.teeth.to_f))/2.0
+    end
+    
+    def ratio(other_gear)
+      @teeth.to_f / other_gear.teeth.to_f
     end
     
   end 
+
+  # Acts the same as Gear, but does produce printable output
+  class PrintedGear < Gear
+
+    def initialize(args={})
+      super
+      @pressure_angle = args[:pressure_angle] || 20
+      @clearance = args[:clearance] || 0.0
+      @backlash = args[:backlash] || 0.0
+      @twist = args[:twist] || 0.0
+      @teeth_to_hide = args[:teeth_to_hide] || 0.0
+     
+      @rotation = args[:rotation] || 0.0 # rotation in teeth 
+    end
+  
+    def show
+      output
+    end
+    
+    # ported from publicDomainGearV1.1.scad
+    def output
+      p = @module * @teeth / 2.0
+      c  = p + @module - @clearance       # radius of pitch circle
+	    b  = p*Math::cos(radians(@pressure_angle))         # radius of base circle
+    	r  = p-(c-p)-@clearance             # radius of root circle
+    	t  = (@module*Math::PI)/2.0-@backlash/2.0     # tooth thickness at pitch circle
+    	k  = -iang(b, p) - t/2.0/p/Math::PI*180    # angle to where involute meets base circle on each side of tooth
+	    
+	    points=[
+								[0, -@hub_dia/10.0],
+								polar(r, -181/@teeth.to_f),
+								polar(r, r<b ? k : -180/@teeth.to_f),
+								q7(0/5,r,b,c,k, 1),q7(1/5,r,b,c,k, 1),q7(2/5,r,b,c,k, 1),q7(3/5,r,b,c,k, 1),q7(4/5,r,b,c,k, 1),q7(5/5,r,b,c,k, 1),
+								q7(5/5,r,b,c,k,-1),q7(4/5,r,b,c,k,-1),q7(3/5,r,b,c,k,-1),q7(2/5,r,b,c,k,-1),q7(1/5,r,b,c,k,-1),q7(0/5,r,b,c,k,-1),
+								polar(r, r<b ? -k : 180/@teeth.to_f),
+								polar(r, 181/@teeth.to_f)
+							]
+			paths=[(0..16).to_a]
+      
+      res = CrystalScadObject.new
+      (0..@teeth-@teeth_to_hide-1).each do |i|
+        res+= polygon(points:points,paths:paths).linear_extrude(h:@height,convexity:10,center:false,twist:@twist).rotate(z:i*360/@teeth.to_f)
+      end
+
+     res-= cylinder(h:@height+0.2,d:@bore).translate(z:-0.1)
+     res.rotate(z:@rotation*360.0/@teeth)
+    end
+
+    def radians(a)
+      a/180.0 * Math::PI
+    end
+  
+    def degrees(a)
+      a*180 /  Math::PI
+    end
+  
+    def polar(r,theta)
+      [r*Math::sin(radians(theta)), r*Math::cos(radians(theta))]  #convert polar to cartesian coordinates
+    end
+    
+    def iang(r1,r2) 
+      Math::sqrt((r2/r1)*(r2/r1) - 1)/Math::PI*180 - degrees(Math::acos(r1/r2)) #//unwind a string this many degrees to go from radius r1 to radius r2
+    end
+    
+    def q7(f,r,b,r2,t,s)
+      q6(b,s,t,(1-f)*[b,r].max+f*r2) #radius a fraction f up the curved side of the tooth 
+    end
+    
+    def q6(b,s,t,d)
+      polar(d,s*(iang(b,d)+t)) # point at radius d on the involute curve
+    end
+  
+  end
   
 end
 

data/lib/crystalscad/ScrewThreads.rb

@@ -17,7 +17,7 @@ module CrystalScad::ScrewThreads
 	class ScrewThread
 		# I would name this Thread but that's already taken by something else
 
-		attr_accessor :x,:y,:z,:size, :depth
+		attr_accessor :x,:y,:z,:size, :depth, :face
 
 		def initialize(args={})
 			@x = args[:x] || 0
@@ -25,6 +25,52 @@ module CrystalScad::ScrewThreads
 			@z = args[:z] || 0
 			@depth = args[:depth] 		
 			@size = args[:size]
+			@face = args[:face] || :top
+		end
+
+		def rotation
+			case @face.to_s
+				when "top"
+					return {}
+				when "bottom"
+					return {y:180}
+				when "left"
+					return {y:-90}
+				when "right"
+					return {y:90}
+				when "front" # checkme
+					return {x:90}
+				when "back"
+					return {x:-90}
+			end				
+		end
+
+		def show
+			cylinder(d:@size,h:@depth).rotate(rotation).translate(x:@x,y:@y,z:@z).color(r:130,g:130,b:130)
+		end
+
+		def orientation_swap_to(coords,rotation)
+			if rotation[:x].to_i == -90
+				return [coords[0],coords[2],-coords[1]]
+			end			
+			if rotation[:x].to_i == 90
+				return [coords[0],-coords[2],coords[1]]
+			end			
+			if rotation[:y].to_i == -90
+				return [coords[2],coords[1],coords[0]]
+			end			
+			if rotation[:y].to_i == 90
+				return [-coords[2],coords[1],-coords[0]]
+			end			
+	
+		return coords
+		end
+
+		def position_on(other_thread,rotation={})
+			oc = other_thread.x, other_thread.y, other_thread.z
+			oc = orientation_swap_to(oc,rotation)
+	
+			return {x:@x-oc[0],y:@y-oc[1],z:@z-oc[2]}	
 		end
 
 	end
@@ -39,7 +85,7 @@ module CrystalScad::ScrewThreads
 
 		# we need to know obj1 height (if not supplied by user)
 		height ||= args[:height]			
-		case face
+		case face.to_s
 			when "top"
 				height ||= obj1.z rescue nil
 			when "bottom"
@@ -92,7 +138,6 @@ module CrystalScad::ScrewThreads
 		ret = []
 		holes.each_with_index do |hole,i|
 			bolt = Bolt.new(hole.size,bolt_heights[i])
-			puts bolt_heights[i]
 		  case face
 				when "top"
 					bolt.transformations << Rotate.new(x:180)	
@@ -117,6 +162,6 @@ module CrystalScad::ScrewThreads
 		end
 		
 		ret
-end	
+	end	
 
 end

data/lib/crystalscad/version.rb

@@ -1,4 +1,4 @@
 module CrystalScad
-  VERSION = "0.3.7"
+  VERSION = "0.3.8"
 end
 

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: crystalscad
 version: !ruby/object:Gem::Version 
-  hash: 29
+  hash: 3
   prerelease: 
   segments: 
   - 0
   - 3
-  - 7
-  version: 0.3.7
+  - 8
+  version: 0.3.8
 platform: ruby
 authors: 
 - Joachim Glauche
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2013-12-29 00:00:00 Z
+date: 2014-01-05 00:00:00 Z
 dependencies: 
 - !ruby/object:Gem::Dependency 
   name: rubyscad
@@ -63,8 +63,15 @@ files:
 - Rakefile
 - crystalscad.gemspec
 - examples/gear.rb
+- examples/openscad_examples/example001.rb
+- examples/openscad_examples/example002.rb
+- examples/openscad_examples/example003.rb
+- examples/openscad_examples/example004.rb
+- examples/openscad_examples/example005.rb
+- examples/printed_gear.rb
 - examples/stack.rb
 - examples/threads.rb
+- examples/threads2.rb
 - lib/crystalscad.rb
 - lib/crystalscad/Assembly.rb
 - lib/crystalscad/BillOfMaterial.rb