Surprise graphic program (HP-48G, GX)

[Gerson W. Barbosa]

(11-03-2014 07:01 PM)Gilles Wrote:  Hi Gerson ! This shape looks better
could you post your program in text format ?

I hope the proportions are correct. Anyway, you can vary the width by changing the 9.5 constants.
Upper recipient starting entirely full to the brim and no animated flowing sand, however

Code:


%%HP: T(3)A(D)F(.);
\<< HMS\-> 60. * 4.7 - 57.8 / RCLF -40. CF # 131d # 80d BLANK PICT STO { # 6d # 11d } { # 6d # 68d } LINE { # 125d # 11d } { # 125d # 68d } LINE { # 0d # 10d } { # 130d # 69d } BOX 66. 125.
  FOR x x R\->B 40. x 66. - DUP 2.5 ^ -.00026 * SWAP 1.5 ^ .021 * + .11 + 9.5 * - R\->B DUP2 DUP2 NEG 79. + 2. \->LIST PIXON 2. \->LIST PIXON SWAP NEG 131. + SWAP DUP2 NEG 79. + 2. \->LIST UNROT 2. \->LIST LINE
  NEXT { # 0d # 0d } PVIEW 0. WAIT DROP { # 65d # 39d } { # 125d # 40d } BOX 7. 64.
  FOR x OVER WAIT 41. 65. x - DUP 2.5 ^ -.00026 * SWAP 1.5 ^ .021 * + .11 + 9.5 * - R\->B x R\->B SWAP DUP2 NEG 79. + OVER NEG 131. + DUP2 6. PICK 2. \->LIST UNROT 2. \->LIST LINE 2. \->LIST UNROT 2. \->LIST TLINE
  NEXT 0. WAIT DROP NIP STOF
\>>