Lighting with Monkey-X

[cgrossiParticipant]

Hello, friends.

This topic is related to Monkey-X. I’m trying to use light, but nothing happens. I’m doing  a very simple sample. What could be wrong? Could it be related to my computer? It’s an old – more than 5 years – HP notebook with integrated video. But I found a link with a sample over the internet and the lights work fine… Here’s my code.

 

Monkey

Import mojo2 Function Main() New X() End Class X Extends App Field canvas:Canvas,img:Image Method OnCreate() SetDeviceWindow(320,240,False) canvas = New Canvas img=Image.Load("monkey://data/bg.png",0,0,Image.Filter) canvas.SetAmbientLight .2,.2,.2 End Method Method OnUpdate() End Method Method OnRender() canvas.Clear canvas.SetLightType 0,1 canvas.SetLightColor 0,.5,.5,.5 canvas.SetLightPosition 0,MouseX(),MouseY(),-50 canvas.SetLightRange 0,200 For Local l:Int=0 To 639 Step 128 For Local c:Int= 0 To 479 Step 128 canvas.DrawImage img,l,c Next next canvas.Flush() End Method End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Import mojo2   Function Main() New X() End   Class X Extends App   Field canvas:Canvas,img:Image   Method OnCreate() SetDeviceWindow(320,240,False) canvas = New Canvas img=Image.Load("monkey://data/bg.png",0,0,Image.Filter) canvas.SetAmbientLight .2,.2,.2 End Method Method OnUpdate() End Method Method OnRender() canvas.Clear canvas.SetLightType 0,1 canvas.SetLightColor 0,.5,.5,.5 canvas.SetLightPosition 0,MouseX(),MouseY(),-50 canvas.SetLightRange 0,200   For Local l:Int=0 To 639 Step 128 For Local c:Int= 0 To 479 Step 128 canvas.DrawImage img,l,c Next next canvas.Flush() End Method   End Class

 

Thanks

[PhilParticipant]

I don’t use mojo2, but I think you might get some information in the Cerberus X forums. Cerberus is the successor of Monkey X.

[cgrossiParticipant]

Hello.

Phil, unfortunately I couldn’t make it work neither with Cerberus or Monkey. Monkey2 doesn’t launch on my notebook.

Does anyone know why light isn’t working??

 

Regards

[AmonParticipant]

What are the specs of your notebook? What gpu, processor, ram?

It’s the gpu really that is most important. Are all the drivers up to date, especially the gpu’s?

[cgrossiParticipant]

Hi, Amon.

Well, as I told before, my notebook is a little bit old, it is more then 5 years old. Its specs are: Core i3, 4GB Ram with integrated gpu. I believe all drivers are updated… What can I do to play around with lights??

Thanks

[DruggedBunnyParticipant]

Do any of the MonkeyX light samples work, or is it just your own code that’s not working?

I can’t remember what samples are in MX, but seem to recall there was a lights sample. If that doesn’t work, I’d guess the notebook doesn’t support the GL or shader level required for them.

If it’s just your own code, ie. the sample works, probably best to post on the CerberusX forums, since probably very few here are using MX now.

[cgrossiParticipant]

Well, I didn’t try any MX samples – and I don’t know if there is any – but once I accessed a link with a sample and it worked fine.

I’ll post my problem at CerberusX.

Thank you so much!

[PixelPaladinParticipant]

For me it works with Cerberus-X when I change the path to just “bg.png” (instead of “monkey://data/bg.png”) with the following file structure:

FILE app.cxs ← main application DIR app.data FILE bg.png ← color texture FILE bg_NORMALS.png ← the notmal map FILE bg_SPECULAR.png ← specular map

1 2 3 4 5

FILE app.cxs                  ← main application DIR  app.data         FILE bg.png           ← color texture         FILE bg_NORMALS.png   ← the notmal map         FILE bg_SPECULAR.png  ← specular map

[cgrossiParticipant]

Hi, PixelPaladin. Can you send me your code, please?

Thanks

[PixelPaladinParticipant]

sure, here it is:

Monkey

Strict Import mojo2 Function Main:Int() New X Return 0 End Class X Extends App Field canvas:Canvas Field img:Image Method OnCreate:Int() SetUpdateRate(60) SetDeviceWindow(320, 240, 2|4) canvas = New Canvas img = Image.Load("bg.png", 0, 0, Image.Filter) canvas.SetAmbientLight(0.2, 0.2, 0.2) Return 0 End Method OnUpdate:Int() If KeyHit(KEY_ESCAPE) Then OnClose() Return 0 End Method OnRender:Int() canvas.Clear canvas.SetLightType(0, 1) canvas.SetLightColor(0, 0.5, 0.5, 0.5) canvas.SetLightPosition(0, MouseX(), MouseY(), -50) canvas.SetLightRange(0, 200) For Local y:Int = 0 Until 480 Step 128 For Local x:Int = 0 Until 640 Step 128 canvas.DrawImage(img, x, y) Next Next canvas.Flush() Return 0 End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Strict   Import mojo2 Function Main:Int() New X Return 0 End   Class X Extends App Field canvas:Canvas Field img:Image Method OnCreate:Int() SetUpdateRate(60) SetDeviceWindow(320, 240, 2|4) canvas = New Canvas img = Image.Load("bg.png", 0, 0, Image.Filter) canvas.SetAmbientLight(0.2, 0.2, 0.2) Return 0 End Method OnUpdate:Int() If KeyHit(KEY_ESCAPE) Then OnClose() Return 0 End Method OnRender:Int() canvas.Clear canvas.SetLightType(0, 1) canvas.SetLightColor(0, 0.5, 0.5, 0.5) canvas.SetLightPosition(0, MouseX(), MouseY(), -50) canvas.SetLightRange(0, 200) For Local y:Int = 0 Until 480 Step 128 For Local x:Int = 0 Until 640 Step 128 canvas.DrawImage(img, x, y) Next Next canvas.Flush() Return 0 End End

[cgrossiParticipant]

Thanks, it’s quite like mine, but I’ll give it a try!

[PixelPaladinParticipant]

Well, it was your code. I just did some changes so that I can read it better myself

I think changing the path should be enough to make it work.

[cgrossiParticipant]

I did notice that it was my code!!

I just didn’t understand why changing the path it should work…

[DruggedBunnyParticipant]

Just checking, did you have bg.png in a data subfolder, like this?

Monkey

[crayon-5cb9af62e1608721700156 inline="true" ] --example.monkey --data/ --data/bg.png

1 2 3 4 5 6

[crayon-5cb9af62e1608721700156 inline="true" ]   --example.monkey --data/ --data/bg.png

[/crayon]

[cgrossiParticipant]

Sure I do.

[Author]

Posts