How can I create a checkered floor pattern ?

[Pot Noodle]

Hi guys, I am in the middle of an Intro for the D.B.F Xmas comp and have been stuck for ideas.
I decided on an old school type intro But now I am stuck.
I want do draw a checked floor pattern with blue and white squares on it and have it going off in to the distance.
I can't show my code at the moment, If someone has done this or knows how to do this
Your help would be great, I have part of some old code but I can't remember the rest of it.

Code: Select all

Procedure DrawGrid()
	
	Static Z
	Static X
	
	Static TX
	Static TY
	
	Static Clr
	Static Shade
	Static ClrStrt = 1
	
	Dim PolyTransform.f(8)
	
	For Z = 0 To Grid-2	
		
		ClrStrt = ClrStrt + 1
		If ClrStrt > 2 
			ClrStrt = 1
		EndIf
		
		Clr = ClrStrt
		For X = 0 To Grid-2
			
			Clr = Clr+1
			If Clr > 2 
				Clr = 1
			EndIf
			
			TX = (GridX(X,Z) / (GridZ(X,Z) - Move)) + HalfX
			TY = (GridY(X,Z) / (GridZ(X,Z) - Move)) + HalfY			
			
			PolyTransform(0) = TX
			PolyTransform(1) = TY
			
			TX = (GridX(X+1,Z) / (GridZ(X+1,Z) - Move)) + HalfX
			TY = (GridY(X+1,Z) / (GridZ(X+1,Z) - Move)) + HalfY			
			
			PolyTransform(2) = TX
			PolyTransform(3) = TY
			
			TX = (GridX(X+1,Z+1) / (GridZ(X+1,Z+1)-Move))+HalfX
			TY = (GridY(X+1,Z+1) / (GridZ(X+1,Z+1)-Move))+HalfY			
			
			PolyTransform(4) = TX
			PolyTransform(5) = TY
			
			TX = (GridX(X,Z+1) / (GridZ(X,Z+1) - Move)) + HalfX
			TY = (GridY(X,Z+1) / (GridZ(X,Z+1) - Move)) + HalfY			
			
			PolyTransform(6) = TX
			PolyTransform(7) = TY
			
			Shade = (TY/4) - 75
			If Shade<0
				Shade=0
			EndIf
			
			If Clr = 1
				SetColor(Shade,Shade,Shade)
			EndIf
			
			If Clr = 2
				SetColor( 0, 0,Shade)			
			EndIf		
			
			Poly(PolyTransform)
			
		Next
	Next
	
EndProcedure

Thanks

[Pot Noodle]

I can't believe it 67 views and no one has an idea

[IdeasVacuum]

Edit your post title - probably those 67 viewers thought your post is "This how to make a chequered floor", and not "How can I code a chequered floor?"

[Pot Noodle]

Edit your post title - probably those 67 viewers thought your post is "This how to make a chequered floor", and not "How can I code a chequered floor?"

Thanks, I'm not very good at this

[IdeasVacuum]

You didn't change the post title to a question?

[em_uk]

Hi Pot Noodle.

The best thing to do is post a working example, or the framework to allow us to easily run what you're trying to do.

Just posting a procedure means that I have to figure out what you're doing and what I need to do in order to get it to work.

I skip through the question areas and copy and paste into PB and run, then I see if I can help out anyway.

[Pot Noodle]

The Procedure is not PB, It's some old code I found but it's not complete.
I posted it thinking it may give someone an idea.
I have searched long and hard for some way to do this but there is nothing out there
As for my code it would be as simple as calling a Procedure from the main loop to draw the pattern.

[Derek]

Ugly as sin bit of code but maybe you can get something from it.

Code: Select all

OpenWindow(0,0,0,1000,800,"",$ca0001)
CreateImage(0,4000,800)
StartDrawing(ImageOutput(0))
y=0
s=4
c=#White
Repeat
  For m=1 To s
    cc=c
    For n=0 To 4000 Step 16
      Line(n,y,16,1,cc)
      If cc=#White
        cc=#Blue
      Else
        cc=#White
      EndIf
    Next
    y+1  
  Next
  s+1
  If c=#White
    c=#Blue
  Else
    c=#White
  EndIf
Until y>=800
w=1000
x=0
For y=0 To 800
  GrabDrawingImage(1,0,y,4000,1)
  ResizeImage(1,w,1)
  DrawImage(ImageID(1),x,y)
  w+48
  x-24
Next
StopDrawing()
ImageGadget(1,0,0,1000,800,ImageID(0))
Repeat
Until WaitWindowEvent()=16

[IdeasVacuum]

Can it be a static image?

[Pot Noodle]

Can it be a static image?

Hi I was hoping to scroll it once I had drawn it but I am glad that this code draws it, Brill

Thanks guys for your help.

[netmaestro]

I think the 3d drawing library from stargate here: http://purebasic.fr/english/viewtopic.php?f=12&t=53246
should serve your purpose. Specifically check example #4. You can create a checkered image and use this to tilt it back realistically at any angle you like. Note that there is a StructureUnion in the .pbi that the current compiler won't accept. It's not a problem, just comment out the StructureUnion and EndStructureUnion lines and leave the members as they are and you're good to go.

I made this in 5 minutes using the library:

[IdeasVacuum]

That's excellent netmaestro!

[netmaestro]

You're close. You should have said, "That's excellent Stargate"

All I did was know about it.

[davido]

I say excellent, ALL.

Thanks netmaestro, now I know about it, too.

A magnificent work by STARGÅTE.

[netmaestro]

I used my coming Gif Workshop to make an animation of movement:

Look at it.
Relax.
Keep watching it.
You are starting to get sleepy... sleepy...
You are now fast asleep. You hear nothing but the sound of my voice.
Now, when I snap my fingers, you will awaken and feel refreshed.
And send me all your money