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

3d involute gears

Submitted by aplesch on Wed, 21/10/2015 - 07:30

As an update to the 2d involute (curved teeth) gears, I modified the program to produce 3d (extruded) gears. This required a change in drawing tactics.

First, the turtle moves along the gear without drawing anything but only recording its position into a growing list of coordinates. This actually simplified some aspects of drawing the gear since less temporary saving of positions was required. Second, the recorded path is used to generate faces away from the path going segment by segment. The reduce command was convenient for this procedure since it supplies two neighbouring values of a list. Finally, nested transforms are used to adjust the initial rotation of the gears so they mesh together (inner transform) and to spin the adjusted gears (outer transform). To avoid any intersection of the gears, the second gear is moved a small bit farther away from the first gear than strictly necessary. I believe, real small gears tend to require "undercuts" to avoid the same issue.

[Next, I would like to fill in the front and back. Due to the curved shape of the teeth, this will require some more sophisticated face generation.]

Update: front and back are now closed, and some general changes.

Here is the updated, commented logo program:

; involute: draw involute
; rb: base radius
; limit: max. generating angle
; steps: number of segments on involute to draw
; returns list of positions: top is first
 
TO involute :rb :limit :steps
 
  LOCALMAKE "start POS
  LOCALMAKE "i 0
  LOCALMAKE "step 0.5 * :limit / :steps
  LOCALMAKE "coords []
  PUSH "coords POS
  PU
 
  REPEAT ABS(:steps)
  [
    ;push "coords :start
    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 "start pos
    ;record position
    PUSH "coords POS
    BACK 2 * :i * :deg2rad * :rb
    ;turn forward
    LT 180
  ]
  SETPOS :start
  OUTPUT THING "coords
 
END
 
; gearinvolute: draw involute side of gear tooth
; rb: base radius
; PA: pressure angle
; P: diametral pitch
; steps: number of subdivisions
; returns list of position from landing to base
 
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
  LOCALMAKE "coords involute :rb (:limit / :deg2rad) :steps
  OUTPUT THING "coords
 
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
; returns list of positions from root to landing to root
 
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)
  LOCALMAKE "coords []
  PUSH "coords POS
  ; record straight edge
  RT 90
  FD :ddif PUSH "coords POS
  LT 90
  ; save position
  LOCALMAKE "base POS
  LOCALMAKE "head HEADING
  ; record side
  MAKE "coords SENTENCE ( gearinvolute :rb :PA :P :segments ) :coords
  ;record 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
  ;prepend reverse
  MAKE "coords SENTENCE REVERSE ( gearinvolute :rb :PA :P :segments * -1 ) :coords
  ;return to base
  SETPOS :base
  SETHEADING :head
  ;record straight edge
  LT 90
  FD :ddif PUSH "coords POS
  RT 90
  OUTPUT THING "coords
 
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
; returns list of positions
 
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 )
  LOCALMAKE "coords []
  ; move from center to root
  PU
  RT 90 FD :rr LT 90
  REPEAT :N
  [
    ;tooth from root to root
    MAKE "coords SENTENCE ( geartooth :rp :PA :P :delta / 2 :segments ) :coords
    ;advance to root of next tooth
    LT (:apitch - :delta) / 2
    FD 2 * :rr * SIN ((:apitch - :delta) / 2)
    LT (:apitch - :delta) / 2
  ]
  ;close up
  PUSH "coords POS
  LT 90 FD :rr RT 90
  OUTPUT THING "coords
 
END
 
TO drawline :positions
 
  PU SETPOS FIRST :positions
  PD FOREACH "setpos :positions
 
END
 
TO plate :positions :segments
 
  LOCALMAKE "pcenter [0 0 0]
  ;draw skinny triangles
  ;or fill teeth
  ;fill circle
  PU SETPOS FIRST :positions
  FACE PCOFF
  PD
  SHOW REDUCE "skinny :positions
  PU
  LINE
  OUTPUT OBJECT
 
END
 
