'===========================================================================
' Subject: SINUS - COSINUS GRAPHICS          Date: 12-17-97 (01:04)       
' Author:  Andrey Berezansky                 Code: QB, QBasic, PDS        
' Origin:  nikolai@nsi.co.il               Packet: GRAPHICS.ABC
'===========================================================================
'Just a simple (SINUS - COSINUS) graphics ,with circles instead of points.

'Programmed by BEREZANSKY ANDREY (email - nikol@cs.bgu.ac.il)

'DATE - 07/12/97




SCREEN 9
pi = 3.141592

FOR x = 0 TO (pi * 4) STEP .01
  col = col + 1: IF col = 15 THEN col = 1     'chahging colors
  y = 60 - SIN(x * 6) * 8                     'function
 
  CIRCLE (x * 50, y), 5, col: CIRCLE (630 - x * 50, y), 5, col
  CIRCLE (x * 50, y + 100), 5, col: CIRCLE (630 - x * 50, y + 100), 5, col
  CIRCLE (x * 50, y + 200), 5, col: CIRCLE (630 - x * 50, y + 200), 5, col
NEXT

SLEEP 1&

FOR x = 0 TO (pi * 4) STEP .01
  col = col + 1: IF col = 15 THEN col = 1     'colors
  y = 100 - SIN(x * 4) * 20           'function (change it if you know better)

  CIRCLE (y, x * 50), 11, col: CIRCLE (y, 393 - x * 50), 11, col
  CIRCLE (y + 100, x * 50), 11, col: CIRCLE (y + 100, 393 - x * 50), 11, col
  CIRCLE (y + 200, x * 50), 11, col: CIRCLE (y + 200, 393 - x * 50), 11, col
  CIRCLE (y + 300, x * 50), 11, col: CIRCLE (y + 300, 393 - x * 50), 11, col
  CIRCLE (y + 400, x * 50), 11, col: CIRCLE (y + 400, 393 - x * 50), 11, col
  CIRCLE (y + 500, x * 50), 11, col: CIRCLE (y + 500, 393 - x * 50), 11, col
NEXT

DO WHILE INKEY$ = "": LOOP