Add files via upload

Examples/Graphics/alpha.bas

@@ -0,0 +1,23 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,0,0
+  FILLRECT X,Y,RW,RH
+  SETCOLOR 0,255,0,128
+  FILLRECT X*2,Y*2,RW,RH
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/crossplot.bas

@@ -0,0 +1,87 @@
+SUB CROSSPLOT(NP AS INTEGER, XARRAY(1) AS DOUBLE, YARRAY(1) AS DOUBLE)
+  DIM LEFT, RIGHT, TOP, BOTTOM AS INTEGER
+  DIM NX, NY AS INTEGER
+  DIM W, H AS INTEGER
+  DIM XDELTA, YDELTA AS DOUBLE
+  DIM XPOS, YPOS AS DOUBLE
+  DIM I AS INTEGER
+  DIM S AS STRING
+  
+  DIM BORDER AS INTEGER
+  
+  BORDER = 40
+  
+  TOP = BORDER
+  BOTTOM = SCREENHEIGHT() - BORDER * 2
+  LEFT = BORDER
+  RIGHT = SCREENWIDTH() - BORDER * 2
+  
+  SETCOLOR 0,0,0
+  CLS
+    
+  SETCOLOR 255,255,0
+  NX = 10
+  NY = 10
+
+  XDELTA = DOUBLE(RIGHT - LEFT) / DOUBLE(NX)
+  YDElTA = DOUBLE(BOTTOM - TOP) / DOUBLE(NY)
+
+  FOR I=0 TO NX
+    XPOS = DOUBLE(LEFT) + DOUBLE(I) * XDELTA
+    DRAWLINE XPOS, TOP, XPOS, BOTTOM
+  END FOR
+  
+  FOR I=0 TO NY
+    YPOS = DOUBLE(TOP) + DOUBLE(I) * YDELTA
+    DRAWLINE LEFT, YPOS, RIGHT, YPOS
+  END FOR
+  
+  S = "0.0"
+  W = STRINGWIDTH(S)+1
+  H = STRINGHEIGHT(S)+1
+  DRAWSTRING S,LEFT-W,BOTTOM
+  DRAWSTRING S,LEFT,BOTTOM+H
+  
+  S = "1.0"
+  W = STRINGWIDTH(S)+1
+  H = STRINGHEIGHT(S)+1
+  DRAWSTRING S,LEFT-W,TOP+H
+  DRAWSTRING S,RIGHT-W,BOTTOM+H
+
+  S = "Y-Axis"
+  W = STRINGWIDTH(S)+1
+  H = STRINGHEIGHT(S)+1
+  DRAWSTRING S,LEFT-W,TOP+(BOTTOM-TOP-H)/2
+
+  S = "X-Axis"
+  W = STRINGWIDTH(S)+1
+  H = STRINGHEIGHT(S)+1
+  DRAWSTRING S,LEFT+(RIGHT-LEFT-W)/2,BOTTOM+H
+
+  SETCOLOR 255,255,255
+  
+  FOR I=1 TO NP
+    XPOS = DOUBLE(LEFT) + XARRAY(I) * DOUBLE(RIGHT - LEFT)
+    YPOS = DOUBLE(TOP) + YARRAY(I) * DOUBLE(BOTTOM - TOP)
+    PLOT XPOS, YPOS
+  END FOR
+END SUB
+
+SUB MAIN
+  DIM XARRAY(500), YARRAY(500) AS DOUBLE
+  DIM NP AS INTEGER
+  DIM I AS INTEGER
+  
+  NP = 500
+  
+  FOR I=1 TO NP
+    XARRAY(I) = RND(0.0)
+    YARRAY(I) = RND(0.0)
+  END FOR
+  
+  GRAPHICS
+  CALL CROSSPLOT(NP, XARRAY, YARRAY)
+  REPAINT
+  
+  SLEEP 5000
+END SUB

Examples/Graphics/drawarc.bas

@@ -0,0 +1,25 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWRECT X,Y,RW,RH
+  SETCOLOR 255,0,0
+  DRAWARC X,Y,RW,RH,5,90
+  SETCOLOR 0,255,0
+  DRAWARC X,Y,RW,RH,-5,-90
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawcircle.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM CX, CY, R AS INTEGER
+  
+  GRAPHICS
+  
+  CY=SCREENHEIGHT()/2
+  CX=SCREENWIDTH()/2
+  
+  IF (CX < CY) THEN
+    R=CX/2
+  ELSE
+    R=CY/2
+  END IF
+  
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWCIRCLE CX,CY,R
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawline.bas

@@ -0,0 +1,32 @@
+SUB MAIN
+  DIM HEIGHT, WIDTH AS INTEGER
+  DIM I AS INTEGER
+  
+  GRAPHICS
+
+  HEIGHT=SCREENHEIGHT()
+  WIDTH=SCREENWIDTH()
+
+  SETCOLOR 0,0,0	// BLACK
+  CLS
+
+  SETCOLOR 255,255,0	// YELLOW
+  FOR I=0 to WIDTH STEP 5
+    PRINT "I=" + STR$(I)
+    DRAWLINE 0,0,I,HEIGHT
+  END FOR
+  
+  SETCOLOR 0,255,255	// CYAN
+  FOR I=0 TO WIDTH STEP 5
+    DRAWLINE WIDTH,0,I,HEIGHT
+  END FOR
+
+  REPAINT
+
+  FOR I=1 TO 10
+    SLEEP 1000
+    TEXT
+    SLEEP 1000
+    GRAPHICS
+  END FOR
+END SUB

Examples/Graphics/drawoval.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWOVAL X,Y,RW,RH
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawpie.bas

