Author Topic: What are you working on at the moment?  (Read 142551 times)

0 Members and 1 Guest are viewing this topic.

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: What are you working on at the moment?
« Reply #280 on: March 14, 2011 »
Nice! Does it have a rapid fire option ;D

I'm working on:
My second entry for the Destruction contest.
A Barcode Battler simulator.
A Pokemon Red/Blue simulator.
Adding the finishing touches to the SMF 1 / 2 anti-spammer registration form.
Trigonometry Tool.

Future Projects:
Control 16 (the sequel to Control 8)
Control 32 (the possible sequel to Control 16)
Long Multiplication Tutor (for our Maths department)
Long Division Tutor (see above)
QuizNet (a fusion of Ajax, Flash, PHP and MySQL)
You are our 9001st visitor.
Challenge Trophies Won:

Offline Raizor

  • Founder Member
  • Pentium
  • ********
  • Posts: 1150
  • Karma: 174
    • View Profile
    • Raizor's Dev Blog
Re: What are you working on at the moment?
« Reply #281 on: March 15, 2011 »
I'm working on the finishing touches of my first iPhone game, Wall Warrior. It's kind of Arkanoid on steroids :) Once that is out of the way in a week or so it's down to some demo coding goodness! I think I'll try some meta balls to start with. I know everyone is probably sick of them these days, but I've always wanted to make some :)
raizor

Challenge Trophies Won:

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17378
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
Re: What are you working on at the moment?
« Reply #282 on: March 15, 2011 »
Metaballs are cool :)

It would be cool if there were some demo-ish screen savers for android.
Shockwave ^ Codigos
Challenge Trophies Won:

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17378
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
Re: What are you working on at the moment?
« Reply #283 on: March 15, 2011 »
Having some fun with this I must admit :)
Shockwave ^ Codigos
Challenge Trophies Won:

Offline combatking0

  • JavaScript lives!
  • Senior Member
  • DBF Aficionado
  • ********
  • Posts: 4569
  • Karma: 235
  • Retroman!
    • View Profile
    • Combat King's Barcode Battler Home
Re: What are you working on at the moment?
« Reply #284 on: March 16, 2011 »
If you shoot all the way along it from left to right across the middle, does the bottom fall off? ;)
You are our 9001st visitor.
Challenge Trophies Won:

Offline Jim

  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 5301
  • Karma: 402
    • View Profile
Re: What are you working on at the moment?
« Reply #285 on: March 16, 2011 »
Have you got a px of Teddy Ruxpin?
Challenge Trophies Won:

Offline boogop

  • C= 64
  • **
  • Posts: 68
  • Karma: 42
    • View Profile
Re: What are you working on at the moment?
« Reply #286 on: March 16, 2011 »
Finishing up my iOS demo and trying to figure out the cryptic app store submission process. :telloff:

I'd originally planned to make it self-running via a timer loop, but the apple user interface docs seem to want interaction, so I'm switching effects via touches. So I have to make the music looping in case they get to the greetz and go around again. Also trying to figure out why my dot tube seems to get its z-positioning screwed up the second time around. That looks like some kind of gluPerspective problem.
Challenge Trophies Won:

Offline Raizor

  • Founder Member
  • Pentium
  • ********
  • Posts: 1150
  • Karma: 174
    • View Profile
    • Raizor's Dev Blog
Re: What are you working on at the moment?
« Reply #287 on: March 16, 2011 »
Boogop, that sounds cool, I look forward to seeing it. The whole 'must be interactive' thing is a bit of pain for things like this.
raizor

Challenge Trophies Won:

Offline StatMat

  • C= 64
  • **
  • Posts: 43
  • Karma: 14
    • View Profile
Re: What are you working on at the moment?
« Reply #288 on: March 20, 2011 »
I'm currently working on the latest version of my TitchySID library, a release of which is long overdue. Other than some significant size reductions, this will include the FFT stuff to allow proper analysers and such. It also has examples of using the library in MASM, C, FreeBasic, PureBasic, C# and BlitzMax.

