Sine wave in console or CC Graphics window

[Dennis Allman]

Can anyone out there help me with information or sample code in how to draw a Sine Wave in either a CC console window or in the consol itself using ascii characters like *, +, or #

[Frank Fenti]

maybe to simple??

' PBCC 5
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

 LOCAL i AS LONG
 LOCAL k AS SINGLE

   FOR i=-40 TO 40
      k=(SIN(i/10)*10)+14
      LOCATE k, i+40
      PRINT "#"
   NEXT i
   WAITKEY$

END FUNCTION

[Manuel Valdes]

CHANGE PARAMETERS TO POSITION PROPERLY

 
'PBCC 5 GRAPHIC WINDOW
 
#COMPILE EXE
#CONSOLE OFF
DEFLNG a-z
FUNCTION PBMAIN () AS LONG
 DESKTOP GET CLIENT TO PixW,PixH
 x1=0
 y1=0
 x2=PixW
 y2=PixH
 a%=200
 xc%=300
 yc%=500
 DESKTOP GET SIZE TO WinX,WinY
 GRAPHIC WINDOW caption$,x1,y1,x2,y2 TO hwin
 GRAPHIC ATTACH hwin,0,REDRAW
 GRAPHIC SET LOC -2,0
 GRAPHIC SCALE (x1,y2)-(x2,y1)
 GRAPHIC WIDTH 1
 FOR hh%=90 TO 450
  fi!=hh%*0.0174533
  x!=xc%+hh%
  y!=yc%+a%*COS(fi!)
  IF hh% MOD 5 = 0 THEN
   GRAPHIC SET POS(x!,y!)
   GRAPHIC PRINT "+"
  END IF
  'GRAPHIC LINE (x!,y!)-(x!+1,y!+1),%RED
 NEXT
 GRAPHIC REDRAW
 GRAPHIC WAITKEY$ TO HK$
END FUNCTION

 
'PBCC 4 and Graphic Window
 
#COMPILE EXE
DEFLNG a-z
FUNCTION PBMAIN () AS LONG
 DESKTOP GET CLIENT TO PixW,PixH
 x1=0
 y1=0
 x2=PixW
 y2=PixH
 a%=200
 xc%=100
 yc%=500
 caption$="Sine Wave"
 DESKTOP GET SIZE TO WinX,WinY
 GRAPHIC WINDOW caption$,x1,y1,x2,y2 TO hwin
 GRAPHIC ATTACH hwin,0,REDRAW
 GRAPHIC SET LOC -2,0
 GRAPHIC SCALE (x1,y2)-(x2,y1)
 GRAPHIC SET POS (100,100)
 GRAPHIC FONT "Arial",20,1
 GRAPHIC PRINT "Close the window to end"
 GRAPHIC WIDTH 1
 GRAPHIC FONT "Arial",5,1
 FOR hh%=90 TO 450
  fi!=hh%*0.0174533
  x!=xc%+2*hh%
  y!=yc%+a%*COS(fi!)
  IF hh% MOD 2 = 0 THEN
   GRAPHIC SET POS(x!,y!)
   GRAPHIC PRINT "*"
  END IF
  GRAPHIC LINE(280,yc%-3)-(1000,yc%-3)
  'GRAPHIC LINE (x!,y!)-(x!+1,y!+1),%RED  'uncomment to see a line plot
 NEXT
 GRAPHIC REDRAW
 WAITKEY$
END FUNCTION

[Dennis Allman]

Thanks for the Info. I only asked it because I'm a newbie in PBCC graphics. But then we probably all are because CC Graphics has only been around since CC4 I think . My basic programming during the CC4 period was mainly confined to FreeBASIC under Linux and I have since returned to Windows when Vista came out and the first program I updated since returning to Windows was PB CC 5. I also indend to upgrade my regular Windows Compiler from version 7 to version 9 and update my PB Forms designer when I get the cash to it.