(50G) Question, has anyone programmed gauss's...

[CosmicTruth]

OK so after 30 seconds no one was interested but I'm going to post this 50G code anyhow in hopes someone will look at it and give some pointers...

Code:


%%HP: T(3)A(D)F(.);
\<< CLEAR
   DO "X Y ?
0 0 TO END" { ":X:
:Y:" { 1. 0. } V } INPUT OBJ\-> \->V2
  UNTIL DUP [ 0. 0. ] ==
  END DROP DEPTH \->LIST DUP HEAD + 2.
  \<< CROSS
  \>> DOSUBS \GSLIST ABS 2. /
\>>

This just asks for input till 0,0 is input then calculates the area.

Next (someday) I plan to sum the end areas into a volume using average end area * length.