[therevillsParticipant]

Thanks Guys

Yep that looks perfect Jesse – I’ve done this sort of thing before in BlitzMax but couldnt work it out! Looks like I was doing everything clockwise instead of anticlockwise, not sure about the 90 degree turn though you do (Pi / 2)?

[therevillsParticipant]

@pixelpaladin – that would be great!

@anatol – I really dont have any idea what I’m doing with shaders at the moment, never played with them in the past

[therevillsParticipant]

Strange when I copy and paste the shaders from here I get the “Can’t find ‘//@renderpasses’ tag” error…

I now get:

Monkey

Invalid uniform type 0 expecting 1

1 2 3

Invalid uniform type 0 expecting 1

Edit:
Got it to work now… no idea what was going on…

[therevillsParticipant]

Thanks Mark, I’ll have a look

[therevillsParticipant]

Yep they both work (MojoShaders_07_CRT and MojoShaders_08_BeamCRT) although had to resize them Still running at 1920×1080

Now we need it in real time

[therevillsParticipant]

@hezkore – and I cant compile your example either

Monkey

Can't find '//@renderpasses' tag

1 2 3

Can't find '//@renderpasses' tag

[therevillsParticipant]

@ethernaut, just downloaded the git master zip and I cant compile examples 4, 7 and 8:

4:

Monkey

Failed to link program:C:\fakepath(61,12-36): warning X3571: pow(f, e) will not work for negative f, use abs(f) or conditionally handle negative values if you expect them C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value Warning: D3D shader compilation failed with default flags. (ps_5_0) Retrying with skip validation C:\fakepath(61,12-36): warning X3571: pow(f, e) will not work for negative f, use abs(f) or conditionally handle negative values if you expect them C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value Warning: D3D shader compilation failed with skip validation flags. (ps_5_0) Retrying with skip optimization C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value Warning: D3D shader compilation failed with skip optimization flags. (ps_5_0) Failed to create D3D shaders.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Failed to link program:C:\fakepath(61,12-36): warning X3571: pow(f, e) will not work for negative f, use abs(f) or conditionally handle negative values if you expect them C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value   Warning: D3D shader compilation failed with default flags. (ps_5_0) Retrying with skip validation C:\fakepath(61,12-36): warning X3571: pow(f, e) will not work for negative f, use abs(f) or conditionally handle negative values if you expect them C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value   Warning: D3D shader compilation failed with skip validation flags. (ps_5_0) Retrying with skip optimization C:\fakepath(42,11-43): error X3507: '_plot': Not all control paths return a value   Warning: D3D shader compilation failed with skip optimization flags. (ps_5_0) Failed to create D3D shaders.

7:

Monkey

Failed to compile fragment shader:ERROR: 0:51: '-' : wrong operand types no operation '-' exists that takes a left-hand operand of type 'const int' and a right operand of type 'uniform highp float' (or there is no acceptable conversion) ERROR: 0:51: 'mix' : no matching overloaded function found ERROR: 0:51: '=' : cannot convert from 'const float' to 'highp 4-component vector of float'

1 2 3 4 5

Failed to compile fragment shader:ERROR: 0:51: '-' :  wrong operand types  no operation '-' exists that takes a left-hand operand of type 'const int' and a right operand of type 'uniform highp float' (or there is no acceptable conversion) ERROR: 0:51: 'mix' : no matching overloaded function found ERROR: 0:51: '=' :  cannot convert from 'const float' to 'highp 4-component vector of float'

8:

Monkey

Parsing... Semanting... C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [240] : Error : Internal declaration 'ShaderDefs' cannot be accessed from here. C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [243] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [245] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [248] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [253] : Error : Identifier 'defs' Not found

1 2 3 4 5 6 7 8 9 10

Parsing... Semanting... C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [240] : Error : Internal declaration 'ShaderDefs' cannot be accessed from here. C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [243] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [245] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [248] : Error : Identifier 'defs' Not found C:/Users/therevills/Downloads/tests/testMaterial.monkey2 [253] : Error : Identifier 'defs' Not found