Hopefully it'll turn out useful for some the guys here. ;)
"When the only tool you own is a hammer, every problem begins to resemble a nail."

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17378
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
Re: What are you working on at the moment?
« Reply #289 on: March 20, 2011 »
Any plans to make it compatible with Freebasic too? :)

I was looking at the topic earlier on as a matter of fact and reminded me how cool it is!
Shockwave ^ Codigos
Challenge Trophies Won:

Offline StatMat

  • C= 64
  • **
  • Posts: 43
  • Karma: 14
    • View Profile
Re: What are you working on at the moment?
« Reply #290 on: March 20, 2011 »
The FreeBasic example is completed. Although I'm no FB guru hopefully it'll get ya started! :p

Code: [Select]
#include once "windows.bi"
#include "win/commdlg.bi"
#include "win/mmsystem.bi"
#include "crt/math.bi"
#include "titchysid.bi"

#define IDI_ICON                        101
#define IDD_SID_PLAYER_DLG              102
#define IDR_MUSIC                       103
#define IDC_EXIT                        1001
#define IDC_INFO_LABELS                 1002
#define IDC_INFO                        1003
#define IDC_OPEN                        1004
#define IDC_NEXT                        1005
#define IDC_PREVIOUS                    1006
#define IDC_PAUSE_RESUME                1007
#define IDC_STOP                        1008
#define IDC_PLAY                        1009
#define IDC_SONG_NUM                    1010
#define IDC_SPEC                        1011

#define SPECWIDTH 368 ' display width
#define SPECHEIGHT 127 ' height (changing requires palette adjustments too)
#define BANDS 28 ' number of equalizer bars

Type BITMAPINFO256
   bmiHeader As BITMAPINFOHEADER
   bmiColors(256) As RGBQUAD
End Type

Dim Shared AppName As String
AppName = "TITCHYSID_PLAYER_DEMO_FREEBASIC"

Dim Shared g_hInst As HINSTANCE = NULL
Dim Shared g_hWnd As HWND = NULL
Dim Shared sid_props As props
Dim Shared g_subsong As UByte
Dim Shared g_running As UByte
Dim Shared g_paused As UByte = 0

Dim Shared buffer As String

Dim Shared specwin As HWND
Dim Shared mmtimer As MMRESULT
Dim Shared bmi As BITMAPINFO256
Dim Shared specbuf(SPECWIDTH*SPECHEIGHT) As UByte

Sub UpdateSIDInfo()
Dim blocks As Integer

' Display the current sub song
SetWindowText(GetDlgItem(g_hWnd, IDC_SONG_NUM), Str(g_subsong))

blocks = sid_props.data_size / 256
If sid_props.data_size Mod 256 > 0 Then : blocks = blocks + 1 : End If

buffer = "$" + Hex(sid_props.load_addr, 4) + Chr(10) + "$" + Hex(sid_props.init_addr, 4) + _
Chr(10) + "$" + Hex(sid_props.play_addr, 4) + Chr(10) + Str(sid_props.data_size) + _
" bytes (" + Str(blocks) + " blocks)" + Chr(10) + _
Str(sid_props.num_songs) + Chr(10) + Str(sid_props.default_song) + Chr(10) + _
sid_props.sid_name + Chr(10) + sid_props.author + Chr(10) + sid_props.copyright

' Display the SID file properties
SetWindowText(GetDlgItem(g_hWnd, IDC_INFO), buffer)

End Sub

Sub OpenSID()

Dim filename As String * MAX_PATH
Dim filter As String = "SID Files (*.sid)" + CHR$(0) + "*.sid" + CHR$(0) + CHR$(0)
Dim ofn As OPENFILENAME
Dim filenum As Integer
Dim length As Integer
Dim filebuffer As UByte Ptr

ofn.lStructSize = sizeof(ofn)
ofn.hwndOwner = g_hWnd
ofn.lpstrFilter = Sadd(filter)
ofn.lpstrFile = Sadd(filename)
ofn.nMaxFile = MAX_PATH-1
ofn.Flags = OFN_FILEMUSTEXIST Or OFN_NONETWORKBUTTON Or OFN_PATHMUSTEXIST Or OFN_LONGNAMES Or OFN_EXPLORER
ofn.lpstrTitle = @"Choose SID File"

