Commit db06d179 authored by Dave Cooper's avatar Dave Cooper
Browse files

corrected span to chord in profile in primi-plane

parent a0fcb7b6
......@@ -45,7 +45,7 @@
;;
;; Rudder data
;;
:fin-span 10
:fin-spannn 10
:fin-c-root 5
:fin-c-tip 2
:fin-thickness 0.8
......
......@@ -78,8 +78,8 @@
(x-max (most 'get-x (the points)))
(x-min (least 'get-x (the points)))
(span (- (get-x (the x-max))
(get-x (the x-min))))
(chord (- (get-x (the x-max))
(get-x (the x-min))))
(y-max (most 'get-y (the points)))
(y-min (least 'get-y (the points)))
......@@ -178,7 +178,7 @@
(root-profile :type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-root) (the canonical-profile span))
:scale-x (/ (the c-root) (the canonical-profile chord))
:center (the (edge-center :left :front))
:orientation (alignment :top (the (face-normal-vector :right))
:right (the (face-normal-vector :rear))
......@@ -187,7 +187,7 @@
(tip-profile :type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-tip) (the canonical-profile span))
:scale-x (/ (the c-tip) (the canonical-profile chord))
:center (translate (the (edge-center :right :front))
:rear
(- (the c-root) (the c-tip)))
......
......@@ -104,8 +104,8 @@
(x-max (most 'get-x (the points)))
(x-min (least 'get-x (the points)))
(span (- (get-x (the x-max))
(get-x (the x-min))))
(chord (- (get-x (the x-max))
(get-x (the x-min))))
(y-max (most 'get-y (the points)))
(y-min (least 'get-y (the points)))
......@@ -218,7 +218,7 @@
(root-profile :type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-root) (the canonical-profile span))
:scale-x (/ (the c-root) (the canonical-profile chord))
:center (the (edge-center :left :front))
:orientation (alignment :top (the (face-normal-vector :right))
:right (the (face-normal-vector :rear))
......@@ -227,7 +227,7 @@
(tip-profile :type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-tip) (the canonical-profile span))
:scale-x (/ (the c-tip) (the canonical-profile chord))
:center (translate (the (edge-center :right :front))
:rear
(- (the c-root) (the c-tip)))
......
......@@ -105,8 +105,8 @@
(x-max (most 'get-x (the points)))
(x-min (least 'get-x (the points)))
(span (- (get-x (the x-max))
(get-x (the x-min))))
(chord (- (get-x (the x-max))
(get-x (the x-min))))
(y-max (most 'get-y (the points)))
(y-min (least 'get-y (the points)))
......@@ -260,7 +260,7 @@
:type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-root) (the canonical-profile span))
:scale-x (/ (the c-root) (the canonical-profile chord))
:center (the (edge-center :left :front))
:orientation (alignment :top (the (face-normal-vector :right))
:right (the (face-normal-vector :rear))
......@@ -270,7 +270,7 @@
:type 'boxed-curve
:curve-in (the canonical-profile)
:scale-y (/ (the thickness) (the canonical-profile max-thickness))
:scale-x (/ (the c-tip) (the canonical-profile span))
:scale-x (/ (the c-tip) (the canonical-profile chord))
:center (translate (the (edge-center :right :front))
:rear
(- (the c-root) (the c-tip)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment