How do I change Basis to lisp?

[jinkinglee]

if lady_chest > 0.0 and lady_height > 0.0 then
    IF lady_chest < CM_INCH(90.0) THEN
      lady_back_i = lady_height / 4 - cm_inch(1.0)
      lady_front_i = lady_back_i + CM_INCH(4.0)
   ELSE IF lady_chest <= CM_INCH(100.0) THEN
     lady_back_i = lady_height / 4 - cm_inch(1.0)
    lady_front_i = lady_back_i + CM_INCH(4.5) '+ (lady_chest*0.2+cm_inch(3.0))
   END IF
end if

[Shneuph · Accepted solution]

Your program would look something like this:

(if (and (> lady_chest 0.0) (> lady_height 0.0))
  (iF (< lady_chest (* CM_INCH 90.0))
    (setq lady_back_i (* (- (/ lady_height 4) cm_inch) 1.0)
	  lady_front_i (+ lady_back_i (* CM_INCH 4.0)))
    (if (<= lady_chest (* CM_INCH 100.0))
      (setq lady_back_i (- (/ lady_height 4) (* cm_inch 1.0))
	    lady_front_i (+ lady_back_i (* CM_INCH 4.5)))
      );if
    );if
  );if

I'm not sure if I read the original correctly though.  Not familiar with I assume you meant basic?

Generally you need to enclose each statement in parenthesis and start with the operator.  2+2  ~~>  (+ 2.0 2.0) etc.

If function assumes then and else.  1st statement is then 2nd statement is else.  If you need more than one statement for each then enclose them in the progn function like: (progn (first statement) (2nd Statement) )  In this case I think you can assign the values to your variable sin 1 (setq statement) so it shouldn't be required.

[pbejse]

If you will be adding more conditions in the future, I would suggest the cond  function

---

@jinkinglee wrote:

...      lady_back_i = lady_height / 4 - cm_inch(1.0)
...

---

Not sure about the math but why multiply by 1.0?  (assuming its multiplication based on Shneuph post.) are you converting an integer to real number?

perhaps use the function float