Author Information

aplesch

Offline

Last seen: 7 years 38 weeks ago

Joined: 05/10/2015

Author's blogs

X3D: behind-the-scenes

23/12/2015 - 14:56:38
more gears, fast

11/11/2015 - 01:28:48
general smoothness

02/11/2015 - 08:18:08
smoother gears

30/10/2015 - 07:33:05
helical gears

26/10/2015 - 04:09:02
3d involute gears

21/10/2015 - 07:30:11
involute gear

16/10/2015 - 22:49:13
circle involute

09/10/2015 - 06:50:27
Flying Boxes

07/10/2015 - 00:07:10
A paper dragon

05/10/2015 - 15:41:53

involute gear

Submitted by aplesch on Fri, 16/10/2015 - 22:49

It turned out that producing a set of involute gears requires quite a bit of geometry in addition to involutes.

It is useful to get familiar with gear terminology and with the special properties of an involute of a circle. In particular, it is necessary to figure the angular width of a tooth at the base circle which is where the involute, curved section of a tooth begins.

So there is a lot to explain in this logo program.

Next steps include to figure out why there is a slight overlap between teeth from both gears, and to make the gears 3d with some depth. Is there a way to use the extrusion functionality of x3d ?

[Update: the initial configuration was slightly off. Scene and logo updated.]

Well, here is the logo:

; involute: draw involute
; rb: base radius
; limit: max. generating angle
; steps: number of segments on involute to draw
 
TO involute :rb :limit :steps
 
  LOCALMAKE "start POS
  LOCAL "end
  LOCALMAKE "i 0
  LOCALMAKE "step 0.5 * :limit / :steps
  ;(print :step :steps)
  PU
 
  REPEAT ABS(:steps)
  [
    MAKE "i :i + :step
    ;move along circle
    LT :step
    FD 2 * :rb * SIN :step
    ;find tangent
    RT 180 - :step
    ;unroll string
    FD 2 * :i * :deg2rad * :rb 
    MAKE "end POS
    ;connect end points
    PD
    SETPOS :start
    ;move back
    PU
    SETPOS :end
    MAKE "start :end
    BACK 2 * :i * :deg2rad * :rb
    ;turn forward
    LT 180
    ;nextcolor
  ]
  SETPOS :start
 
END
 
; gearinvolute: draw involute side of gear tooth
; rb: base radius
; PA: pressure angle
; P: diametral pitch
; steps: number of subdivisions
 
TO gearinvolute :rb :PA :P :steps
 
  LOCALMAKE "a 1 / :P
  LOCALMAKE "ro ( :rb / COS :PA ) + :a
  ;calculate generating angle for top of tooth
  ;(needs drawing)
  LOCALMAKE "l2 :ro ^ 2 - :rb ^ 2
  LOCALMAKE "limit ( SQRT :l2 ) / :rb
  involute :rb (:limit / :deg2rad) :steps
 
END
 
; geartooth: draw one full tooth
; rp: radius of pitch circle
; PA: pressure angle
; P: diametral pitch
; hdelta: half angular base width (expected)
; segments: number of subdivisions on each side
 
TO geartooth :rp :PA :P :hdelta :segments
 
  LOCALMAKE "rb :rp * COS :PA
  LOCALMAKE "clr (2.157 - 2) / :P ;coarser 20P
  LOCALMAKE "ddif (1/:P + :clr) - (:rp - :rb)
  RT 90
  FD :ddif
  LT 90
 
  ; save position
  LOCALMAKE "base POS
  LOCALMAKE "head HEADING
 
  gearinvolute :rb :PA :P :segments
 
  ;mirror
  ;or draw with negative step
  LOCALMAKE "top POS
  SETPOS :base
  SETHEADING :head
  ;turn and move to other side of tooth
  ;half angular base width
  LT :hdelta
  FD 2 * :rb * ( SIN ( :hdelta ) )
  LT :delta / 2
  ;save pos
  MAKE "base POS
  MAKE "head HEADING
  ;draw other side
  gearinvolute :rb :PA :P :segments * -1
 
  ;connect sides at top
  PD SETPOS :top PU
 
  SETPOS :base
  SETHEADING :head
 
  PD
  LT 90
  FD :ddif
  RT 90
 
END
 