@@ -0,0 +1,25 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWRECT X,Y,RW,RH
+  SETCOLOR 255,0,0
+  DRAWPIE X,Y,RW,RH,5,90
+  SETCOLOR 0,255,0
+  DRAWPIE X,Y,RW,RH,-5,-90
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawrect.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWRECT X,Y,RW,RH
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawroundrect.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWROUNDRECT X,Y,RW,RH,50,50
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/drawstring.bas

@@ -0,0 +1,11 @@
+SUB MAIN
+  GRAPHICS
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,0,0
+  DRAWSTRING "HELLO",0,SCREENHEIGHT()/4
+  SETCOLOR 255,255,0
+  DRAWSTRING "WORLD",0,SCREENHEIGHT()/2
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/fillarc.bas

@@ -0,0 +1,25 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWRECT X,Y,RW,RH
+  SETCOLOR 255,0,0
+  FILLARC X,Y,RW,RH,5,90
+  SETCOLOR 0,255,0
+  FILLARC X,Y,RW,RH,-5,-90
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/fillcircle.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM CX, CY, R AS INTEGER
+  
+  GRAPHICS
+  
+  CY=SCREENHEIGHT()/2
+  CX=SCREENWIDTH()/2
+  
+  IF (CX < CY) THEN
+    R=CX/2
+  ELSE
+    R=CY/2
+  END IF
+  
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  FILLCIRCLE CX,CY,R
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/filloval.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  FILLOVAL X,Y,RW,RH
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/fillpie.bas

@@ -0,0 +1,25 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  DRAWRECT X,Y,RW,RH
+  SETCOLOR 255,0,0
+  FILLPIE X,Y,RW,RH,5,90
+  SETCOLOR 0,255,0
+  FILLPIE X,Y,RW,RH,-5,-90
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/fillrect.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  FILLRECT X,Y,RW,RH
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/fillroundrect.bas

@@ -0,0 +1,21 @@
+SUB MAIN
+  DIM W, H AS INTEGER
+  DIM RW, RH AS INTEGER
+  DIM X, Y AS INTEGER
+  
+  GRAPHICS
+  
+  W = SCREENWIDTH()
+  H = SCREENHEIGHT()
+  RW = W / 2
+  RH = H / 2
+  X = RW / 2
+  Y = RH / 2
+    
+  SETCOLOR 0,0,0
+  CLS
+  SETCOLOR 255,255,255
+  FILLROUNDRECT X,Y,RW,RH,50,50
+  REPAINT
+  SLEEP 5000
+END SUB

Examples/Graphics/plot.bas

@@ -0,0 +1,16 @@
+SUB MAIN
+  DIM WIDTH, HEIGHT AS INTEGER
+  
+  GRAPHICS
+  WIDTH=SCREENWIDTH()
+  HEIGHT=SCREENHEIGHT()
+  
+  SETCOLOR 0,0,0
+  CLS
+  
+  WHILE true
+    SETCOLOR RND(256),RND(256),RND(256)
+    PLOT RND(WIDTH),RND(HEIGHT)
+    REPAINT
+  END WHILE
+END SUB

Examples/Graphics/repaint.bas

@@ -0,0 +1,10 @@
+SUB MAIN
+  DIM I AS INTEGER
+  GRAPHICS
+  FOR I=1 TO 20
+    SETCOLOR RND(256),RND(256),RND(256)
+    CLS
+    REPAINT
+    SLEEP 500
+  END FOR
+END SUB

Examples/Graphics/rotated_text.bas

@@ -0,0 +1,32 @@
+SUB MAIN
+  GRAPHICS
+  SETCOLOR 0,0,0	// BLACK
+  
+  GSAVE
+  TRANSLATE 100,100
+  SETCOLOR 255,0,0
+  CALL ROTATEDTEXT
+  GRESTORE
+  
+  GSAVE
+  TRANSLATE 300,200
+  SETCOLOR 0,255,0
+  CALL ROTATEDTEXT
+  GRESTORE
+    
+  REPAINT
+  
+  SLEEP 5000
+END SUB
+
+SUB ROTATEDTEXT
+  DIM I AS INTEGER
+  DRAWLINE -10,0,10,0
+  DRAWLINE 0,-10,0,10
+  FOR I=0 TO 359 STEP 30
+  	GSAVE
+    ROTATE I
+    DRAWSTRING "Angle=" + STR$(I), 40, 0
+    GRESTORE
+  END FOR
+END SUB

Examples/Graphics/setfont.bas

@@ -0,0 +1,45 @@
+SUB MAIN
+  DIM ALPHABET AS STRING
+  DIM XPOS, YPOS AS INTEGER
+  
+  ALPHABET="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+  XPOS=0
+  YPOS=40
+  
+  GRAPHICS
+  SETCOLOR 0,0,0	// BLACK
+  CLS
+
+  SETCOLOR 255,255,255	// WHITE
+  SETFONT "MONOSPACE", 20
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+  
+  SETFONT "SANS_SERIF", 20
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+  
+  SETFONT "SERIF", 20
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+  
+  SETCOLOR 255,0,0	// RED
+  SETFONT "MONOSPACE", 25
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+  
+  SETCOLOR 0,255,0	// GREEN
+  SETFONT "SANS_SERIF", 30
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+
+  ROTATE 10
+  SETCOLOR 0,0,255	// BLUE
+  SETFONT "SERIF", 35
+  YPOS=YPOS+STRINGHEIGHT(ALPHABET)
+  DRAWSTRING ALPHABET,XPOS,YPOS
+
+  REPAINT
+  
+  SLEEP 5000
+END SUB