Commit f985644c authored by Dave Cooper's avatar Dave Cooper

added %reversed?% input to curve, added *bias-to-double-float?* global...

added %reversed?% input to curve, added *bias-to-double-float?* global parameter, affecting twice and half (for now).
parent 419e9acf
......@@ -41,6 +41,17 @@
(defparameter *override-non-settables?* t)
(defparameter *bias-to-double-float?* nil
"Boolean. Indicates whether the following functions should always return double-floats:
<ul>
<li><tt>half</tt>
<li><tt>twice</tt>
</ul>.
Defaults to nil.
")
(defparameter *color-plist*
(list :periwinkle "#aaaaff"
:aqua "#00ffff"
......
......@@ -174,8 +174,8 @@ was contributed by Reinier van Dijk.
The type of the returned number will depend on the type of <b>num</b>.
:arguments (num \"Number\")"
(/ num 2))
(let ((result (/ num 2)))
(if *bias-to-double-float?* (to-double-float result) result)))
(defun twice (num)
"Number. Returns the result of multiplying <b>num</b> by the integer <tt>2</tt>.
......@@ -183,7 +183,9 @@ The type of the returned number will depend on the type of <b>num</b>.
:arguments (num \"Number\")"
(+ num num))
(let ((result (+ num num)))
(if *bias-to-double-float?* (to-double-float result) result)))
(defun index-filter (fn list)
"List. Returns all elements of <b>list</b> for whose index (starting at zero) the
......
......@@ -73,6 +73,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:%view-plane-normal%
#:*%format%*
#:*allowed-part-documentation-keywords*
#:*bias-to-double-float?*
#:*color-table*
#:*color-table-decimal*
#:*colors-default*
......
alexandria: http://gitlab.common-lisp.net/alexandria/alexandria.git
bordeaux-threads: http://github.com/sionescu/bordeaux-threads.git
cl-pdf: http://github.com/mbattyani/cl-pdf
cl-ppcre: http://github.com/edicl/cl-ppcre
cl-typesetting: http://github.com/mbattyani/cl-typesetting
cl-who: http://github.com/edicl/cl-who
iterate: https://common-lisp.net/project/iterate/
uffi: http://git.kpe.io/?p=uffi.git;a=summary
uiop: https://gitlab.common-lisp.net/asdf/asdf
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g323769,27H/Users/dcooper8/tmp/g323769, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g107642,27H/Users/dcooper8/tmp/g107642, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20151129.002419,1.D-6,21.3205116838006,,,11,0,15H20151G 3
129.002419; G 4
1.,1,2HIN,1,1.,15H20160118.123909,1.D-6,21.3205116838006,,,11,0,15H20160G 3
118.123909; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 16 1 0D 2
124 17 0 0 0 0 0 000000000D 3
......
S 1
1H,,1H;,27H/Users/dcooper8/tmp/g323759,27H/Users/dcooper8/tmp/g323759, G 1
1H,,1H;,27H/Users/dcooper8/tmp/g107632,27H/Users/dcooper8/tmp/g107632, G 1
23HHarmonyWare Translators,23HHarmonyWare IGES v2.0.2,32,38,6,308,15,, G 2
1.,1,2HIN,1,1.,15H20151129.002415,1.D-6,20.7712135760006,,,11,0,15H20151G 3
129.002415; G 4
1.,1,2HIN,1,1.,15H20160118.123906,1.D-6,20.7712135760006,,,11,0,15H20160G 3
118.123906; G 4
502 1 0 0 0 0 0 000010000D 1
502 0 0 442 1 0D 2
110 443 0 0 0 0 0 000010000D 3
ISO-10303-21;
HEADER;
FILE_DESCRIPTION ((), '1');
FILE_NAME ('/Users/dcooper8/tmp/g323946', '2015-11-29T00:24:38', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_NAME ('/Users/dcooper8/tmp/g107819', '2016-01-18T12:39:27', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v2.0.2', 'HarmonyWare Translators', '');
FILE_SCHEMA (('CONFIG_CONTROL_DESIGN'));
ENDSEC;
......@@ -26462,9 +26462,9 @@ DATA;
#264330 = PRODUCT_DEFINITION_FORMATION_WITH_SPECIFIED_SOURCE ('', '', #264260, .NOT_KNOWN.);
#264340 = APPROVAL_STATUS ('approved');
#264350 = APPROVAL (#264340, '');
#264360 = CALENDAR_DATE (2015, 29, 11);
#264360 = CALENDAR_DATE (2016, 18, 1);
#264370 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264380 = LOCAL_TIME (0, 24, 38., #264370);
#264380 = LOCAL_TIME (12, 39, 27., #264370);
#264390 = DATE_AND_TIME (#264360, #264380);
#264400 = APPROVAL_DATE_TIME (#264390, #264350);
#264410 = APPROVAL_ROLE ('');
......@@ -26487,9 +26487,9 @@ DATA;
#264580 = SECURITY_CLASSIFICATION ('', '', #264570);
#264590 = APPROVAL_STATUS ('approved');
#264600 = APPROVAL (#264590, '');
#264610 = CALENDAR_DATE (2015, 29, 11);
#264610 = CALENDAR_DATE (2016, 18, 1);
#264620 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264630 = LOCAL_TIME (0, 24, 38., #264620);
#264630 = LOCAL_TIME (12, 39, 27., #264620);
#264640 = DATE_AND_TIME (#264610, #264630);
#264650 = APPROVAL_DATE_TIME (#264640, #264600);
#264660 = APPROVAL_ROLE ('');
......@@ -26499,9 +26499,9 @@ DATA;
#264700 = APPROVAL_PERSON_ORGANIZATION (#264690, #264600, #264660);
#264710 = CC_DESIGN_APPROVAL (#264600, (#264580));
#264720 = DATE_TIME_ROLE ('classification_date');
#264730 = CALENDAR_DATE (2015, 29, 11);
#264730 = CALENDAR_DATE (2016, 18, 1);
#264740 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264750 = LOCAL_TIME (0, 24, 38., #264740);
#264750 = LOCAL_TIME (12, 39, 27., #264740);
#264760 = DATE_AND_TIME (#264730, #264750);
#264770 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#264760, #264720, (#264580));
#264780 = PERSON_AND_ORGANIZATION_ROLE ('classification_officer');
......@@ -26514,9 +26514,9 @@ DATA;
#264850 = PRODUCT_DEFINITION ('', '', #264330, #264840);
#264860 = APPROVAL_STATUS ('approved');
#264870 = APPROVAL (#264860, '');
#264880 = CALENDAR_DATE (2015, 29, 11);
#264880 = CALENDAR_DATE (2016, 18, 1);
#264890 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#264900 = LOCAL_TIME (0, 24, 38., #264890);
#264900 = LOCAL_TIME (12, 39, 27., #264890);
#264910 = DATE_AND_TIME (#264880, #264900);
#264920 = APPROVAL_DATE_TIME (#264910, #264870);
#264930 = APPROVAL_ROLE ('');
......@@ -26526,9 +26526,9 @@ DATA;
#264970 = APPROVAL_PERSON_ORGANIZATION (#264960, #264870, #264930);
#264980 = CC_DESIGN_APPROVAL (#264870, (#264850));
#264990 = DATE_TIME_ROLE ('creation_date');
#265000 = CALENDAR_DATE (2015, 29, 11);
#265000 = CALENDAR_DATE (2016, 18, 1);
#265010 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#265020 = LOCAL_TIME (0, 24, 38., #265010);
#265020 = LOCAL_TIME (12, 39, 27., #265010);
#265030 = DATE_AND_TIME (#265000, #265020);
#265040 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#265030, #264990, (#264850));
#265050 = PERSON_AND_ORGANIZATION_ROLE ('creator');
......@@ -105,6 +105,7 @@
:input-slots
((%decomposed?% nil)
(%copy?% nil)
(%reversed?% nil)
(native-curve (when (the native-curve-iw)
(get-nurbs-from-curve *geometry-kernel* (the native-curve-iw))))
......
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