TO skinny :p1 :p2
 
  JUMPPOS :p1
  SETPOS :p2
  SETPOS :pcenter
  OUTPUT :p2
 
END
 
TO gear3d :positions :segments :width
 
  fence :positions :width
  COPY plate :positions :segments
  PASTE
  ; (does not update object; fixed)
  ; localmake "pasted word "obj_ (reduce "word bf bf bf bf object) + 1
  SET OBJECT "rotation [0 0 1 0]
  SET OBJECT "translation ( LIST 0 0 :width )
 
END
 
TO fence :positions :width
 
  PU SETPOS FIRST :positions
  FACE
  PCOFF
  PD
  SHOW REDUCE "quad :positions
  PU
  LINE
END
 
TO quad :p1 :p2
 
  JUMPPOS :p1
 
  SETPOS :p2
  SETPOS offsetz :p2 :width
  SETPOS offsetz :p1 :width
 
  OUTPUT :p2
 
END
 
TO offsetz :point :offset
 
  OUTPUT SENTENCE BUTLAST :point (SUM LAST :point :offset)
 
END
 
;involute (for gears)
;comprehensive guide
;http://bostongear.com/pdf/gear_theory.pdf
 
;TODO create gears always around origin
;TODO use transforms to offset
;TODO fill front and back: tooth by tooth and disk
RESET
CLEARSCREEN
SETBACKGROUND 34
POINTLIGHT
RU 90
 
MAKE "PI 4 * RADARCTAN(1)
MAKE "deg2rad :PI / 180
MAKE "prA 14.5
MAKE "piR 0.5
MAKE "piR2 0.25
MAKE "pitch 16
 
MAKE "gear1center POS
MAKE "gear1line gear :piR :prA :pitch 10
MAKE "gear2line gear :piR2 :prA :pitch 10
 
RT 90
FD :piR + :piR2 + :piR2/20 ;some slack
LT 90
 
MAKE "gear2center POS
SETPOS :gear1center
 
TRANSFORM
MAKE "gear1spin OBJECT
SET :gear1spin "rotation [0 0 1 0]
SET :gear1spin "center :gear1center
SETPARENT :gear1spin
TRANSFORM
MAKE "gear1 OBJECT
SET :gear1 "rotation [0 0 1 0]
SET :gear1 "center :gear1center
SETPARENT :gear1
SETMATERIAL 3 33
gear3d :gear1line 10 -0.2
SETPARENT "root
 
TRANSFORM
MAKE "gear2spin OBJECT
SET :gear2spin "rotation [0 0 1 0]
SET :gear2spin "center :gear1center
SET :gear2spin "translation :gear2center
SETPARENT :gear2spin
TRANSFORM
MAKE "gear2 OBJECT
SET :gear2 "rotation [0 0 1 0]
SET :gear2 "center :gear1center
SETPARENT :gear2
SETMATERIAL 3 28
gear3d :gear2line 10 -0.2
SETPARENT "root
 
MAKE "beta (TAN :prA) - (:prA * :deg2rad)
 
;inital rotations
SET :gear1 "rotation (LIST 0 0 1 -:beta)
SET :gear2 "rotation (LIST 0 0 1 :PI/:pitch/:piR2 - :beta)
 
MAKE "period1 60
 
SPIN :gear1spin "tl :period1
SPIN :gear2spin "tr :period1 * :piR2/:piR
 
PU
SHOWALL

Here is an example with pitch 32 (more teeth) and a pressure angle of 20. It shows the limitations of the skinny triangle approach.

And here the same gears with improved front and back mesh:

Only a few changes were necessary. First, I changed the data structure of the gear profile from a flat list of positions to positions grouped by 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 )
  LOCALMAKE "coords []
  ; move from center to root
  PU
  RT 90 FD :rr LT 90
  REPEAT :N
  [
    ;tooth from root to root
    ; CHANGED here to put list new tooth as list in front
    MAKE "coords FPUT ( geartooth :rp :PA :P :delta / 2 :segments ) :coords
    ;advance to root of next tooth
    LT (:apitch - :delta) / 2
    FD 2 * :rr * SIN ((:apitch - :delta) / 2)
    LT (:apitch - :delta) / 2
  ]
  ;close up
  ;CHANGED not required any more
  ;push "coords pos
  LT 90 FD :rr RT 90
  OUTPUT THING "coords
 