This is using v1.1.08…

[therevillsParticipant]

Hmmm… I’ve got no idea how to use that with real time graphics – lol!

[therevillsParticipant]

Yep you got it!

I’ve only created a few constants for the most common screens:

Const EMPTY_SCREEN:String = “EmptyScreen”
Const EXIT_SCREEN:String = “ExitScreen”
Const GAME_SCREEN:String = “GameScreen”
Const TITLE_SCREEN:String = “TitleScreen”
Const OPTIONS_SCREEN:String = “OptionsScreen”
Const GAME_OVER_SCREEN:String = “GameOverScreen”
Const LEVEL_SELECT_SCREEN:String = “LevelSelectScreen”

[therevillsParticipant]

Cool! I’ll have a play soon! Thanks!

[therevillsParticipant]

Amon, I recommend you dont build Diddy2 as a module just yet… just import the main Diddy2 file in your file:

Monkey

#Import "../diddy2/diddy2"

1	#Import "../diddy2/diddy2"

Here is a Diddy template:

Monkey

Namespace game #Import "assets/" #Import "../diddy2/diddy2" #Import "<mojo>" #Import "<std>" Using diddy2.. Using mojo.. Using std.. Function Main() New MyDiddyApp("My Super Game", 1024, 768, 1024, 768) End Class MyDiddyApp Extends DiddyApp Method New(title:String, width:Int, height:Int, virtualResolutionWidth:Int, virtualResolutionHeight:Int, filterTextures:Bool = True) Super.New(title, width, height, virtualResolutionWidth, virtualResolutionHeight, filterTextures) LoadAssets() CreateScreens() Start(GetScreen(Screen.TITLE_SCREEN)) End Method LoadAssets() AssetBank.LoadImage("title.png") End Method CreateScreens() AddScreen(New TitleScreen(Screen.TITLE_SCREEN)) AddScreen(New GameScreen(Screen.GAME_SCREEN)) End End Class TitleScreen Extends Screen Field titleImage:Image Field mxImage:Image Method New(title:String) Super.New(title) End Method Load() Override AssetBank.LoadImage("monkey2logo.png") End Method Start() Override titleImage = AssetBank.GetImage("title.png") mxImage = AssetBank.GetImage("monkey2logo.png") End Method Render(canvas:Canvas, tween:Float) Override canvas.DrawImage(titleImage, Window.VirtualResolution.X / 2, Window.VirtualResolution.X / 4) canvas.DrawImage(mxImage, Window.VirtualResolution.X - (mxImage.Width / 2) - 2, Window.VirtualResolution.Y - (mxImage.Height / 2) - 2) canvas.DrawText("Press Space to Play!", Window.VirtualResolution.X / 2, Window.VirtualResolution.Y - canvas.Font.Height * 2, .5) End Method Update(delta:Float) Override If Keyboard.KeyDown(Key.Escape) MoveToScreen(ScreenBank.GetScreen(Screen.EXIT_SCREEN)) End If Keyboard.KeyDown(Key.Space) MoveToScreen(ScreenBank.GetScreen(Screen.GAME_SCREEN)) End End End Class GameScreen Extends Screen Method New(title:String) Super.New(title) End Method Load() Override End Method Start() Override End Method Render(canvas:Canvas, tween:Float) Override canvas.DrawText("Game Screen!", Window.VirtualResolution.X / 2, Window.VirtualResolution.Y / 2, .5) End Method Update(delta:Float) Override If Keyboard.KeyDown(Key.Escape) MoveToScreen(ScreenBank.GetScreen(Screen.TITLE_SCREEN)) End 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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

