making a binary lookup? - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|579\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Basic Basement -> making a binary lookup?
Thu, 22 Nov 2007, 19:00
spinal	I'm currently converting an old c64 basic program to blitz, and well, the graphics work quite differently, so I need a binary table to hold pixel data that would be poked into memory. I did this very quickly, can someone suggest a better way? ; make a binary lookup Dim binary(255,7) ; 256 values, 8 pixels t=0 For t1=0 To 1 For t2=0 To 1 For t3=0 To 1 For t4=0 To 1 For t5=0 To 1 For t6=0 To 1 For t7=0 To 1 For t8=0 To 1 binary(t,0)=t1 binary(t,1)=t2 binary(t,2)=t3 binary(t,3)=t4 binary(t,4)=t5 binary(t,5)=t6 binary(t,6)=t7 binary(t,7)=t8 t=t+1 Next Next Next Next Next Next Next Next --v thanks. -=-=- Check out my excellent homepage!
Thu, 22 Nov 2007, 20:19
Scherererer	Dim binary(255) for n=0 to 256 binary(n) = bin$(n) next --v www.blitzbasic.com/en/bpdocs/command.php?name=Bin&ref=2d_cat maybe that will help? untested, of course, and this would also store the binary as strings.. but i guess you could parse through the digits after doing this. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Fri, 23 Nov 2007, 05:48
Jayenkai	for number=0 to 255 for x=1 to 8 binary(number,x) = Mid$(Right$(Bin$(number),8),x,1) next next --v -=-=- ''Load, Next List!''
Fri, 23 Nov 2007, 12:03
Scherererer	you may want to do some speed tests, there's no telling whether or not the conversion and parsing of strings and back would be slower than just having a bunch of for loops. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus