Hilbert in Blitz

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|82\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Article Home -> Graphics 2D

Jayenkai	Created : 18 October 2010 Edited : 18 October 2010 System : Windows Language : Blitz Hilbert in Blitz
Hilbert Curve Never heard of these before Spinal mentioned them yesterday. They're kinda neat! Since I'm procrastinating, and trying not to finish my first AGameAWeek game of the year, I figured I'd do it in Blitz. ... So here's that.. It's a bit messy, but it works! Global w#=800 ; Set these as big as you can get 'em onto your screen! Global h#=800 Global AtX#,AtY#,Size# Global Direction Global didmany=0 Graphics w,h,32,2 SetBuffer BackBuffer() Cls Repeat Color Rand(10,25)10,Rand(10,25)10,Rand(10,25)*10 DoHilbert(Rand(1,8)) Until KeyDown(1) WaitKey() Function DoHilbert(itterations#) didmany=0 If itterations<1 Then Return boxes#=(2^itterations)-(1/(2^itterations)) size=w/boxes AtX=size/2:AtY=size/2 Direction=3 DoA(Itterations) Flip End Function Function Draw() If KeyDown(1) Then End wx=AtX:wy=AtY Select Direction Case 1 AtY=AtY-Size Case 2 AtX=AtX+Size Case 3 AtY=AtY+Size Case 4 AtX=AtX-Size End Select Line wx,wy,AtX,AtY didmany=didmany+1:If didmany>10 Then didmany=0:Flip False End Function Function TurnLeft() Direction=Direction-1:If Direction=0 Then Direction=4 End Function Function TurnRight() Direction=Direction+1:If Direction=5 Then Direction=1 End Function Function DoA(times) If times=0 Then Return TurnLeft DoB(times-1) Draw TurnRight DoA(times-1) Draw DoA(times-1) TurnRight Draw DoB(times-1) TurnLeft End Function Function DoB(times) If times=0 Then Return TurnRight DoA(times-1) Draw TurnLeft DoB(times-1) Draw DoB(times-1) TurnLeft Draw DoA(times-1) TurnRight End Function --v

Comments
Monday, 18 October 2010, 10:44
JL235	I found it funny that on the Wikipedia page for that the Java version is twice as long as the Python one, whilst Haskell's is only 3 lines.
Monday, 18 October 2010, 10:52
Jayenkai	I found the Turtle one to be the least baffling, hence my approximation of it, here!
Wednesday, 27 October 2010, 08:32
Andy_A	I found an old listing lurking on my hard drive. It's a QB listing coverted to B+ ;=========================================================================== ; Subject: DRAW A HILBERT CURVE Date: 11-02-96 (18:32) ; Author: Jamshid Khoshrangi Code: QB, QBasic, PDS ; Origin: FidoNet QUIK_BAS Echo Packet: EGAVGA.ABC ;=========================================================================== ; HILBERT.BAS -- Program to draw a Hilbert Curve ; ; Translated from Dr. Roger T. Steven;s C sample ; code in _Fractal Programming in C_ pp. 199-200. ; ; Courtesy JAMSHID KHOSHRANGI ; Modified slightly by Andrew Dart ; ;=========================================================================== ; BlitzPlus version by Andres Amaya Jr. ; 2008.05.27 ;=========================================================================== AppTitle "Hilbert Curve" Global sw%, sh% Global level%, x1%, y1%, x2%, y2%, penSize% ;================================ ;Choose window size here ;================================ screen = 2 Select screen Case 0: sw = 320: sh = 200 Case 1: sw = 640: sh = 480 Case 2: sw = 800: sh = 600 Case 3: sw = 1024: sh = 768 Case 4: sw = 1280: sh = 1024 Case 5: sw = 1600: sh = 1200 Default: sw = 800: sh = 600 End Select Graphics sw%, sh%, 32, 1 SetBuffer BackBuffer() SeedRnd(MilliSecs()) For skew% = 0 To 99 paws% = Rand(0,99) Next skew% = 0 ;============================================ ;set time delay between fractal displays here ;============================================ paws% = 2000 ;milliseconds Repeat For depth = 1 To 8 Cls Color Rand(64,255),Rand(64,255),Rand(64,255) Select depth Case 1 x1% = 160: y1% = 60 length% = 480 : penSize% = 100 Case 2 x1% = 160: y1% = 60 length% = 160 : penSize% = 80 Case 3 x1% = 150: y1% = 50 length% = 72 : penSize% = 36 Case 4 x1% = 150: y1% = 50 length% = 34 : penSize% = 16 Case 5 x1% = 150: y1% = 50 length% = 16 : penSize% = 8 Case 6 x1% = 150: y1% = 50 length% = 8 : penSize% = 4 Case 7 x1% = 150: y1% = 50 length% = 4 : penSize% = 2 Case 8 x1% = 150: y1% = 50 length% = 2 : penSize% = 1 End Select x2% = x1%: y2% = y1% level = depth generate length%, skew% Color 0,192,255 Text 2,20,"Recursion" Text 2,35,"Depth = "+depth Color 255,255,0 Text 2,sh-25,"Click to Exit." Flip st = MilliSecs()+ paws% While st > MilliSecs() If MouseHit(1) Then End Wend Next Forever End Function generate (r1%, r2%) level = level - 1 If level > 0 Then generate r2, r1 End If x2 = x2 + r1 y2 = y2 + r2 fatLine (x1, y1, x2, y2, penSize) x1 = x2 y1 = y2 If level > 0 Then generate r1, r2 End If x2 = x2 + r2 y2 = y2 + r1 fatLine (x1, y1, x2, y2, penSize) x1 = x2 y1 = y2 If level > 0 Then generate r1, r2 End If x2 = x2 - r1 y2 = y2 - r2 fatLine (x1, y1, x2, y2, penSize) x1 = x2 y1 = y2 If level > 0 Then generate -r2, -r1 End If If level > 1 Then Color Rand(64,255),Rand(64,255),Rand(64,255) level = level + 1 If MouseHit(1) Then End End Function Function fatLine(x1%, y1%, x2%, y2%, penSize%) If penSize% < 1 Then Return False If penSize% = 1 Then Line(x1%, y1%, x2%, y2%): Return offset% = penSize% Shr 1 deltax% = Abs(x2% - x1%) deltay% = Abs(y2% - y1%) If deltax% >= deltay% Then numrects% = deltax% + 1 d% = (2 * deltay%) - deltax% dinc1% = deltay% Shl 1 dinc2% = (deltay% - deltax%) Shl 1 xinc1% = 1 xinc2% = 1 yinc1% = 0 yinc2% = 1 Else numrects% = deltay% + 1 d% = (2 * deltax%) - deltay% dinc1% = deltax% Shl 1 dinc2% = (deltax% - deltay%) Shl 1 xinc1% = 0 xinc2% = 1 yinc1% = 1 yinc2% = 1 End If If x1% > x2% Then xinc1% = - xinc1% xinc2% = - xinc2% End If If y1% > y2% Then yinc1% = - yinc1% yinc2% = - yinc2% End If x% = x1% - offset% y% = y1% - offset% For i% = 1 To numrects% Rect x%, y%, penSize%, penSize%, 1 If d% < 0 Then d% = d% + dinc1% x% = x% + xinc1% y% = y% + yinc1% Else d% = d% + dinc2% x% = x% + xinc2% y% = y% + yinc2% End If Next End Function --v
Wednesday, 27 October 2010, 19:45
steve_ancell	I still don't get why it's called a Hilbert Curve, when the thing draws bloomin' right angles
Wednesday, 27 October 2010, 20:31
Jayenkai	lol

Comments