Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
87
Examples/Graphics/crossplot.bas
Normal file
87
Examples/Graphics/crossplot.bas
Normal file
|
@ -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
|
Loading…
Add table
Add a link
Reference in a new issue