If GetOpenFileName(@ofn) <> 0 Then
filenum = FreeFile
Open filename for Binary as #filenum
length = Lof(filenum)
filebuffer = Allocate(length)
Get #filenum,,*filebuffer,length
Close #filenum

' Start the SID playing
SIDOpen(filebuffer, length, SID_MEMORY, SID_DEFAULT, 0)
SIDGetProps(@sid_props)

g_running = 1
g_subsong = sid_props.default_song
UpdateSIDInfo()

Deallocate(filebuffer)
End If

End Sub

Sub drawBar(byval x as UINT, byval y as UINT, byval height as UINT)
Dim i As Integer
For i = 0 To Height-1
Clear(specbuf(((y+i) * SPECWIDTH + x * Int(SPECWIDTH / BANDS))+3), y+1, SPECWIDTH/BANDS - 2)
Next
End Sub

' update the spectrum display - the interesting bit :)
Sub UpdateSpectrum(byval uTimerID as UINT, byval uMsg as UINT, byval dwUser as UINT, byval dw1 as UINT, byval dw2 as UINT)

Dim dc as HDC
Dim As Integer x,y,y1
Dim b0 as Integer = 0
Dim fft(1024) As Single
Dim sum As Single
Dim sc As Integer
Dim b1 As Integer

Erase specbuf ' Clear specbuf

SIDGetFFTData (@fft(0))

' Only update if we're not paused and running
If Not g_paused And g_running Then
For x = 0 To BANDS-1
sum=0
b1=pow(2,(x*10.0)/(BANDS-1))
If (b1>1023) Then : b1=1023 : End If
If (b1<=b0) Then : b1=b0+1 : End If ' make sure it uses at least 1 FFT bin
sc=10+(b1-b0)
For b0 = b0 To b1-1 : sum+=fft(1+b0) : Next
y=(sqrt(sum/log10(sc))*2.5*SPECHEIGHT) ' scale it
If (y>(SPECHEIGHT-4)) Then : y=SPECHEIGHT-4 : End If ' cap it
For b1 = 0 To y-1 Step 5
drawBar(x, b1, 4) ' draw bar
Next
Next
End If

' update the display
dc=GetDC(specwin)
SetDIBitsToDevice(dc, 0, 0, SPECWIDTH, SPECHEIGHT, 0, 0, 0, SPECHEIGHT, @specbuf(0), cast(BITMAPINFO ptr, @bmi), 0)
ReleaseDC(specwin,dc)

End Sub

Function WndProc (byval hWnd as HWND, byval message as UINT, byval wParam as WPARAM, byval lParam as LPARAM) as BOOL
Dim a As Integer
Dim pandr As String

    select case message

case WM_INITDIALOG
' Check this is the only instance of the app
If OpenMutex(MUTEX_ALL_ACCESS, FALSE, AppName) = 0 Then

        CreateMutex(0, False, AppName)

        SendMessage(hWnd, WM_SETICON, 0, cast(LPARAM, LoadIcon(g_hInst, cast(LPCSTR, IDI_ICON))))

        g_hWnd = hWnd
        specwin = GetDlgItem(hWnd, IDC_SPEC)

        ' Start the SID music playing from our resource
        SIDOpen(cast(any ptr, IDR_MUSIC), 0, SID_RESOURCE, SID_DEFAULT, 0)
SIDGetProps(@sid_props)

        g_running = 1
        g_subsong = sid_props.default_song
        UpdateSIDInfo()

        ' create bitmap to draw spectrum in (8 bit for easy updating)
        bmi.bmiHeader.biSize = Sizeof(BITMAPINFOHEADER)
        bmi.bmiHeader.biWidth = SPECWIDTH
        bmi.bmiHeader.biHeight = SPECHEIGHT ' upside down (line 0=bottom)
        bmi.bmiHeader.biPlanes = 1
        bmi.bmiHeader.biBitCount = 8
        bmi.bmiHeader.biClrUsed = 256
        bmi.bmiHeader.biClrImportant = 256

