Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - nkk_kan

Pages: [1] 2
1
General chat / Re: Sponsorships.
« on: October 08, 2009 »
Thank you very much to every one who has supported this forum.
I may not participate much in the forums but still read it from time to time (when i get some free time). I'm very grateful to those keeping the forums up as i've learnt so much from this forum.   :clap::clap:

2
I found KAV to be the best one by far..though i don't use it :P
I never liked AVG, it never worked properly for me..
I don't have any on my (already slow) system but i'm fairly aware of what i download/use to avoid virus. ;p

3
Tried HijackThis?
Use it to create a log and look for some suspicious files or post it here.. someone might be able to help you out. If it really is a virus, it looks like some sort of malware or spyware. Usually, Antiviri don't detect them.

ps: HijackThis is one of the way to find this out... there may still be virus/*ware even if there is nothing suspicious in it's logs.

4
Cool idea! had fun watching that :P

5
General chat / Re: Facebooking
« on: February 20, 2009 »
i agree with jim!  :diablo:

7
runs smooth on my xp sp2 and exits fine

cool scroller there!


8
Useful links / Re: Dhtml Lemmings
« on: February 15, 2009 »
cool game
reminded me of me playing this game for hours

9
Projects / Re: opengl 3d second tryout
« on: February 15, 2009 »
good work dude
runs smooth even on my sad excuse of a pc :D

10
Projects / Re: Gun Ranger X, Thanks for the help!
« on: February 15, 2009 »
The game looks simple and has a odd sense of style ..
but the game play is good.. I don't play much BH but i liked this one.. (too much madness :P)
I like the way those "cells" rotate on hit.
maybe some blur effect would help with the visual part
Music is awesome.. i love it. :updance:

Keep up the good work!  :clap:

11
Useful links / Re: Democoding for beginners in C++
« on: December 21, 2008 »
Thanks man!
I really have been wanting to do more with C++ and this is just perfect!  ;D  :updance:


12
General chat / Re: Fexible & transparent Chips
« on: December 21, 2008 »
great videos! :)

The LucidTouch one is really an intuitive idea!

13
General chat / Re: See you in a few days!
« on: December 21, 2008 »
That's really bad (and sounds very excruciating) man =[
Hope you get well soon :)
Good luck for the operation!
See ya at christmas!

14
Freebasic / Re: What editor are you using?
« on: September 15, 2008 »
Geany is linux thingy XD  :whack:
though it has a GTK based windows version..
It's good for linux... though i'd prefer Kate
and if you want a general code editor, Notepad++ seems best choice  :P

15
Freebasic / Re: What editor are you using?
« on: September 13, 2008 »
I've used Fbide and FBEdit both
and personally, I liked simplicity of Fbide and Functionality of FBEdit

FBEdit has all the stuff i need and is updated regularly..
Fbide hasn't been updated regularly..Though a new one is under progress
Till then I'll keep using FBEdit.. :)

16
Kudos! :)
Rose curves?

17
General chat / Re: Many Happy Returns - JIM!
« on: June 26, 2008 »
damn i'm late! (effing exams)

Happy belated birthday Jim!
hope you had rocker of a party ;)

18
what rbz said :P  :D

19
yeah, A greenhouse of entries probably ;)

20
Cool stuff! :)

here's revision of the code for those who have latest Fb compiler version ;)

Code: [Select]
'
' Plasma Mk1.
'
#Include Once "TinyPtc_Ext.bi"

Const XRES=640
Const YRES=480

Const ARES=XRES*YRES
Const PI As Single = 3.14159

'
' Globals.
'
Dim Shared ScreenBuffer(ARES) as integer
Dim Shared Pal(256) as integer
Dim Shared  as integer x,y,inc
Dim Shared ARGB  as integer
Dim Shared Key As String

'
' Subroutines.
'
Declare Sub FeedPixels( Buffer() as integer, ByVal x As Integer, ByVal y As Integer, ByVal col As Integer)

Declare Sub GeneratePalette(    ByVal Val1 As Integer,_
                                ByVal Val2 As Integer,_
                                ByVal Val3 As Integer )
'
' Setup.
'
PTC_SetDialog(0,"",0,0)
PTC_Open("Plasma Mk1",XRES,YRES)

GeneratePalette(16,128,0)

'
' Main Loop.
'
While Key<>chr(27)
   
    For x = 0 To XRES-1
        For y = 0 To YRES-1
       
        ARGB=    int(  128.0 + (128.0 * sin(x / 16.0))_
            + 128.0 + (128.0 * sin(y / 32.0))_
            + 128.0 + (128.0 * sin(sqr(cdbl((x - XRES / 2.0)* (x - XRES / 2.0) + (y - YRES / 2.0) * (y - YRES / 2.0))) / 8.0))_
            + 128.0 + (128.0 * sin(sqr(cdbl(x * x + y * y)) / 8.0))) / 4
           
            FeedPixels(ScreenBuffer(),x, y, Pal(ARGB+inc and 255))
   
        Next
    Next
   
    inc=inc+16
   
    Ptc_Update @ScreenBuffer(0)
    Erase ScreenBuffer
    Key=Inkey()
   
Wend

'
' Shutdown.
'
PTC_Close()


Sub FeedPixels( Buffer() as integer, ByVal x As Integer, ByVal y As Integer, ByVal col As Integer)
       
    If X>0 And X<XRES-1 And Y>0 And Y<YRES-1 Then
        Buffer(Y * XRES + X) = col
    End If

End Sub


Sub GeneratePalette(    ByVal Val1 As Integer,_
                        ByVal Val2 As Integer,_
                        ByVal Val3 As Integer )
    '
    ' Local variables.
    '
    Dim as integer A,R,G,B
   
    For A=0 To 255
       
        R = int(128.0 + 128 * sin(PI * A / Val1))
        G = int(128.0 + 128 * sin(PI * A / Val2))
        B = int(128.0 + 128 * sin(PI * A / Val3))

        Pal( A ) = ( R Shl 16 ) Or ( G Shl 8 ) Or ( B Shl 0 )
   
    Next

End Sub

Pages: [1] 2