END

Then it was a matter of adjusting the front and back plate drawing procedure to draw a polygon per tooth and then a large circular polygon for the center:

TO polygon :positions
 
  JUMPPOS FIRST :positions
  FOREACH "setpos BF :positions
 
END
 
TO firstlast :positions
 
  OUTPUT LIST FIRST :positions LAST :positions
 
END
 
TO plate :positions :segments
 
  PU SETPOS FIRST FIRST :positions
  FACE PCOFF
  PD
  ;fill teeth
  FOREACH "polygon :positions
  ;fill circle
  polygon REDUCE "sentence MAP "firstlast :positions
  PU
  LINE
  OUTPUT OBJECT
 
END

Finally, a flattening transformation of the gear profile data structure is required to be able to continue to use the fence procedure:

TO gear3d :positions :segments :width
 
  LOCALMAKE "posflat FPUT (LAST LAST :positions) (REDUCE "sentence :positions)
  fence :posflat :width
  COPY plate :positions :segments
  PASTE
  SET OBJECT "rotation [0 0 1 0]
  SET OBJECT "translation ( LIST 0 0 :width )
 
END

Here is a picture of the new front and back mesh which x3dom generates for the provided polygons:

plate mesh

Fig. 1: Triangulation front and back plate polygons

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

Comments

PointLight

Submitted by Andy on Wed, 21/10/2015 - 14:09.

Noticed that you also used a PointLight. I think that X3DOM has implemented well the lights. There is an example pointlight_test.vrm in the Example vrm folder (open from the 3D world window in VRMath2 Editor). You can select the PointLight from the Object Tree window, then manipulate from the TE or OS tabs in the Property Inspector window.

New blog

Submitted by Andy on Wed, 21/10/2015 - 13:27.

It is great to see this 3D version in a new blog. Thanks for the continuing contribution. Your involute gear demonstrated many powerful uses of programming driven 3D modelling. There are new technologies such as 3D scanning to create 3D models with complex face, which Logo may not be able to do. But there are also many things Logo can do better, such as the gear project you started, I think that the gears mathematically created from your Logo program would be better than a scanned one.

I found that you have mastered most Logo commands. The LIST (array) manipulation in Logo is quite easy. Some special characteristics about Logo are differnt to other programming. For example, SIN (2) is the same as SIN 2. The maths function (command) needs an input. Unless there are some operations required, the parenthese are not needed.

OUTPUT THING "coords is also the same as OUTPUT :coords. The variable name and string (WORD) in Logo can be confusing to many who are new to Logo.

I also found that you have created an extrusion procedure, which is so brilliant. However, I have planned to include EXTRUSION into my Logo 3D primitives. This means that when I have implement EXTRUSION as a native command, you cannot overwrite it or have a procedure that has the same name as a built-in native command. So could you please change the extrusion procedure name to a different name so your program will still run after I included EXTRUSION?

There is a trick in X3DOM's IndexedFaceSet. By default it is set to convex=true, but even it is changed to false for the gears, it will still not render the gear correctly. I am not sure if that is a bug or implementation decision of X3DOM. The way I create the crosssection of gear face is to start from the center of the gear then walk (SETPOS) through the gear coordinates. This way, X3DOM seems to render the gear face I want.

pasted object not in blog

Submitted by aplesch on Fri, 23/10/2015 - 06:22.

I copy and paste the front plate to the back, and it works fine in the world viewer after I run the logo program. However, after exporting the x3d and including the scene here in the blog the back face does not show up although it is definitely there as a "USE" shape in the x3d.

