patterning.library.machines — com.alchemyislands/patterning 0.6.0

centre-range clj/s

(centre-range lo hi inner-proportion)

circumference clj/s

(circumference radius)

cog->pattern clj/s

(cog->pattern {:keys [addendum-radius dedendum-radius pitch-radius tooth-angle
                      basic-wheel hole-type hole-radius no-hollows
                      hollow-radius]
               :as cog}
              guides?)

cog-tooth->points clj/s

(cog-tooth->points {:keys [start foot-start mid-start top-start top-end mid-end
                           foot-end end]})

crude-circle clj/s

(crude-circle r s)

(crude-circle cx cy r s)

edge-style clj/s

guide-style clj/s

hollow-style clj/s

ICog clj/s protocol

A wheel with teeth

engages? clj/s

(engages? this other-cog)

Is this and the other cog at the right distance to engage without crashing?

ICrashable clj/s protocol

Two things that collide

crash? clj/s

(crash? this other)

Do this and the other intersect?

IWheel clj/s≠ protocol

It's basically a circle

cx clj/s

(cx this)

Centre X

cy clj/s

(cy this)

Centry Y

dist-to-point clj/s≠

clj

(dist-to-point this [x y])

cljs

(dist-to-point this G__18742)

Distance from centre to point x,y

distance-to clj/s

(distance-to this other-wheel)

Distance between the centres of the two wheels

hit? clj/s≠

clj

(hit? this [x y])

cljs

(hit? this G__18744)

Does point x y fall inside the circle?

make-cog clj/s

(make-cog cx
          cy
          no-teeth
          pitch-radius
          addendum
          dedendum
          clearance
          tooth-thickness
          top-thickness
          hole-type
          hole-radius
          no-hollows
          hollow-radius)

make-cog-tooth clj/s

(make-cog-tooth {:keys [basic-wheel pitch-radius addendum-radius dedendum-radius
                        tooth-thickness top-thickness tooth-angle]
                 :as cog-wheel}
                a)

multiline clj/s

PI2 clj/s

spaced-engaged clj/s

(spaced-engaged cog ratio)

(spaced-engaged cog ratio hole-type hole-radius no-hollows hollow-radius)

spawn-connected clj/s

(spawn-connected {:keys [no-teeth tooth-thickness top-thickness addendum
                         dedendum clearance circular-pitch]
                  :as cog}
                 a-ratio
                 hole-type
                 hole-radius
                 no-hollows
                 hollow-radius)

spindle-style clj/s

tap clj/s

(tap x)

translate-basic-wheel clj/s

(translate-basic-wheel cog dx dy)

translate-cog clj/s

(translate-cog cog dx dy)