; gear: draw involute gear
; rp: radius at pitch circle
; PA: pressure angle
; P: number of teeth normalized by pitch diameter
; segments: subdivions on each involute side of each tooth
 
TO gear :rp :PA :P :segments
 
  LOCALMAKE "cpitch :PI / :P 
  LOCALMAKE "apitch (:cpitch / :rp) / :deg2rad
  LOCALMAKE "N :P * :rp * 2
  LOCALMAKE "rb :rp * COS :PA
  LOCALMAKE "clr (2.157 - 2) / :P ;coarser 20P
  LOCALMAKE "ded (1/:P + :clr)
  LOCALMAKE "rr :rp - :ded
 
  ;this is the main calculation
  ;for angular base width delta
  ;(needs drawing)
  LOCALMAKE "alpha ( TAN :prA ) / :deg2rad
  LOCALMAKE "beta :alpha - :prA
  LOCALMAKE "delta ( 0.5 * :apitch ) + ( 2 * :beta )
 
  PU
  RT 90 FD :rr LT 90
  PD
 
  REPEAT :N
  [
    geartooth :rp :PA :P :delta / 2 :segments
    PD
    LT (:apitch - :delta) / 2
    FD 2 * :rr * SIN ((:apitch - :delta) / 2)
    LT (:apitch - :delta) / 2
    NEXTCOLOR
  ]
 
  PU
  LT 90 FD :rr RT 90
 
END
 
; mycircle: draw circle
; crd: circle radius
 
TO mycircle :crd
 
  PU
  RT 90 FD :crd LT 90
  PD
 
  REPEAT 180
  [
  LT 2
  FD 2 * :crd * SIN ( 2 )
  LT 2
  ]
 
  PU
  LT 90 FD :crd RT 90
  PD
 
END
 
;involute (for gears)
;comprehensive guide
;http://bostongear.com/pdf/gear_theory.pdf
 
RESET
CLEARSCREEN
SETBACKGROUND 33
RU 90
 
PD
MAKE "PI 4 * RADARCTAN(1)
MAKE "deg2rad :PI / 180
MAKE "prA 14.5
MAKE "piR 0.5
MAKE "pitch 16
 
;mycircle :baR
;mycircle :piR
;mycircle :ouR
 
TRANSFORM
SET OBJECT "rotation [0 0 1 0]
MAKE "gear1 OBJECT
SET :gear1 "center POS
 
SETPARENT OBJECT
gear :piR :prA :pitch 10
SETPARENT "root
 
MAKE "piR2 0.25
PU
RT 90
FD :piR + :piR2
LT 90
 
TRANSFORM
SET OBJECT "rotation [0 0 1 0]
MAKE "gear2 OBJECT
SET :gear2 "center POS
 
SETPARENT OBJECT
gear :piR2 :prA :pitch 10
SETPARENT "root
 
;adjust by beta, angular distance between point at base and point at pitch circle
MAKE "beta (TAN :prA) - (:prA * :deg2rad)
SET :gear1 "rotation (LIST 0 0 1 -:beta)
SET :gear2 "rotation (LIST 0 0 1 :PI/:pitch/:piR2 - :beta)
 
MAKE "period1 60
SPIN :gear1 "tl :period1
SPIN :gear2 "tr :period1 * :piR2/:piR
 
PU
SHOWALL

aplesch's blog
Login or register to post comments
15709 reads

Comments

update: better fit

Submitted by aplesch on Sun, 18/10/2015 - 04:46.

After some careful examination of the initial position of the two gears, it became clear that they were slightly off, even before spinning. It was necessary to rotate both gears a bit such that the radii from the pitch circles align. Since the initial drawing starts at the base radius rather than the pitch radius this meant a rotation by the angle between base and pitch radii (beta above).

Now, there is almost no overlap. However, while most teeth mesh nicely, some still have some overlap. This may be mostly due numerical imprecision which tend to accumulate due to the way the gear is drawn. Each new tooth is drawn relative to the location and orientation of the previous tooth. Also there is a finite precision to the involute curve.

While the overlap is only noticeable when zoomed in at the location of contact, it might be nice as a workaround to just separate the two gears a bit more than strictly necessary.

Rotation & overlap

Submitted by Andy on Tue, 20/10/2015 - 22:09.