I think, the problem may be that the USE object comes in the x3d file before the DEF shape. Running the Logo dynamically updates the DOM, eg. there the scene has the DEF shape before the USE shape. In contrast, when x3dom parses the x3d file, it does not yet know about the DEF shape when it encounters the USE shape and cannot render it.

Is there a way to put the use DEF object before the USE object in the x3d export ?

-Andreas

PS: it looks like now paste does update the latest object and the object command now can refer to the pasted object. Thanks for fixing.

first def, then use for inline

Submitted by aplesch on Sat, 24/10/2015 - 03:26.

I could confirm that the order of def and use objects is the issue by manually editing the x3d to switch the use/def for the blue gear to def/use:

https://vrmath2.net/content/ap-scenes

shows the result which now has the back plate for the blue gear.

I repeated the posts in the forum fir further discussion at some point.

thanks

Submitted by aplesch on Thu, 22/10/2015 - 09:49.

Great comments.

I found that

OUTPUT :mylist

does not work when mylist is a list rather than a string or number. output thing "mylist works.

I ran into a couple of other limitations of the logo interpreter (see forum) but overall it works quite well.

I renamed the extrude procedure to gear3d which is a better name now anyway because it also does the front and back of the gear.

convex=false unfortunately does not work in x3dom. It is a bug with an issue but would probably require a better triangulation method.

I used the skinny triangle approach instead which produces produces some zero area triangles but x3dom does not seem to care.

For me on firefox the logo editor and the x3d export stopped working ?

Thanks again for a great environment.

x3d by itself is also a great learning tool. So I think it may be worthwhile to think about a similar environment as an x3d editor without logo. It may mostly require removing functionality and an ability to edit the x3d. just a thought

-Andreas

Firefox 41.0.2 seems ok

Submitted by Andy on Thu, 22/10/2015 - 18:53.

I just tried Firefox on both my MBP and PC. VRMath2 Editor seems to be running well in Firefox version 41.0.2 (was updated). In this version of Firefox, I did find its WebGL performance is slower than in Chrome. The Publish dialog in VRMath2 Editor is also out of alignment in Firefox.

I usually use Google Chrome for VRMath2. And these days, web browsers update themselves in a much shorter time span. Sometime I found small problems such as HTML element alignment issues but usually when updated the problem is resolved. I hope the Firefox problem you encountered can be fixed with the latest version of Firefox.

I am also aware that the Logo Editor did not work well on Mobile devices such as iPad. It seems that my old version of KendoUI and new version of CodeMirror did not work together well for iOS devices. Mobile Safari also has scroll problem for iFrame, which I used for my Logo Guide window. It is very difficult to resolve these issues.

editor

Submitted by aplesch on Thu, 22/10/2015 - 23:58.

I have to use firefox 38.3 and it it worked well in the past. But something happened and now I cannot typwe in the editor anymore. Each keystroke gets repeated many times along woth previously entered characters. Also the line numbers are offset from the grey left margin into the white text area.

Try old codemirror

Submitted by Andy on Fri, 23/10/2015 - 00:23.

I suspect this could be due to my recent update of CodeMirror from 3.21 to 5.7. However, I updated for some weeks already. Do you always use Firefox 38.3 and throughout all the Logo programs you wrote?

Try this url https://vrmath2.net/VRM2/?cm=old

It will load older version of CM. Thanks for testing.

codemirror

Submitted by aplesch on Fri, 23/10/2015 - 04:10.

https://vrmath2.net/VRM2/?cm=old works, eg. let's me use the editor !

I used different browsers on windows and linux, and probably have used 38.3 even after the code mirror update. Perhaps something was cached ?

Andreas

experienced before

Submitted by Andy on Fri, 23/10/2015 - 09:21.

I did experience similar situation before but since browsers updated, I can't reproduce the editor problem. I have made sure that both the server and my computer cache are cleared. When testing I also use private mode in browser so no extensions could interfere.

Sometimes the browsers have minor updates that can create or solve problems. For example, previous Chrome has mouseover (show title or tip) problem, but it was gone in current version.

Similar blogs you may be interested in