Namespace game   #Import "assets/"   #Import "../diddy2/diddy2" #Import "<mojo>" #Import "<std>"   Using diddy2.. Using mojo.. Using std..   Function Main() New MyDiddyApp("My Super Game", 1024, 768, 1024, 768) End   Class MyDiddyApp Extends DiddyApp Method New(title:String, width:Int, height:Int, virtualResolutionWidth:Int, virtualResolutionHeight:Int, filterTextures:Bool = True) Super.New(title, width, height, virtualResolutionWidth, virtualResolutionHeight, filterTextures) LoadAssets() CreateScreens() Start(GetScreen(Screen.TITLE_SCREEN)) End Method LoadAssets() AssetBank.LoadImage("title.png") End Method CreateScreens() AddScreen(New TitleScreen(Screen.TITLE_SCREEN)) AddScreen(New GameScreen(Screen.GAME_SCREEN)) End End   Class TitleScreen Extends Screen Field titleImage:Image Field mxImage:Image Method New(title:String) Super.New(title) End Method Load() Override AssetBank.LoadImage("monkey2logo.png") End Method Start() Override titleImage = AssetBank.GetImage("title.png") mxImage = AssetBank.GetImage("monkey2logo.png") End   Method Render(canvas:Canvas, tween:Float) Override canvas.DrawImage(titleImage, Window.VirtualResolution.X / 2, Window.VirtualResolution.X / 4)   canvas.DrawImage(mxImage, Window.VirtualResolution.X - (mxImage.Width / 2) - 2, Window.VirtualResolution.Y - (mxImage.Height / 2) - 2) canvas.DrawText("Press Space to Play!", Window.VirtualResolution.X / 2, Window.VirtualResolution.Y - canvas.Font.Height * 2, .5) End Method Update(delta:Float) Override If Keyboard.KeyDown(Key.Escape) MoveToScreen(ScreenBank.GetScreen(Screen.EXIT_SCREEN)) End If Keyboard.KeyDown(Key.Space) MoveToScreen(ScreenBank.GetScreen(Screen.GAME_SCREEN)) End End End   Class GameScreen Extends Screen Method New(title:String) Super.New(title) End Method Load() Override End Method Start() Override End   Method Render(canvas:Canvas, tween:Float) Override canvas.DrawText("Game Screen!", Window.VirtualResolution.X / 2, Window.VirtualResolution.Y / 2, .5) End Method Update(delta:Float) Override If Keyboard.KeyDown(Key.Escape) MoveToScreen(ScreenBank.GetScreen(Screen.TITLE_SCREEN)) End   End End

And have your folder structure as such:

Monkey

|-Projects |----|----diddy2 |----|------|----diddy2.monkey2 |----|----YourGame |----|------|----assets |----|------|------|----graphics |----|------|------|----sounds |----|------|------|----fonts |----|------|----game.monkey2

1 2 3 4 5 6 7 8 9 10 11

|-Projects |----|----diddy2 |----|------|----diddy2.monkey2 |----|----YourGame |----|------|----assets |----|------|------|----graphics |----|------|------|----sounds |----|------|------|----fonts |----|------|----game.monkey2

[therevillsParticipant]

Perfect thanks Peter!

I was disabling filtering on just the images…

Do you have to do it per frame? Edit: yep you do…

[therevillsParticipant]

Thanks nerobot

[therevillsParticipant]

On my rig* I can run 10k without it dropping frames.

I also changed the controls to:

Monkey

[crayon-5cba9ce0bf018435660579 inline="true" ] If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 1000 Elseif event.Button = MouseButton.Middle _len = -100 End

1 2 3 4 5 6 7 8

[crayon-5cba9ce0bf018435660579 inline="true" ] If event.Button = MouseButton.Left _len = 10 Elseif event.Button = MouseButton.Right _len = 1000 Elseif event.Button = MouseButton.Middle _len = -100 End

[/crayon]

* 7700K, Geforce 1080, 16GB

[therevillsParticipant]

“..” isn’t intuitive though and seems like going backwards to me as Monkey 1 had And / Or.

[Author]

Posts