math/05graaf.bas

   1 ' 2D graph\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 DECLARE SUB init ()\r
   8 DECLARE SUB pp (x1, y1, x2, y2, c!)\r
   9 DIM SHARED mul\r
  10 \r
  11 mul = 100\r
  12 init\r
  13 \r
  14 ox = -320 / mul\r
  15 oy = 0\r
  16 \r
  17 FOR x = -320 / mul TO 320 / mul STEP 1 / mul\r
  18 \r
  19 y = 1 - (COS(x * 2)) + (SIN(x * 2))   ' <<Type your formula there!\r
  20 \r
  21 pp x, y, ox, oy, 14\r
  22 ox = x\r
  23 oy = y\r
  24 NEXT x\r
  25 \r
  26 SUB init\r
  27 SCREEN 12\r
  28 \r
  29 FOR x = -320 TO 320\r
  30 IF x / mul = x \ mul THEN LINE (x + 320, 0)-(x + 320, 479), 1\r
  31 NEXT x\r
  32 \r
  33 FOR y = -240 TO 240\r
  34 IF y / mul = y \ mul THEN LINE (0, y + 240)-(639, y + 240), 1\r
  35 NEXT y\r
  36 \r
  37 \r
  38 \r
  39 LINE (0, 240)-(639, 240), 3\r
  40 LINE (320, 0)-(320, 479), 3\r
  41 END SUB\r
  42 \r
  43 SUB pp (x, y, x1, y1, c)\r
  44 \r
  45 x2 = (x * mul) + 320\r
  46 y2 = 240 - (y * mul)\r
  47 x3 = (x1 * mul) + 320\r
  48 y3 = 240 - (y1 * mul)\r
  49 IF x2 < 0 THEN GOTO 1\r
  50 IF y2 < 0 THEN GOTO 1\r
  51 IF x2 > 639 THEN GOTO 1\r
  52 IF y2 > 479 THEN GOTO 1\r
  53 IF x3 < 0 THEN GOTO 1\r
  54 IF y3 < 0 THEN GOTO 1\r
  55 IF x3 > 639 THEN GOTO 1\r
  56 IF y3 > 479 THEN GOTO 1\r
  57 LINE (x2, y2)-(x3, y3), 14\r
  58 1\r
  59 END SUB\r
  60 \r