Nehe tutorial

BlitzMax Forums/BlitzMax Tutorials/Nehe tutorial

Extron

(Posted 2004) [#1]

Nehe tutorial 2 to 13 - 16 to 43.
For more info see http://nehe.gamedev.net/

Tested with Win32 BMax core 1.10.
Not tested with MacOs and linux, report error if you have one.

jb update

I have added frameworks to NeHe (2 to 43) and changed HideMouse to bglSetMouseVisible False in order to get the tutorials working under BlitzMax v1.10
This fixes the 'mixing Max2D & PureGL' issue where the window opens then immediately closes again

Thanks to him.

Nehe Tutorial

Tuto list :
2-Your First Polygon
3-Adding Color
4-Rotation
5-3D Shapes
6-Texture Mapping
7-Texture Filters, Lighting & Keyboard Control
8-Blending
9-Moving Bitmaps In 3D Space
10-Loading And Moving Through A 3D World
11-Flag Effect (Waving Texture)
12-Display Lists
13-Bitmap Fonts
16-Cool Looking Fog
17-2D Texture Font
18-Quadrics
19-Particle Engine Using Triangle Strips
20-Masking
21-Lines, Antialiasing, Timing, Ortho View And Simple Sounds
22-Bump-Mapping, Multi-Texturing & Extensions
23-Sphere Mapping Quadrics In OpenGL
24-Tokens, Extensions, Scissor Testing And TGA Loading
25-Morphing & Loading Objects From A File
26-Clipping & Reflections Using The Stencil Buffer
27-Shadows
28-Bezier Patches
29-Blitter Function, RAW Texture Loading
30-Collision Detection
31-Model Loading
32-Picking, Alpha Blending, Alpha Testing, Sorting
33-Loading Compressed And Uncompressed TGA's
34-Beautiful Landscapes By Means Of Height Mapping
35-Playing AVI files in OpenGL (BMF file)
36-Radial Blur & Rendering To A Texture
37-Cel-Shading
38-Loading Textures From A Resource File & Texturing Triangles (Use incbin)
39-Introduction to Physical Simulations
40-Rope Physics
41-Volumetric Fog & IPicture Image Loading
42-Multiple Viewports
43-FreeType Fonts in OpenGL

You can add or change "bglSetSwapInterval(0)" after the window creation.
bglSetSwapInterval(0) disable Vsync
bglSetSwapInterval(1) enable Vsync
bglSetSwapInterval(2) Vsync/2
Etc...
You can add "| BGL_FULLSCREEN" to the "bglCreateContext" for fullscreen.

All tutorials work by default in 800*600*32.

LarsG

(Posted 2004) [#2]

hey.. this is great.. thanks for sharing..
(although it runs reeeeeeaaaaal slow on the mac)

Difference

(Posted 2004) [#3]

Cool.

Mark said no exe's in the beta anouncement, so you should take those out!

Extron

(Posted 2004) [#4]

Corrected. ;)

flying willy

(Posted 2004) [#5]

Nice work!

Koekelas

(Posted 2004) [#6]

Very nice.

In contradiction to LarsG they run quite fast on my Mac (60fps and more).

Nicolas.

Extron

(Posted 2004) [#7]

Added Nehe tutorial 9

Add "BGL_FULLSCREEN" to the bglcreatecontext.

Humm..., i have 3500-4500 fps in Win32 windowed and 3000/7000 fps in fullscreen.

Koekelas

(Posted 2004) [#8]

Hmmm, I see what LarsG mend with slow. I thought 60 fps and up is more than reasonable for my Macintosh (three year old iMac, G4 @ 700Mhz, 512MB Ram and an Geforce MX 2) but 60 and 7000 fps is a big diference isn't it :-)?

But nice work again whit tutorial 9.

Nicolas.

Extron

(Posted 2004) [#9]

I don't know the Imac world!

Added Nehe tutorial 10 and i go to sleep. :)
Good night.

Brucey

(Posted 2004) [#10]

I get exactly 60fps on my 867mhz G4 powerbook...

Is this because the display "refresh" is set at 60 ? If so, how do you override it?

Also, I had to change rotation numbers from things like 0.003 to 0.3 to make things spin and move at a reasonable pace...
Are these values meant to be fps independent, or if you are getting 1000fps, does say, the cube, rotate faster?

:o)
Brucey

Extron

(Posted 2004) [#11]

Is this because the display "refresh" is set at 60

Possible!

Try "bglSetSwapInterval(0)" before or after "bglcreatecontext".

For me i desactivated the Opengl vsync via the control panel of the card. I don't know if it's possible on Imac.

robleong

(Posted 2004) [#12]

Great tutorials - thanks! Do consider using more KeyDown commands than KeyHit for better effect, especially for those of us with slow computers. :)

Extron

(Posted 2004) [#13]

It's this!
Add "bglSetSwapInterval(0)" after "bglcreatecontext".
bglSetSwapInterval(0) desactivate vsync.
bglSetSwapInterval(1) activate vsync.
bglSetSwapInterval(2) vsync/2.
bglSetSwapInterval(3) vsync/3.
Etc.....
See comment for this command in the doc. ;)

Nehe tutorial is very basic and not well optimised. :)

puki	(Posted 2004) [#14]

I spent a while wondering what a 'NeHe' was - I thought it was a 'something' - it's the name of the developer. I looked at the webpage and sat their thinking 'What the hell is a NeHe? - why are there NeHe tutorials?'

Extron

(Posted 2004) [#15]

Added Nehe tutorial 11 and 12.

Diordna

(Posted 2004) [#16]

Thanks a lot! Now I can learn OpenGL. Please continue doing this!

Richard Betson

(Posted 2004) [#17]

Well Done Extron!

Keep up the good work 8)

L8r,

Extron

(Posted 2004) [#18]

Added tutorial 13, 16 and 17.

Tutorial 14 and 15 are very specific.

Extron

(Posted 2004) [#19]

Added tutorial 18, 19 and 20.
Quadratic, particle and masking.

Richard Betson

(Posted 2004) [#20]

Extron your a machine:)

Good work.. Keep it up!

L8r,

Hotcakes

(Posted 2004) [#21]

Extron go and have Christmas! =]

Extron

(Posted 2004) [#22]

Added tutorial 21 and 22.

Tutorial 21 is a little game.

Tutorial 22 introduce multitexturing and bumpmapping.
Infortunaly tutorial 22 don't use ARB Extension, Bmax have no support to this extension at this time. I have disabled ARB extension but the code can do this to the future.
Very interesting Tutorial and hard to translate. :)

Drago

(Posted 2004) [#23]

extorn: there is a module for GLEW (GL extenstion Wrapper) that lets you use the GL extensions.
it is in pub.mod/glew.mod

Extron

(Posted 2004) [#24]

Argggg.... :)
Yes i see, but it seem there is a bug with this command "glActiveTextureARB" "Unhandled Exception: Unhandled Memory Exception Error"

Extron

(Posted 2004) [#25]

Added tutorial 23, 24 and 25.

23 : Environment mapping
24 : Token, extensions, scissoring etc...
25 : Morphing points

Akira

(Posted 2004) [#26]

Thanks for porting these Extron... you're a legend.

If you haven't done so already, you should think about submitting these ports to the NeHe site, that way both you and BRL could get some well earned recognition.

Extron

(Posted 2004) [#27]

Yes, but Win32 Bmax is in beta version.
I can't actually do this until it was released.

Akira

(Posted 2004) [#28]

I don't think you'd be going against BRL's wishes by uploading the ported source code. I think the only real restriction with the betas, other than obvious copyright/piracy infringments, was that you weren't allowed to distribute any executables created with the beta's.

Given that BMax has been formally released on the Mac, and that BMax source code is supposed to be the same for all three versions, the source code you have created by porting the NeHe tutorials is effectively valid Mac BMax source and thus should be allowed to be distributed.

But regardless, you do what you feel is right. I am greatful to you for porting these tutorials, and I'm certain once they're posted on NeHe, a whole lot of other people will be too.

Extron

(Posted 2004) [#29]

Yes you are right, but Nehe archive come with an executable.
Source code can be compiled whith all the Bmax version, but the executable compiled for the specific OS don't work with other OS.
Why provide executable?, simply for those which don't have the compiler and see how it work.
Because Bmax is multiplatform, i would provide the executable for the 3 versions.

Somebody can tell me if the tutorial 22 (multitexturing and bumpmapping) work with the GL ARB extension activated on the Mac. You need to change __ARB_ENABLE to True.

Extron

(Posted 2005) [#30]

Added tutorial 26, 27 and 28.

26 : Stencil and reflection
27 : Shadow casting
28 : Bezier surface

Happy new year!

flaith

(Posted 2005) [#31]

G�nial, toujours aussi prolifique :)
Happy new year

Hotcakes

(Posted 2005) [#32]

Extron, you are a machine =]

Takuan

(Posted 2005) [#33]

Cool.
Should texture filtering work at example 22?
Pressing "T" shows no effect.

Extron

(Posted 2005) [#34]

Now it work.
I have updated the archive.

Takuan

(Posted 2005) [#35]

thnx, nice work.
Realy thought it would take more lines of code to create that nice shadow demo in example 27. Sweet surprise.

insomnia

(Posted 2005) [#36]

Yeah!

27 is really nice ;)

Chris C

(Posted 2005) [#37]

theres a problem with tut10 only 1/3 of the scenes polys
are rendered

near the end of the nehe10() function

	' Process Each Triangle
	For loop_m = 0 To numtriangles - 1 Step 3

should read

	' Process Each Triangle
	For loop_m = 0 To (numtriangles - 1)*3 Step 3

now you can see the 4 corridors like in the c sample!
good to see these tuts in max!

Extron

(Posted 2005) [#38]

Archive updated

There is an error in the Visual C++ source code.
Thanks Chris.

Rob Pearmain

(Posted 2005) [#39]

Could you add #37 Toon Rendering, thanks for all your hard work

Extron

(Posted 2005) [#40]

Added tutorial 29 and 30

29 : Blitter function, RAW texture loading.
30 : Collision detection (OOP) see instruction in the source code. ShowMenu don't work in this tut.

Beware, tutorial 30 is very difficult to understand, study it, very interisting tutorial and very hard to translate. :)

Could you add #37 Toon Rendering, thanks for all your hard work

Not a problem Rob, i'll see your other thread. ;)

Extron

(Posted 2005) [#41]

Added tutorial 37.

37 : Cel-Shading

Rob Pearmain

(Posted 2005) [#42]

Awesome, many many thanks

Extron

(Posted 2005) [#43]

De rien! :)

Extron

(Posted 2005) [#44]

Adding list and tuto description to the first post.

EOF	(Posted 2005) [#45]

I see you use a dedicated function for loading and converting textures. Have you tried bglTexFromPixmap?

Function LoadTexture(f$)
	Local pm:TPixmap=LoadPixmap(f$)
	Local texname=bglTexFromPixmap(pm)
	pm=Null ; FlushMem
	Return texname
End Function


tex=LoadTexture("test.bmp")
glEnable GL_TEXTURE_2D
glBindTexture GL_TEXTURE_2D,tex

glBegin
 ' blah
glEnd

Extron

(Posted 2005) [#46]

There is a reason, BlitzMax module use maximum mip level where Nehe tutorial use, in general, 0 or 3.

For a 512*512 image size :

Local pm:TPixmap=LoadPixmap(f$)
Local texname=bglTexFromPixmap(pm)

Result 512*512, 256*256, 128*128, 64*64, 32*32, 16*16, 8*8, 4*4, 2*2, 1*1

glTexImage2D(GL_TEXTURE_2D, 0, 3, TextureImage.width, TextureImage.height, 0, GL_RGB, GL_UNSIGNED_BYTE, TextureImage.pixels)

Second parameter generate 0 mip levels, this can be replaced by :

Local pm:TPixmap=LoadPixmap(f$)
Local texname=bglTexFromPixmap(pm,false)

Result 512*512.

gluBuild2DMipmaps(GL_TEXTURE_2D, 3, TextureImage.width, TextureImage.height, GL_RGB, GL_UNSIGNED_BYTE, TextureImage.pixels)

Second parameter generate only 3 mipmap levels.
Result 512*512, 256*256 and 64*64.

You don't need to release pm because it's local to the function and released after return.

EOF	(Posted 2005) [#47]

Ah I see. Great amount of knowledge you have. Good stuff.

Extron

(Posted 2005) [#48]

Added tutorial 31,32,33 and 34.

31-Model Loading (ms3d, not 100% oprerational)
32-Picking, Alpha Blending, Alpha Testing, Sorting (little game)
33-Loading Compressed And Uncompressed TGA's
This one use Stdc module just for demonstration, pure translation.
34-Beautiful Landscapes By Means Of Height Mapping

Booticus

(Posted 2005) [#49]

Extron, thanks! (again!)

RiverRatt

(Posted 2005) [#50]

Is this just a Mac thing?

xlsior

(Posted 2005) [#51]

Nope, they all work in the windows beta as well.

(Except the first number of tutorials run extremely slow on my PC, the later ones are all just fine)

flaith

(Posted 2005) [#52]

thx a lot, great as usual :)
but pb with tuto 33 with the new core (1.03) it doesn't compile, nothing happens, no error message !!!
works only if you puts a comment on the line : Import "pub.stdc"

Extron

(Posted 2005) [#53]

but pb with tuto 33 with the new core (1.03) it doesn't compile, nothing happens, no error message !!!
works only if you puts a comment on the line : Import "pub.stdc"

Etrange! ;)
It work for me with a 1.03 core in Win32.
But it work also without, it's a good thing. :)
I'll remove this and update all tutos to core 1.03 (release error message).

Merci flaith!

flaith

(Posted 2005) [#54]

De rien Extron,

have you tried to compile tuto33 after deleting the exe ?

Extron

(Posted 2005) [#55]

Ok i see "Process failure" :)

flaith

(Posted 2005) [#56]

le c.. que je suis :
Import "pub.stdc" <- PAS BON
Import pub.stdc <- BEAUCOUP MIEUX

donc guillemets : ATTENTION
;)

Extron

(Posted 2005) [#57]

Better solution is without. :))

It work without Import pub.stdc and with Import pub.stdc

Trumpetto

(Posted 2005) [#58]

First of all: GREAT JOB Extron!

Has anyone got tutorial 37 runniging on the mac? I just got a blank screen with the menu and the frame rate, very high :-)

Having problems with all the thirty-ish tutorials.

No big problem because I'm still trying to understand nr. 30 :-)

Extron

(Posted 2005) [#59]

Hummm... check if you have a sub-folder data in your directory. If Tutorial 37 don't find "Model.txt" and "Shader.txt" you will have a blank screen.

Trumpetto

(Posted 2005) [#60]

Hi Extron,

Thanks for the quick reply.
All is found in the subfolder but I found out that
polyNum=Readint(In) returns -939261952
Can you tell me what polyNum should be so I can test if that's the whole problem?

Extron

(Posted 2005) [#61]

1224
Possibility an Endian problem.
This text file isn't really a text file, but a binary file.
Mac and Intel store the number in different way, basically in inverse order.
You can swap this number to see if you find 1224.

In Intel platform this number is stored in the file has $C8040000 and reversed when it is read ($000004C8 = 1224 in decimal).

Extron

(Posted 2005) [#62]

Added tutorial 35

35-Playing AVI files in OpenGL
This tutorial is tweaked, he don't play a AVI file but a BMF file, a jpeg encapsulation file. Result is identical, except a less quality. Play it in 640*480 for a better quality. BMF format is explained in the source.

Trumpetto

(Posted 2005) [#63]

Thanks Extron.
When I give 1224 as polyNum something happens.
The tutorial runs but the model gives me some weird modern art :-)
This could be an offset-problem or maybe the floats aren't read well either.
I'll have a look in the cocoa app. That runs OK.

Trumpetto

(Posted 2005) [#64]

You were right about tutorial 37 extron;

I changed lin 161 on my Mac to ;
In=LittleEndianStream:TStream(OpenFile("Data/model.txt")) ' Open The File
Running perfectly now

Thanks

Trumpetto

(Posted 2005) [#65]

last bit now;

I think the code should read;

?LittleEndian
In=OpenFile("Data/model.txt")
?BigEndian
In=LittleEndianStream:TStream(OpenFile("Data/model.txt"))

Clyde

(Posted 2005) [#66]

These really are tremendous, great effort and work Extron.
Welldone mate and huge cheers for doing them bud.

Trumpetto

(Posted 2005) [#67]

In Nehetut31 in the Milkshape model on the Mac;

Method loadModelData(filename:String)

?LittleEndian
In=OpenFile(filename)
?BigEndian
In=LittleEndianStream:TStream(OpenFile(filename))

This makes it work for the Apple's.

Extron

(Posted 2005) [#68]

Yes for all binary file. :)
I will correct that.

Jeremy Alessi

(Posted 2005) [#69]

These are great!

Extron

(Posted 2005) [#70]

Added tutorial 36, 38 and 39

36-Radial Blur & Rendering To A Texture
38-Loading Textures From A Resource File & Texturing Triangles (Use incbin)
39-Introduction to Physical Simulations (OOP, type, method and type extended)

Clyde

(Posted 2005) [#71]

A Grand Job Extron!

Extron

(Posted 2005) [#72]

Added tutorial 40, 41, 42 and 43

40-Rope Physics (extend tutorial 39)
41-Volumetric Fog & IPicture Image Loading
42-Multiple Viewports
43-FreeType Fonts in OpenGL

Takuan

(Posted 2005) [#73]

Man, you are a ninja and there cant be enough ninjas out there((8)

Cronos

(Posted 2005) [#74]

cool job , maybe a pixel shaders Sample ???

Red Ocktober

(Posted 2005) [#75]

you guys are just discovering the NEHE site!!!!!!!!!!

:)

great job compiling all the tuts Extron... BIG THANKS...

--Mike

RGR	(Posted 2005) [#76]

Also, I had to change rotation numbers from things like 0.003 to 0.3 to make things spin and move at a reasonable pace...
Are these values meant to be fps independent, or if you are getting 1000fps, does say, the cube, rotate faster?

Could it be that these values are radiant and need to be converted to degrees (* 180 / Pi)?
I am too new to BMax (2 days) and OpenGL to know much about it - but I saw and tested the original tutorials in VisualC++ and they were much faster.
After converting they have the original speed.

Thank you very much, Extron. This is really great.

Clyde

(Posted 2005) [#77]

Grand work Extron.
Btw - Extron you might want to update your to do list ;)

Fantastic. Also there's no speed difference between BMAX and C++ conversions of the Nehe tuts and examples. Which is nice.

Extron

(Posted 2005) [#78]

I'm very occupied this time.

But who say. :)

Falelorn

(Posted 2005) [#79]

is anyone doing anything 3d with Nehe and Bmax?
How does it compare to the Irrilct (SP?!) wrapper

Filax

(Posted 2005) [#80]

Personaly, i'm waiting for an official (and simple to use) 3D engine
i want retrieve the blitz3d like style coding :)

Coding directly opengl ? not for me :) When i see the command
to type for make a simple cube...

amonite

(Posted 2005) [#81]

>> How does it compare to the Irrilct (SP?!) wrapper

Irrlicht is easier to use than OpenGL, (IMO)
and it allows you to create a 3D scene without having to type in hundreds of lines.

Dreamora

(Posted 2005) [#82]

Irrlicht is an Engine, OpenGL a graphics API (which is used by Irrlicht as well) ... comparing them is quite pointless ;)

I started with the BM NEHE tutorials once again with learning OpenGL after I threw my C++ far far out the window (and TAO framework for .NET isn't that good at least out of my sight)

EOF	(Posted 2005) [#83]

I have added frameworks to NeHe (2 to 43) and changed HideMouse to bglSetMouseVisible False in order to get the tutorials working under BlitzMax v1.10
This fixes the 'mixing Max2D & PureGL' issue where the window opens then immediately closes again.

Download the BMX files - nehe 2to43

Some of the examples fail with:

Unable to convert 'Byte Ptr' to 'String'

Try nehe22.bmx for instance. The error occours at:

Local extensions:String	
extensions=glGetString(GL_EXTENSIONS)

Clyde

(Posted 2005) [#84]

Shouldnt this thread be In the BMAX Tutorials section, rather than as under miscellaneous - showcase?

All fabulous stuff and once again top effort :D

DannyD

(Posted 2005) [#85]

I can't get any of the examples to run under BlitzMax, most compile ok but then bomb out and complain with a run time error.Are these blitz or BlitzMax examples ?

update:I had to read all the threads to find the working zip that fixes the hidemouse problems.

Extron

(Posted 2005) [#86]

Try nehe22.bmx for instance. The error occours at:

I corret this lines by this :

' Fetch Extension String
extensions="".FromCString(Byte Ptr glGetString GL_EXTENSIONS))

In addition, i update first post and host new archive with your corrections jb.
Thanks

jhocking

(Posted 2005) [#87]

Holy moses, this is so cool! I may finally buy BMax in order to play with this stuff.

WarpZone

(Posted 2005) [#88]

I still can't get some exaples to run, and I downloaded from the first post today, 8-26-2005. I have to go. But later I will run each example and tell you what errors I get.

I did manage to run the one with the colored balloons bouncing around inside a box with green rods, particles, and sounds. That was awesome! :) I can't wait to try and make a game out of it.

MadsNy

(Posted 2005) [#89]

hi guy's it looks pretty neet. finally some inside examples on OGL in Bmax. but it's all pretty non documented and what about making it into some kind of wrapper/MOD... with doc's it seems through out the NeHe tut's, everything is coded differently... would be nice with a standard and then it's a smacker tool : )... (until the LONG waited MAX3D pop's it's head)

by the way, are there any good 3D mod engiens or wrappers for BMax, haven seen any since month's. ?

ckob	(Posted 2005) [#90]

just wanna note that these dont seem to work now with the latest version of BlitzMax. I could be doing something retarded...who knows

Picklesworth

(Posted 2005) [#91]

Has anybody thought about adding their BlitzMax code for the tutorials?
There are a bunch of links at the bottom of each lesson with source code conversions... it would be nice to have BlitzMax there. Who knows, maybe some crazy person will buy BlitzMax and start giving away all of his professional quality 3d models to us ;)

ckob	(Posted 2005) [#92]

well I managed to get mine working again just replace the command glcreatecontext with glgraphics and remove flushmem. Also there is a command swapbuffer replace that with flip

ckob	(Posted 2005) [#93]

#27 doesnt work like it should, shadows do not appear anymore and I cant seem to fix it but will keep trying

Wayne

(Posted 2006) [#94]

well done!

ckob	(Posted 2006) [#95]

anyone figure out #27's problem?

Andres

(Posted 2006) [#96]

Is it possible to load and display fonts in BlitzPlus with wrapper (NEHE lesson 13)? I got stuck with it. Thanks in forward.

Edit:
I have problems with the bits in display function.

JoshK

(Posted 2006) [#97]

I can't compile tutorial 27 in BlitzMax 1.16:

Building Nehetut27
Compiling:3dobject.bmx
Compile Error: Can't find interface for module 'brl.blitzgl'
[C:/Documents and Settings/Administrator/Desktop/Nehe_Tutorial/Nehe_Tutorial/3dobject.bmx;4;1]
Build Error: failed to compile C:/Documents and Settings/Administrator/Desktop/Nehe_Tutorial/Nehe_Tutorial/3dobject.bmx
Process complete

skidracer

(Posted 2006) [#98]

Working versions of NeHe 1..5 are currently included in the tutorials section of the BlitzMax distribution.

Has anyone got any newer versions compatible with BlitzMax1.20?

DannyD

(Posted 2006) [#99]

Leadwerks:
Read http://nehe.gamedev.net/lesson.asp?index=01 to fix
Compile Error: Can't find interface for module 'brl.blitzgl

sigi	(Posted 2006) [#100]

NeheTutorials for BMax 1.22

Tutorial 6/7:

'begin tut6

Import brl.bmploader
Import brl.max2d

Global ScreenWidth:Int=800
Global ScreenHeight:Int=600
Global ScreenDepth:Int=32

Global xrot:Float=0
Global yrot:Float=0
Global zrot:Float=0

Global Checkimage:Byte[256,256,4]
Global Texname:Int

GLGraphics ScreenWidth,ScreenHeight,ScreenDepth,0,BGL_BACKBUFFER | BGL_DEPTHBUFFER

InitGl()
HideMouse

While Not KeyHit( KEY_ESCAPE )
glClear GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT		'Clear The Screen And The Depth Buffer
	nehe6()
	glColor3f(1.0,1.0,1.0)
	'Framecounter--------------------------------------------
	Framecounter_counter=Framecounter_counter+1
	If Framecounter_time=0 Then Framecounter_time=MilliSecs()
	If Framecounter_time+1001 <MilliSecs() Then
		Framecounter_framerate=Framecounter_counter
		Framecounter_counter=0
		Framecounter_time=MilliSecs()
	EndIf
	GLDrawText("FPS : "+Framecounter_framerate,ScreenWidth-(8*12),ScreenHeight-16-8)
	'--------------------------------------------------------
	GLDrawText("Nehe lesson 6",10,24)
	Flip
Wend
End

Function InitGl()
	LoadGlTextures()
	glClearColor(0.0, 0.0, 0.0, 0.0)
	glClearDepth 1.0
	glDepthFunc(GL_LESS)
	glEnable(GL_DEPTH_TEST)
	glShadeModel(GL_SMOOTH)
	glViewport(0,0,ScreenWidth,ScreenHeight)
	glMatrixMode(GL_PROJECTION)
	glLoadIdentity()
	gluPerspective(45.0,Float(ScreenWidth)/Float(ScreenHeight),1.0,100.0)
	glMatrixMode(GL_MODELVIEW)
End Function

Function LoadGlTextures()
	Local PointeurImg:Byte Ptr
	Local TexWidth
	Local TexHeight
	tex01:TPixmap=LoadPixmap("data\NeHe.bmp")
	TexWidth=tex01.Width
	TexHeight=tex01.Height
	PointeurImg=PixmapPixelPtr(tex01,0,0)
	pp=0
	For y=TexHeight-1 To 0 Step -1
		For x=0 To TexWidth-1
			Checkimage[y,x,0]=PointeurImg[pp]
			Checkimage[y,x,1]=PointeurImg[pp+1]
			Checkimage[y,x,2]=PointeurImg[pp+2]
			Checkimage[y,x,3]=100
			pp=pp+3
		Next
	Next
	tex01=Null
	glPixelStorei(GL_UNPACK_ALIGNMENT,1)
	glGenTextures(1, Varptr Texname)
	glBindTexture(GL_TEXTURE_2D, Texname)
	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT)
	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT)
	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST)
	glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST)
	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, TexWidth, TexHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, Checkimage)
End Function

Function nehe6()
	glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
   	glEnable(GL_TEXTURE_2D)
	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
	glBindTexture GL_TEXTURE_2D,Texname
	
	glLoadIdentity
	glTranslatef 0.0,0.0,-5.0
	glRotatef xrot,1.0,0.0,0.0                         ' Rotate On The X Axis
	glRotatef yrot,0.0,1.0,0.0                         ' Rotate On The Y Axis
	glRotatef zrot,0.0,0.0,1.0                         ' Rotate On The Z Axis

	glBegin GL_QUADS
		' Front Face
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0, 1.0       ' Bottom Left Of The Texture And Quad
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0, 1.0       ' Bottom Right Of The Texture And Quad
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0, 1.0       ' Top Right Of The Texture And Quad
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0, 1.0       ' Top Left Of The Texture And Quad
		' Back Face
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0, -1.0      ' Bottom Right Of The Texture And Quad
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0,  1.0, -1.0      ' Top Right Of The Texture And Quad
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0,  1.0, -1.0      ' Top Left Of The Texture And Quad
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0, -1.0      ' Bottom Left Of The Texture And Quad
		' Top Face
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0, -1.0      ' Top Left Of The Texture And Quad
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0,  1.0,  1.0      ' Bottom Left Of The Texture And Quad
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0,  1.0,  1.0      ' Bottom Right Of The Texture And Quad
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0, -1.0      ' Top Right Of The Texture And Quad
		' Bottom Face
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0, -1.0, -1.0      ' Top Right Of The Texture And Quad
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0, -1.0, -1.0      ' Top Left Of The Texture And Quad
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0,  1.0      ' Bottom Left Of The Texture And Quad
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0,  1.0      ' Bottom Right Of The Texture And Quad
		' Right face
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0, -1.0      ' Bottom Right Of The Texture And Quad
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0, -1.0      ' Top Right Of The Texture And Quad
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0,  1.0,  1.0      ' Top Left Of The Texture And Quad
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0,  1.0      ' Bottom Left Of The Texture And Quad
		' Left Face
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0, -1.0      ' Bottom Left Of The Texture And Quad
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0,  1.0      ' Bottom Right Of The Texture And Quad
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0,  1.0,  1.0      ' Top Right Of The Texture And Quad
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0, -1.0      ' Top Left Of The Texture And Quad
	glEnd

	xrot = xrot + 0.3                     ' X Axis Rotation
	yrot = yrot + 0.2                     ' Y Axis Rotation
	zrot = zrot + 0.4                     ' Z Axis Rotation
	glDisable(GL_TEXTURE_2D)
End Function

'end tut6

########################################################################################################################

'begin tut7

Import brl.bmploader
Import brl.system

Global ScreenWidth:Int=800
Global ScreenHeight:Int=600
Global ScreenDepth:Int=32

Global xrot:Float=0
Global yrot:Float=0
Global zrot:Float=0
Global Filter:Int=0
Global z:Float=-5.0
Global xspeed:Float=0.0
Global yspeed:Float=0.0
Global Lp:Byte=0

Global Checkimage:Byte[256,256,3]
Global Texname:Int[3]

Global LightAmbient:Float[]=[0.5, 0.5, 0.5, 1.0]
Global LightDiffuse:Float[]=[1.0, 1.0, 1.0, 1.0]
Global LightPosition:Float[]=[0.0, 0.0, 2.0, 1.0]

GLGraphics ScreenWidth,ScreenHeight,ScreenDepth,0,BGL_BACKBUFFER | BGL_DEPTHBUFFER


InitGl()
HideMouse

While Not KeyHit( KEY_ESCAPE )
	nehe7()
	glDisable(GL_LIGHTING)
	glColor3f(1.0,1.0,1.0)
	'Framecounter--------------------------------------------
	Framecounter_counter=Framecounter_counter+1
	If Framecounter_time=0 Then Framecounter_time=MilliSecs()
	If Framecounter_time+1001 <MilliSecs() Then
		Framecounter_framerate=Framecounter_counter
		Framecounter_counter=0
		Framecounter_time=MilliSecs()
	EndIf
	GLDrawText("FPS : "+Framecounter_framerate,ScreenWidth-(8*12),ScreenHeight-16-8)
	'--------------------------------------------------------
	GLDrawText("Nehe lesson 7",10,24)
	glEnable(GL_LIGHTING)
	Flip
Wend
End

Function InitGl()
	LoadGlTextures()
	glClearColor(0.0, 0.0, 0.0, 0.0)
	glClearDepth 1.0
	glDepthFunc(GL_LESS)
	glEnable(GL_DEPTH_TEST)
	glShadeModel(GL_SMOOTH)
	glViewport(0,0,ScreenWidth,ScreenHeight)
	glMatrixMode(GL_PROJECTION)
	glLoadIdentity()
	gluPerspective(45.0,Float(ScreenWidth)/Float(ScreenHeight),1.0,100.0)
	glMatrixMode(GL_MODELVIEW)
	glLightfv GL_LIGHT1, GL_AMBIENT, Float Ptr LightAmbient
	glLightfv GL_LIGHT1, GL_DIFFUSE, Float Ptr LightDiffuse
	glLightfv GL_LIGHT1, GL_POSITION, Float Ptr LightPosition
	glEnable GL_LIGHT1
End Function

Function LoadGlTextures()
	Local PointeurImg:Byte Ptr
	Local TexWidth
	Local TexHeight
	tex01:TPixmap=LoadPixmap("data\crate.bmp")
	TexWidth=tex01.Width
	TexHeight=tex01.Height
	PointeurImg=PixmapPixelPtr(tex01,0,0)
	pp=0
	For y=TexHeight-1 To 0 Step -1
		For x=0 To TexWidth-1
			Checkimage[y,x,0]=PointeurImg[pp]
			Checkimage[y,x,1]=PointeurImg[pp+1]
			Checkimage[y,x,2]=PointeurImg[pp+2]
			pp=pp+3
		Next
	Next
	tex01=Null
	' Create Nearest Filtered Texture
	glGenTextures 3, Varptr Texname[0]
	glBindTexture GL_TEXTURE_2D,Texname[0]
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST
	glTexImage2D GL_TEXTURE_2D, 0, 3, TexWidth, TexHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, Checkimage
	' Create Linear Filtered Texture
	glBindTexture GL_TEXTURE_2D, Texname[1]
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR
	glTexImage2D GL_TEXTURE_2D, 0, 3, TexWidth, TexHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, Checkimage
	' Create MipMapped Texture
	glBindTexture GL_TEXTURE_2D, Texname[2]
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR
	glTexParameteri GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR_MIPMAP_NEAREST
	gluBuild2DMipmaps GL_TEXTURE_2D, 3, TexWidth, TexHeight, GL_RGB, GL_UNSIGNED_BYTE, Checkimage
End Function

Function nehe7()
	If  KeyHit(KEY_L) Then
		lp = Not lp
	EndIf
	If  lp=0 Then
		glDisable(GL_LIGHTING)
	Else
		glEnable(GL_LIGHTING)
	EndIf
	If KeyHit(KEY_F)
		Filter:+1
		If Filter>2 Then Filter=0
	EndIf
	If KeyDown(KEY_PAGEUP) Then z:-0.02
	If KeyDown(KEY_PAGEDOWN) Then z:+ 0.02
	If KeyHit(KEY_UP) Then xspeed:-0.001
	If KeyHit(KEY_DOWN) Then xspeed:+0.001
	If KeyHit(KEY_RIGHT) Then yspeed:+0.001
	If KeyHit(KEY_LEFT) Then yspeed:-0.001
	
	glClear GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT
	glEnable GL_LIGHT1
	glEnable(GL_TEXTURE_2D)
	glBindTexture GL_TEXTURE_2D, Texname[Filter]
	
	glLoadIdentity
	glTranslatef 0.0,0.0,z
	glRotatef xrot,1.0,0.0,0.0
	glRotatef yrot,0.0,1.0,0.0
	glBegin GL_QUADS
		' Front Face
		glNormal3f  0.0, 0.0, 1.0
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0,  1.0
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0,  1.0
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0,  1.0
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0,  1.0
		' Back Face
		glNormal3f  0.0, 0.0,-1.0
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0, -1.0
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0,  1.0, -1.0
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0,  1.0, -1.0
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0, -1.0
		' Top Face
		glNormal3f  0.0, 1.0, 0.0
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0, -1.0
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0,  1.0,  1.0
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0,  1.0,  1.0
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0, -1.0
		' Bottom Face
		glNormal3f  0.0,-1.0, 0.0
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0, -1.0, -1.0
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0, -1.0, -1.0
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0,  1.0
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0,  1.0
		' Right face
		glNormal3f  1.0, 0.0, 0.0
		glTexCoord2f 1.0, 0.0; glVertex3f  1.0, -1.0, -1.0
		glTexCoord2f 1.0, 1.0; glVertex3f  1.0,  1.0, -1.0
		glTexCoord2f 0.0, 1.0; glVertex3f  1.0,  1.0,  1.0
		glTexCoord2f 0.0, 0.0; glVertex3f  1.0, -1.0,  1.0
		' Left Face
		glNormal3f -1.0, 0.0, 0.0
		glTexCoord2f 0.0, 0.0; glVertex3f -1.0, -1.0, -1.0
		glTexCoord2f 1.0, 0.0; glVertex3f -1.0, -1.0,  1.0
		glTexCoord2f 1.0, 1.0; glVertex3f -1.0,  1.0,  1.0
		glTexCoord2f 0.0, 1.0; glVertex3f -1.0,  1.0, -1.0
	glEnd

	xrot = xrot + xspeed
	yrot = yrot + yspeed
	glDisable(GL_TEXTURE_2D)
	glDisable GL_LIGHT1
End Function

'end tut7

xlsior

(Posted 2006) [#101]

Tutorial 6/7:

Both fail with error: unhandled exception: attempt to access field or method of null object
on line: TexWidth=tex01.Width

sigi	(Posted 2006) [#102]

Have you downloaded the tutorials on the top of this thread?
You should download it and replace the source with the source i have posted. It seems it`s missing the Texture which is in the original Tutorials above.
It should work then, but i will check it again if i am at
home from work.

sigi	(Posted 2006) [#103]

I have checked it. It work`s. You need the data folder
from the original Tutorials above.

Sanctus

(Posted 2006) [#104]

Hmm.. they don't work for me....
Its says somefin like "can' fin interface for module brl.blitzgl"

DrDeath

(Posted 2006) [#105]

I have the same problem.

@DannyD: what exactly do you mean by "Read nehe.gamedev.net/lesson.asp?index=01 to fix Compile Error: Can't find interface for module 'brl.blitzgl"?

I do not see any solution there.

tonyg

(Posted 2006) [#106]

brl.blitzgl doesn't exist any more so you should remove it.

H&K	(Posted 2006) [#107]

I sort of explained this yesterday to sanctus

http://www.blitzbasic.com/Community/posts.php?topic=57336#656370

I found this by searching
"interface for module brl.blitzgl"
(Most the problems for Nehe have been fixed (for the first 30 definatly), all you have to do is "Search" with the error)

Picklesworth

(Posted 2006) [#108]

I'm finally going to read these...
You guys have done some really great work with it so far :)

Just one thing:
Is there someplace I can look to find these tutorials presented in a more readable way? (Without the crazy white on black, curvy glowing corners web design).
I can't see myself reading through many of them when they're like this...

Edit:
Aha, I can change the theme!
They even have a black on white one for me :)
Oh well, it's much nicer now.
Still, I'd like a printer-friendly thing. Wasting paper is fun, and learning OGL is probably best done sitting somewhere comfortable without a glaring LCD screen.

H&K	(Posted 2006) [#109]

http://wizz.gamedev.lt/Tutorials/NeHeTutorials_A4_Book.pdf
http://perso.club-internet.fr/gilles.keil/Bmax/Nehe_Tutorial.zip

Picklesworth

(Posted 2006) [#110]

This is the beginnings of a little compatibilizer for these tutorials, to get the old source working in the newer BlitzMax.

rem
Awful Compatibilizer For BlitzMax NeHe tutorials.
I highly recommend that you do not use this elsewhere!

Warning: All mention of bgl will be replaced by gl.
I don't think there are any words with bgl in them,
but there is always a chance that something can get
broken. If you are willing, feel free to fix it :)


Directions:

-All source files must be placed in the same directory.
-Compile this and place the program in the same directory as the source code
end rem

Framework brl.basic

'Put the path to the NeHe tutorial example source here...
Global NeHePath:String
'NeHePath = Input("Please input the path to the tutorials.")
NeHePath = AppDir 'May as well run this silently...

dir = ReadDir(NeHePath)

If dir=Null
	Print "Failed to read requested directory"
	End
EndIf

ChangeDir(NeHePath) 'Now the returned file paths, local to dir, will work

CreateDir("Fixed")

Repeat
	filename:String=NextFile( dir ) 'Hm... can I skip this step and just jump to a file handle?
	If filename="" Then Exit
	
	Print "Examining file: " + filename
	
	If FileType(filename)=FILETYPE_FILE and filename[Len(filename)-4..]=".bmx" 'Only processing *.bmx files...
		f:TStream = OpenFile(filename)
		
		'CreateFile("Fixed/"+filename)
		fnew:TStream = WriteFile("Fixed/"+filename)
		
		If not f=Null
			While not Eof(f)
				Local inLine:String=f.ReadLine()
				Local changeLine:String=inLine.ToLower()
				Local LineChanged:Byte=0
				
				'Change brl.blitzgl to brl.GLGraphics
				If changeLine.Find("brl.blitzgl") > - 1
					changeLine=changeLine.Replace("brl.blitzgl","brl.GLGraphics")
					LineChanged=1
				EndIf
				
				'Change bglSwapBuffers to flip
				If changeLine.Find("bglswapbuffers") > - 1
					changeLine=changeLine.Replace("bglswapbuffers","Flip")
					LineChanged=1
				EndIf
				
				'Change bglcreatecontext to glgraphics
				If changeLine.Find("bglcreatecontext") > - 1
					changeLine=changeLine.Replace("bglcreatecontext","GLGraphics")
					LineChanged=1
				EndIf
				
				'Change bgl prefix to gl
				If changeLine.Find("bgl") > - 1
					changeLine=changeLine.Replace("bgl","gl")
					LineChanged=1
				EndIf
				
				'Get rid of FlushMem
				If changeLine.Find("flushmem") > - 1
					changeLine=changeLine.Replace("flushmem","")
					LineChanged=1
				EndIf
				
				if LineChanged = 1
					fnew.WriteLine(changeLine+" '"+inLine)
				Else
					fnew.WriteLine(inLine)
				EndIf
			Wend
			CloseFile(f)
		EndIf
	EndIf
Forever

Print "All done!"

CloseDir dir
End

Just compile it (don't compile and run), move the result to the directory containing the source code, and run it.
It will silently (not by design but because I can't figure out how to make an application run in Windows's console :/) create a directory called Fixed containing your new tutorials, many of which are now working!
Remember to copy the data directory over or move the fixed files back.

I've probably missed a few (such as glsetmousevisible, which for now is just getting commented out in a manner that can break single-line if then else statements), and there are a few things which seem to have changed in the language itself that are just totally beyond me and would probably require this app become complicated.
Running in windowed mode doesn't seem to work, either.

It would be great to get these working 100% again!
It's a real shame that all this great software was made obsolete :(

kfprimm

(Posted 2006) [#111]

uncheck Program->Build Options->Build GUI App

Kurator

(Posted 2008) [#112]

I did some manual rework on Lessons one to Lessons eight.

All the sourcecode is in the moment in a single file, im made it Superstrict and used "singletons" for the lessons.

Download Link: http://www.lavainsel.net/blitzmax/Nehe_2008.zip

matty47

(Posted 2008) [#113]

Thanks robobimbo.

BLaBZ

(Posted 2011) [#114]

I can't get these tutorials to work :(

Used Picklesworth's "compatabilizer" and still couldn't get it to work

H&K	(Posted 2011) [#115]

Because Bmax is 20 versions latter than when these where written.

However I think most of the problems have been fixed in earlier posts. So...
when you get an error search the forums the specific command the error is on, and someone somewhere probably had the same problem.

I think most of them where just that the naming convention in bmax changed so you need a slightly different named command, and also the framework is slightly different.

(For Example my post 8 up addresses one, and as you said pickles' post four up corrected some, admitedly for the bmax 4 years ago.)

Other Than that Post the command that compilation fails at, and maybe we could help

Last edited 2011

Last edited 2011

Last edited 2011

kfprimm

(Posted 2011) [#116]

Just for the fun of it, I'm going to bring these tutorials up to speed over the next couple days.

Just finished tutorials 2 through 10.

Get the from here,
https://github.com/kfprimm/nehe_bmx

If anyone would like to help, fork it and send over a pull request.

Armitage 1982

(Posted 2011) [#117]

I would love to learn the whole 48 lessons!
So thank you for the first 10 re-write :)

Jesse

(Posted 2012) [#118]

@kfprim

here are the the rest with the exception of 13 and 43 which I couldn't figure out:
http://www.mediafire.com/?h1c9hqtbgqq5wb6

I had to make a slight modification to the framework file for it to work with all of them but it's set so it's backwards compatible with the first 10. 11 to 42 need the new framework.

If anybody figures out the rest, it would help me as well.

Last edited 2012

kfprimm

(Posted 2012) [#119]

Ok. I've updated the repo. Thanks! Though, I just realized I forgot to update the README to credit your contribution. I will take care of that shortly.