' setup palette
For a = 1 To 127
            bmi.bmiColors(a).rgbGreen = 256 - 2 * a
            bmi.bmiColors(a).rgbRed = 2 * a
Next

For a = 0 To 31
bmi.bmiColors(128+a).rgbBlue=8*a
bmi.bmiColors(128+32+a).rgbBlue=255
bmi.bmiColors(128+32+a).rgbRed=8*a
bmi.bmiColors(128+64+a).rgbRed=255
bmi.bmiColors(128+64+a).rgbBlue=8*(31-a)
bmi.bmiColors(128+64+a).rgbGreen=8*a
bmi.bmiColors(128+96+a).rgbRed=255
bmi.bmiColors(128+96+a).rgbGreen=255
bmi.bmiColors(128+96+a).rgbBlue=8*a
Next

        ' setup update timer (50hz)
        mmtimer = timeSetEvent(20, 5, @UpdateSpectrum, 0, TIME_PERIODIC)

    ' Another instance of the app is already running, so exit
Else
SendMessage(hWnd, WM_CLOSE, NULL, NULL)
    End If

        Case WM_COMMAND
            Select Case wParam
                Case IDC_OPEN
                    ' Open a SID file
                    OpenSID()

                Case IDC_PLAY

                    ' Start the SID music playing
If Not g_paused And Not g_running Then
                        SIDPlay()
                        g_running = 1
                    End If

                Case IDC_STOP

                    ' Stop the SID music playing
If Not g_paused And g_running Then
                        SIDStop()
                        g_running = 0
                    End If

                Case IDC_NEXT
If Not g_paused Then

                        ' Go to the next sub song
If g_subsong < sid_props.num_songs Then
g_subsong = g_subsong + 1
                            SIDChangeSong(g_subsong - 1)
                            UpdateSIDInfo()
                        End If
                    End If

                Case IDC_PREVIOUS
                    If Not g_paused Then
                        ' Go to the previous sub song
                        If (g_subsong > 1) Then
                        g_subsong = g_subsong - 1
                            SIDChangeSong(g_subsong - 1)
                            UpdateSIDInfo()
                        End If
                    End If

                Case IDC_PAUSE_RESUME
                    ' Pause or resume playback
If g_running Then
                        g_paused = Not g_paused

                        If g_paused Then
                            SIDPause()
                            pandr = "Resume"
                        Else
                            SIDResume()
                            pandr = "Pause"
                        End If

SetWindowText(GetDlgItem(hWnd, IDC_PAUSE_RESUME), pandr)
                    End If

                Case IDC_EXIT
                    SendMessage(hWnd, WM_CLOSE, NULL, NULL)
            End Select

            ' Use the HTCAPTION trick to allow dragging of the window
        Case WM_LBUTTONDOWN
            SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, lParam)

        Case WM_CLOSE
            ' Close the SID library
            SIDClose()
            EndDialog(hWnd, 0)

        Case Else
            Return False

    End Select

    Return True
End Function

g_hInst = GetModuleHandle(NULL)

DialogBoxParam(g_hInst, cast(LPCSTR, IDD_SID_PLAYER_DLG), NULL, @WndProc, NULL)

End
"When the only tool you own is a hammer, every problem begins to resemble a nail."

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17378
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
Re: What are you working on at the moment?
« Reply #291 on: March 20, 2011 »
That's worth some good karma! :)
Shockwave ^ Codigos
Challenge Trophies Won:

Offline StatMat

  • C= 64
  • **
  • Posts: 43
  • Karma: 14
    • View Profile
Re: What are you working on at the moment?
« Reply #292 on: March 20, 2011 »
Cheers man. I hope to get the full release out shortly and I'll be sure to post it here without delay once it's ready.
"When the only tool you own is a hammer, every problem begins to resemble a nail."

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17378
  • Karma: 497
  • evil/good
    • View Profile
    • My Homepage
Re: What are you working on at the moment?
« Reply #293 on: March 20, 2011 »
Thanks :)

