SimpleWindow Project

[Peter]

Deleted

[Haim]

Wonderful!!
So much to enjoy and study
Thanks!

Haim

[Haim]

Very impressive!
Thanks,
Haim

[Frankolinox]

@peter: "circles in fog" doesn't work here, there are several error messages while try to run the example. I have download the simple window zip file of your first example and add your circle in fog example there, but the problem starts with HLS(125,55,240) and much more. I think there's something missing (include file or other thing) I don't know.

best regards, frank

[Aurel]

I fear the  spys around here

haha..i already crack your dll...

[Haim]

Thanks Peter for all your work
Haim

[Haim]

here is another stuff for Haim.

 
Thanks,
Nice animation.
Although both bass.dll and  tremx.s3m are in the simplewindow directory, I hear no sound.
I gather SetFps  () sets the speed of the animation (or delay) and sync swaps the buffers. Is there anywhere an explanation or definition for those functions?
Haim

[Haim]

Hello,
Thank you for your explanation, the demos  and your patience with me.
I now have sound (just a matter of misplaced sound files)
Should not have bothered you with this. 
Haim

[Frankolinox]

hi peter, I've tried yesterday again to compile your example. So far as I assume I have the correct oxygen.dll from last download. but there are some problems too. my pic you can see as attachement. perhaps you can send your oxygen.dll and inc file and sw.dll here at board again for checking, thanks! best regards, frank

X

[Charles Pegge]

Hi John,

I think the problem is that CloseWindow takes no parameters, but your dyc call issues one. The solution is to make this call cdecl (not ms) then this parameter will be safely ignored without stack corruption. Under cdecl, DYC will disallocate the unused parameter from the stack.

Charles

[Charles Pegge]

This should be ready in a few days and gives more concise interfacing than DYC:

Code: OxygenBasic

1. 'ScriptBasic
2. 'proposed use of DLLC dll interface
3. '11:07 16/02/2013 CP
4.  
5. 'DLLC MODULE HEADER
6.  
7. declare sub dllfile alias "dllfile" lib "dllc"
8. declare sub dllproc alias "dllproc" lib "dllc"
9. declare sub dllcall alias "dllcall" lib "dllc"
10. declare sub dlltype alias "dlltype" lib "dllc"
11. declare sub dlldimv alias "dlldimv" lib "dllc"
12. declare sub dllfill alias "dllfill" lib "dllc"
13. declare sub dllgetv alias "dllgetv" lib "dllc"
14. declare sub dllputv alias "dllputv" lib "dllc"
15.  
16. 'PARTIAL SW DLL HEADER
17.  
18. sw=dllfile("sw.dll")
19. Window      = dllproc( sw,"Window        (i,i,i)"       )
20. SetCaption  = dllproc( sw,"SetCaption    (c*)"          )
21. Cls         = dllproc( sw,"Cls           (i)"           )
22. Key         = dllproc( sw,"Key         i=(i)"           )
23. GetHeight   = dllproc( sw,"GetHeight   i=()"            )
24. GetWidth    = dllproc( sw,"GetWidth    i=()"            )
25. Box         = dllproc( sw,"Box           (i,i,i,i,i,i)" )
26. DrawLine    = dllproc( sw,"DrawLine      (i,i,i,i,i,i)" )
27. RGB         = dllproc( sw,"RGB           (i,i,i)"       )
28. Rand        = dllproc( sw,"Rand          (i,i)"         )
29. Sync        = dllproc( sw,"Sync          ()"            )
30. CloseWindow = dllproc( sw,"CloseWindow   ()"            )
31.  
32. 'CODE
33.  
34. dllcall Window, 640, 480, 1
35. dllcall SetCaption,"SB/SW - Morning Light"
36.  
37. WHILE dllcall(Key,27) = 0
38. dllcall Cls,0
39. FOR y = 0 TO dllcall(GetHeight) STEP 10
40.   FOR x = 0 TO dllcall(GetWidth) STEP 10
41.     dllcall Box, x, y, 8, 8, 1, 0xC0C0F8
42.     dllcall DrawLine x, y, 240, 69, 2, dllcall (RGB,dllcall (Rand,64,255), dllcall(Rand,64,255), dllcall(Rand,64,255))
43.   NEXT
44. NEXT
45. dllcall Sync
46. WEND
47. dllcall CloseWindow
48. dllfile 0
49.  

Charles