I experienced some rotation problems in my gear3d but kind of solved with a customed keyvalues. See my new blog at https://vrmath2.net/content/spur-gears

The overlap seems to occur with fewer teeth gears. Other solutions may be including a clearance or an unercut.

Undercut

Submitted by aplesch on Wed, 21/10/2015 - 09:31.

I also remember reading about smaller gears with fewer teeth requiring additional accommodation space for the partner. Something for the future.

x3d DEF/USE

Submitted by aplesch on Sat, 17/10/2015 - 06:04.

The x3d file is pretty large in part because all teeth are explicitly defined. Is there a way to use the DEF/USE mechanism of x3d ? I would like to just define one tooth and then reuse it by reference.

Copy & paste

Submitted by Andy on Sat, 17/10/2015 - 14:30.

I have commands COPY and PASTE, which result in DEF/USE. However, it only USE the Shape node. You can run the codes below and check the x3d codes for details.

CS RESET
BOX
COPY OBJECT
UP 1
PASTE

Another thought about the large size could be the total of some hundreds objects. It would be smaller if just one IndexedLineSet for one gear. And if in the future we need to extrude the gear, the 2D coordinates (x and y) will need to be collected..

def/use

Submitted by aplesch on Sun, 18/10/2015 - 04:28.

Thanks. I tried copy and paste but only with transform object which did not seem to work. I guess I need to figure how to collect points in order and then use just one line or copy and paste. Would it be possible to support copy and paste for a transform object as well ?

Thanks for allowing updates to roations in the property inspector !

The XML export seems more standard and the meta tags in the header are really nice as well !

DEF/USE

Submitted by Andy on Tue, 20/10/2015 - 22:12.

I did have DEF/USE for transform node before but remembered to have some issues, and need to try again. Perhaps I can have a second input for COPY to indicate transform or shape....

Collecting

Submitted by aplesch on Tue, 20/10/2015 - 14:27.

Collecting turtle positions in a growing list was quite possible after discovering that

OUTPUT :positions

Somehow behaves differently than the explicit

OUTPUT THING "positions

3D gears

Submitted by Andy on Tue, 20/10/2015 - 22:26.

You are quick to update with 3D version of involute gears.. They look very nice and smooth...

The OUTPUT command is like the return in javascript. I use it to return a thing after calling a procedure. My new Spur Gear example (https://vrmath2.net/content/spur-gears) has it too, or this one https://vrmath2.net/content/3d-function-elevationgrid

Using native LIST and the PUSH or QUEUE commands can easily collect data such as position and orientation. They can be later used to create animation or tour. They are orginal Logo commands, see https://vrmath2.net/content/logo-guidereference#sec2

I think that Logo can be very good at collecting 3D data. I planned to implement a Data Collector GUI in VRMath2 Editor but have not got time to do so. Some data collection commands are already implemented, see https://vrmath2.net/content/logo-guidereference#sec6_15 for commands COLLECTPOSITION, COLLECTORIENTATION and COLLECTVIEW etc. The Data Collector will aim to assit data collection and form the Logo codes for use in the Logo Editor.

Cool involute gear

Submitted by Andy on Sat, 17/10/2015 - 01:39.

With these handy procedures (not easy to create...), we can generate gears with any number of teeth. I think the angles are pretty good. The slight overlap may due to the beginning gear rotation as there seem to have a gap on one side, and slightly overlap on the other side.

The SPIN was used with gear ratio? Their rotation periods allow teeth to gear in well.

I tried to include extrusion long time ago but at the time, it was experimental. I am surprised to find it has been fully implemented.. It may be time to include extrusion into VRMath2. It would be a nice way to make the gear 3D.

You may have noticed that I changed the X3D publish. Recently, I was trying MeshLab and Blender to convert my x3d files generated in VRMath2 to STL and/or PLY so they can be printed in 3D printers. I found that MeshLab and Blender only take XML encoded x3d files. Therefore I have changed in VRMath2 to output stnadard X3D files in XML format. It may take a little bit more time to publish but worth it because MeshLab and Blender did convert X3D to STL and PLY. The problem is that they seem to only convert IndexedFaceSet, IndexedLineSet and maybe PointSet. They don't take in other 3D primitives such as Box or Extrusion...

Similar blogs you may be interested in