Code:
I use this method in a mapping project to manipulate m-dimensional
numeric arrays and numeric binary files as if both are (m, n)-dimensional
arrays. I also use a variation of this method to store and retrieve two
positive integer values in a single integer.
An (m, n)-array is simply a matrix with "m" rows down and "n" columns across.
An (m)-array can be substituted by setting it the size of m * n. Then
specific values within the array can be set or retrieved by:
Record number = Row * Array Width + Column
Where:
Row : is "down" in the M-dimension
Array Width: is the number of elements in N-dimension
Column: : is "right" in the N-dimension
If the array is written out to a binary file specific records within
the file can be accessed by:
Record number = Row * (Array Width + 1) * Size of Value + (Column * Size of Value)
Where:
Size of Value: is the number of bytes required to store the value
1: is an alignment into the binary file
This method can be used with binary files written by both (m)- and (m, n)-dimensional
arrays. It can also be used to write to specific locations within the binary file.
To store two values as a single value:
Number = Value1 * Width + Value2
Where:
Value1: is some number
Width: is some known width
Value2: is some number
Width can be:
number of bytes
number of words
number of columns
width of a world
some arbitrary number
To retrieve the two values stored as a single value:
Value1 = Number \ Width
Value2 = Number MOD Width
If you have questions, send me a personal message or start a thread in the support
forum refering to this topic.
Code:
'Date : 4-24-2009
'Author : Walt Decker
'Subject : Single Dimension Numeric Arrays and Numeric Binary Files
'Topic : N-Arrays & Bin Files
'=====================================================================
'Text
' Released to Public Domain by the author.
' I use this method in a mapping project to manipulate m-dimensional
' numeric arrays and numeric binary files as if both are (m, n)-dimensional
' arrays. I also use a variation of this method to store and retrieve two
' positive integer values in a single integer.
' An (m, n)-array is simply a matrix with "m" rows down and "n" columns across.
' An (m)-array can be substituted by setting it the size of m * n. Then
' specific values within the array can be set or retrieved by:
' Record number = Row * Array Width + Column
' Where:
' Row : is "down" in the M-dimension
' Array Width: is the number of elements in N-dimension
' Column: : is "right" in the N-dimension
' If the array is written out to a binary file specific records within
' the file can be accessed by:
' Record number = Row * (Array Width + 1) * Size of Value + (Column * Size of Value)
' Where:
' Size of Value: is the number of bytes required to store the value
' 1: is an alignment into the binary file
' This method can be used with binary files written by both (m)- and (m, n)-dimensional
' arrays. It can also be used to write to specific locations within the binary file.
' To store two values as a single value:
' Number = Value1 * Width + Value2
' Where:
' Value1: is some number
' Width: is some known width
' Value2: is some number
'
' Width can be:
' number of bytes
' number of words
' number of columns
' width of a world
' some arbitrary number
' To retrieve the two values stored as a single value:
' Value1 = Number \ Width
' Value2 = Number MOD Width
'=================================================================================
' If you have questions, send me a personal message or start a thread in the support
' forum refering to this topic.
'=================================================================================
#COMPILE EXE
#BREAK ON
DEFLNG A - Z
FUNCTION PBMAIN () AS LONG
LOCAL Rad AS SINGLE
CONSOLE SET SCREEN 10, 20
CONSOLE SET LOC 200, 300
BmpWide = 72
BmpHigh = 72
WinWide = BmpWide ' width of window
WinHigh = BmpHigh ' height of window
AryWide = BmpWide - 1 ' n-elements in (m, n)-array
AryHigh = BmpHigh - 1 ' m-elements in (m, n)-array
Rad! = (4 * ATN(1)) / 180! ' value of radians for trig functions
Dist = (AryWide \ 2) - 10 ' distance
Cx = AryWide \ 2 ' column center
Cy = AryHigh \ 2 ' row center
DIM Map(AryWide * AryHigh)
MAT Map() = CON(%BLUE) ' make all values blue
'====================================================
' DRAW A CIRCLE IN THE SINGLE DIMENSIONAL ARRAY.
' THIS DATA COULD ALSO BE WRITTEN DIRECTLY TO A
' BINARY FILE
'=====================================================
FOR I = 0 TO 360
X = Cx + Dist * SIN(I * Rad!)
Y = Cy - Dist * COS(I * Rad!)
Rec = Y * AryWide + X 'first equation above
Map(Rec) = %WHITE
NEXT I
GRAPHIC WINDOW "test", 200, 100, BmpWide, BmpHigh TO WinHndl
GRAPHIC ATTACH WinHndl, 0, REDRAW
OPEN "FileTest.Tst" FOR BINARY AS #1 BASE = 0
X = 0
Y = 0
'=====================================================
' DRAW THE CIRCLE IN THE WINDOW AND STORE THE DATA
' IN A BINARY FILE
'=====================================================
FOR I = 0 TO AryHigh
Row = I * AryWide 'first equation
FOR J = 0 TO AryWide
Rec = Row + J 'first equation
GRAPHIC SET PIXEL (X, Y), Map(Rec)
PUT #1, , Map(Rec) 'sequential write
INCR X
NEXT J
INCR Y
X = 0
NEXT I
GRAPHIC REDRAW
CONSOLE SET FOCUS
PRINT "Press a key"
WAITKEY$
'======================================================
' RETRIEVE ONLY THE CIRCLE FROM THE BINARY FILE
'======================================================
FOR I = 0 TO 360
X = Cx + Dist * SIN(I * Rad!)
Y = Cy - Dist * COS(I * Rad!)
Row = Y * (AryWide + 1) * 4 'second equation
Rec = Row + (X * 4) 'second equation
GET #1, Rec, Map(0)
GRAPHIC SET PIXEL (X, Y), Map(0) AND 255 'change display color
NEXT I
GRAPHIC REDRAW
CLOSE #1
KILL "FileTest.Tst"
LOCATE 1, 1
COLOR 4, 7
PRINT "Press a key
WAITKEY$
GRAPHIC WINDOW END
END FUNCTION