Plot coordinate pairs: Difference between revisions

First version writes directly to LB's concsole window.

End

</lang>

The second version uses the more typical graphic window approach, and is written to enable easy adaptation to other data sets.

<lang lb>

nomainwin

DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9

DATA 2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0

READ tmp: x( i) = tmp

For i = 0 To 9

READ tmp: y( i) = tmp

'Plotting coordinate pairs

WindowHeight = 500

WindowWidth = 430

Open "Plot coordinate pairs" For Graphics_nsb_nf As #gwin

#gwin "trapclose [quit.gwin]"

#gwin "Color Black; Down"

'25, 418 is 0,0

global offsetX, offsetY, scaleX, scaleY

offsetX = 25: offsetY = 418

scaleX = 40: scaleY = 2

maxX = 9: maxY = 200

#gwin "line "; sx( maxX);" "; sy( 0);" "; sx( 0); " "; sy( 0)

#gwin "goto "; sx( 0); " "; sy( maxY)

For x = 0 To 9

#gwin "place ";sx(x);" ";sy(0)

#gwin "Go -18"

#gwin "|"; x

Next

#gwin "turn 90"

For y = 0 To 200 Step 20

#gwin "place ";sx(0);" ";sy(y)

#gwin "Go -5"

#gwin "place ";0;" ";sy(y)

#gwin "|"; y

Next

#gwin "size 3"

#gwin "set ";sx(x(i));" ";sy(y(i))

#gwin "Flush"

End

'x, y to screen x, y

function sx(x)

sx = offsetX +x*scaleX

end function

function sy(y)

sy = offsetY-y*scaleY 'y is inverted

end function

</lang>