Ampli was working on some Sid songs some time ago, hopefully I'll be able to persuade him to finish them because it would be cool to release a sid compilation... I always promised him I would do a music disk for him but I never got around to it.. Shame on me.

You've given me an opportunity to redeem myself!
Shockwave ^ Codigos
Challenge Trophies Won:

Offline StatMat

  • C= 64
  • **
  • Posts: 43
  • Karma: 14
    • View Profile
Re: What are you working on at the moment?
« Reply #294 on: March 20, 2011 »
I'll look forward to seeing what you guys come up with!
"When the only tool you own is a hammer, every problem begins to resemble a nail."

Offline padman

  • Senior Member
  • Pentium
  • ********
  • Posts: 982
  • Karma: 258
    • View Profile
Re: What are you working on at the moment?
« Reply #295 on: March 20, 2011 »
Cool stuff! This'll surely become handy when it's finished! K+
Challenge Trophies Won:

Offline TinDragon

  • Pentium
  • *****
  • Posts: 644
  • Karma: 24
    • View Profile
    • J2K's blog
Re: What are you working on at the moment?
« Reply #296 on: April 07, 2011 »
Hi Folks, been a hell of a time since i last posted anything on here, had alsorts going on in RL and was stuck in WoW for a couple years but finally found my way out :P

So I have decided to get back into coding and have been going over my old code archives looking at stuff and getting back into the swing of things. I still like using bmax so my main focus has been on my code in that using opengl and anything else I get side tracked into tinkering with. One of the things I had been working on before I semi disappeared in azeroth, was reducing the size of bmax exe's, while I am under no illusions that it will ever compare to c/c++ for making small exe's I wanted to atleast be closer to the other basic's exe's. To that end I have coded an rather nice lib as the base to create opengl demos with, while its still rather bloated it is much smaller than using the default bmax graphics setup, dropping from 100K-200K+ compressed exe's down to 30K-40k compressed for the same effects atleast feels like a big drop, even if its still rather large. I could probably squeeze more my dropping stuff like fullscreen/windowed requestor support, removing some of the extra features it gives for rendering 2d/3d fonts etc. But there things that I am likely to use from time to time so  :D

Now I just need to work out what to do with it, still a big fan of the oldskool stuff so expect I will do something retro, I am also currently reading the "Orange" book so hopefully I can make some cool shaders down the line.

What are most of you guys coding in now?

Anyway here's a couple shots using the code. 1st ones testing a shader, exe including shader code etc sits at 37k, was over 200k compressed using original bmax framework lol. Second One is testing vbo's and fbo's.


Offline padman

  • Senior Member
  • Pentium
  • ********
  • Posts: 982
  • Karma: 258
    • View Profile
Re: What are you working on at the moment?
« Reply #297 on: April 07, 2011 »
That's really cool! I wish I had more knowledge of OpenGL (better: any knowledge at all  :D) and that there were more examples for Purebasic (that's what I'm coding in).
Challenge Trophies Won:

Offline zawran

  • Sponsor
  • Pentium
  • *******
  • Posts: 909
  • Karma: 67
    • View Profile
Re: What are you working on at the moment?
« Reply #298 on: April 07, 2011 »
Great to see Jon back in the code again :)  I took a break myself while dealing with some work related stress. But I am back at coding as well. I am currently working with Monkey, the latest offering from BlitzResearch. I am working on a Bejeweled clone which I intend to finish and publish on the Android market before the end of April.



I have also been prototyping other games using BlitzMax which is still my favorite programming language of all time. It is just super fast for me to code with and great for trying out various stuff. I have not done anything demo related for a very long time, but I cannot say that I will not do something at a later time. These days creating games for phones is what I like doing, so that is where my priority lies when it comes to my limited spare time.

Offline padman

  • Senior Member
  • Pentium
  • ********
  • Posts: 982
  • Karma: 258
    • View Profile
Re: What are you working on at the moment?
« Reply #299 on: April 07, 2011 »
Cool stuff!  :clap: I think I should start to have a look at coding for Android. That's where the future lies obviously. Pitty I ain't gotten a device yet. Any sponsors?  :D
Challenge Trophies Won: