unittests/vector.cos

   1 DBG: OUTS "# Vector ops"
   2 DBG: OUTS "1..2" * XXX
   3
   4 VEC: SETV VA00 VEC: MAKE 42 43
   5 VEC: GETC VA00 VA01 VA02
   6 DOIF VA01 EQ 42 AND VA02 EQ 43
   7     DBG: OUTS "ok 1"
   8 ELSE
   9     DBG: OUTS "nok 1"
  10 ENDI
  11
  12 SETV VA00 -179
  13 SETV VA03 1
  14
  15 LOOP
  16 * VA00 = angle
  17 * VA01 = unit vector (VA00)
  18 * VA42 = angle of VA01
  19 * VA02 = difference of VA00 and VA42
  20     VEC: SETV VA01 VEC: UNIT VA00
  21     VEC: MULV VA01 5
  22     SETV VA02 VEC: ANGL VA01
  23     SETV VA42 VA02
  24     DOIF VA02 < 0
  25       ADDV VA02 360
  26     ENDI
  27     SUBV VA02 VA00
  28     ABSV VA02
  29
  30     SETV VA10 VEC: MAGN VA01
  31     SUBV VA10 5
  32     ABSV VA10
  33
  34     DOIF VA02 > 0.01 AND VA20 > 0.01 OR VA10 > 0.01
  35         DBG: OUTS "# nok@"
  36         DBG: OUTV VA00
  37         SETV VA03 0
  38         DBG: OUTS " got: "
  39         DBG: OUTV VA42
  40         DBG: OUTV VA20
  41         DBG: OUTS " v="
  42         DBG: OUTV VA01
  43         DBG: OUTS "\n"
  44     ENDI
  45     ADDV VA00 1
  46 UNTL VA00 > 180
  47
  48 DOIF VA03 EQ 1
  49     DBG: OUTS "ok 2"
  50 ELSE
  51     DBG: OUTS "nok 2"
  52 ENDI