1
Projects / Re: P.O.V 125 Remake
« on: April 24, 2014 »
I love this good old day's 
Good one!!!
Cheers C3lt1c
Good one!!!
Cheers C3lt1c
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.
2
Challenges & Competitions / Re: [Symmetry_2014] Entry No.1
« on: April 24, 2014 »
Simple but I love this style!!!!! 
Cheers C3tl1c
Cheers C3tl1c
3
Challenges & Competitions / Re: [Symmetry_2014] MirrororriM
« on: April 24, 2014 »
Nice one bro!!!
It hypnotized me
Cheers
It hypnotized me
Cheers
4
Challenges & Competitions / Re: [Symmetry_2014] Cyberspace Ruptures
« on: April 24, 2014 »
Wow Kirl I like this!!!
Cheers
Cheers
5
Purebasic / Re: Worms Intro by emook
« on: January 12, 2014 »
Very cool Bro!!! I like your oldschool Style!!!
6
Challenges & Competitions / Re: Christmas Competition 2013
« on: November 21, 2013 »
Hi my friends...
It sounds cool, i hope i find some Time to code a christro for the competition.
It sounds cool, i hope i find some Time to code a christro for the competition.
7
Purebasic / Re: Nfo Scroller
« on: May 19, 2013 »
Awesome Stuff Bro!!!
I like the particle effects in the background and also the chiptune.
Good Work!
Cheers C3lt1c
I like the particle effects in the background and also the chiptune.
Good Work!
Cheers C3lt1c
8
Purebasic / Re: 2D Torus knot drawing
« on: April 06, 2013 »
Awesome stuff bro's!
Thx for sharing it !
Cheers C3lt1c
Thx for sharing it !
Cheers C3lt1c
9
Projects / Re: GOOD OLD DAYS - TRO
« on: April 01, 2013 »
Hi mate,
This is not so hard to code the 3D Dot Textscroller.
1. First you must code a little S3D Engine.
For help show this link http://aapproj.phatcode.net/qbcodetut/3Dtuts_Relsoft/index.html
2. Now you must code a routine that position the dots as a textfield.
Either you make for every char a byte array and code a writer engine. Or you coded it in my way
3. I have created a horizontally img_buffer and write a horizontally white text in terminal font in it. The next part is to read the image buffer pixel by pixel and if the white pixels are detected, you save the position as your 3D Dot.
4. Rotate all Dots and move them high.
Here is the Code in Freebasic this in not the Pixel by Pixel version (Quick and Dirty code) but i hope it helps you:
Cheers C3lt1c
This is not so hard to code the 3D Dot Textscroller.
1. First you must code a little S3D Engine.
For help show this link http://aapproj.phatcode.net/qbcodetut/3Dtuts_Relsoft/index.html
2. Now you must code a routine that position the dots as a textfield.
Either you make for every char a byte array and code a writer engine. Or you coded it in my way
3. I have created a horizontally img_buffer and write a horizontally white text in terminal font in it. The next part is to read the image buffer pixel by pixel and if the white pixels are detected, you save the position as your 3D Dot.
4. Rotate all Dots and move them high.
Here is the Code in Freebasic this in not the Pixel by Pixel version (Quick and Dirty code) but i hope it helps you:
Code: [Select]
'C3lt1cs Software 3D Text_Scroller Sample
#Include "fbgfx.bi"
Dim Shared screen_width As Integer = 450
Dim shared screen_height As Integer = 400
ScreenRes screen_width,screen_height,32,,FB.GFX_SHAPED_WINDOW or FB.GFX_ALWAYS_ON_TOP
Dim Shared draw_screen As UByte Ptr
draw_screen = ImageCreate(screen_width,screen_height,32)
''--------------------------------
Declare Sub view_fps()
Dim Shared fps_counter As Integer = 0
Dim Shared fps_timer As Integer
Dim Shared fps As Integer = 0
fps_timer = Timer
'---------------------------------
Type Vector3D
x As Single
y As Single
z As Single
End Type
Type Pixel
x As Single
y As Single
End Type
Declare Sub s3d_calc_3d(point3d As Vector3D, point3d_calc As pixel)
Declare Sub s3d_scale(point3d As Vector3D, x As Single, y As Single, z As single)
Declare Sub s3d_move(point3d As Vector3D, x As Single, y As Single, z As Single)
Declare Sub rotate_x (obj As Vector3D, beta As Single)
Declare Sub rotate_y (obj As Vector3D, gamma As Single)
Declare Sub rotate_z (obj As Vector3D, _Alpha As Single)
Dim Shared DEGtoRAD As Single
DEGtoRAD = 3.141593 / 180
Dim Shared eye As Vector3D
'---------------------------------
Dim shared text As String
text = "C3LT1C IS BACK MY BROTHERS "
Dim Shared text_length As Integer
text_length = Len(text) * 7
Dim Shared pixel_counter As Integer
Dim Shared kugel_counter As Integer
Dim text_buf_img As UByte Ptr = ImageCreate(8, text_length*2,RGB(0,0,100))
For i As Integer = 0 To Len(text)
Draw String text_buf_img,(0,i*8),Mid(text,i+1,1)
Next
For x As Integer = 0 To 7
For y As Integer = 0 To text_length
pixel_counter + = 1
Next
Next
kugel_counter = pixel_counter
Dim Shared kugel_cpy(pixel_counter) As Vector3D
Dim Shared kugel(pixel_counter) As Vector3D
Dim Shared kugel_draw_array(pixel_counter) As Integer
Dim Shared pixel_data As Pixel
Dim Shared rotate As Single
Dim Shared move As Single
pixel_counter = 0
For x As Integer = -3 To 4
For y As Integer = 0 To text_length
kugel_cpy(pixel_counter).x = x
kugel_cpy(pixel_counter).y = y
kugel_cpy(pixel_counter).z = 0
pixel_counter + = 1
Next
Next
pixel_counter = 0
For x As Integer = 0 To 7
For y As Integer = 0 To text_length
If Point(x,y,text_buf_img) = &hFFFFFFFF Then
kugel_draw_array(pixel_counter) = 1
Else
kugel_draw_array(pixel_counter) = 0
EndIf
pixel_counter + = 1
Next
Next
eye.x = 0
eye.y = 0
eye.z = 200
'---------------------------------
Do
Line draw_screen,(0,0)-(screen_width,screen_height),0,bf
For i As Integer = 0 to kugel_counter
kugel(i).x = kugel_cpy(i).x
kugel(i).y = kugel_cpy(i).y
kugel(i).z = kugel_cpy(i).z
s3d_scale(kugel(i), 10, 10, 1)
rotate_x(kugel(i),180)
rotate_y(kugel(i),rotate)
s3d_move(kugel(i), 0, move, 0)
s3d_calc_3d(kugel(i), pixel_data)
If kugel_draw_array(i) = 1 Then
Circle draw_screen ,(pixel_data.x, pixel_data.y),3,RGB(255,0,0),,,,f
EndIf
'PSet draw_screen, (pixel_data.x, pixel_data.y),RGB(255,0,0)
Next
move += 1
rotate += 1
view_fps()
ScreenLock
Cls
Put(0,0),draw_screen
ScreenUnLock
Sleep 10
Loop Until InKey = Chr(27)
ImageDestroy text_buf_img
ImageDestroy draw_screen
End
Sub view_fps()
'FPS Anzeige
Draw String draw_screen,(0,220),"FPS: " & Str(fps)
fps_counter += 1
'fps counter
If Timer > (fps_timer + 1) Then
fps_timer = Timer
fps = fps_counter
fps_counter = 0
EndIf
End Sub
'#################################################
'#################################################
Sub s3d_calc_3d(point3d As Vector3D, point3d_calc As pixel)
point3d.x -= eye.x
point3d.y -= eye.y
point3d.z -= eye.z
point3d_calc.x = (point3d.x / point3d.z) * screen_width + screen_width / 2
point3d_calc.y = (point3d.y / point3d.z) * screen_height + screen_height / 2
'Circle draw_screen ,(point3d_calc.x, point3d_calc.y),3,RGB(255,0,0),,,,f
End Sub
Sub s3d_scale(point3d As Vector3D, x As Single, y As Single, z As single)
point3d.x *= x
point3d.y *= y
point3d.z *= z
End Sub
Sub s3d_move(point3d As Vector3D, x As Single, y As Single, z As Single)
point3d.x += x
point3d.y += y
point3d.z += z
End Sub
Sub rotate_x (obj As Vector3D, beta As Single)
Dim p As Vector3D
p.y = (obj.y * cos(DEGtoRAD * beta) - obj.z * Sin(DEGtoRAD * beta))
p.z = (obj.y * sin(DEGtoRAD * beta) + obj.z * Cos(DEGtoRAD * beta))
obj.y = p.y
obj.z = p.z
End Sub
Sub rotate_y (obj As Vector3D, gamma As Single)
Dim p As Vector3D
p.x = (obj.z * sin(DEGtoRAD * gamma) + obj.x * cos(DEGtoRAD * gamma))
p.z = (obj.z * cos(DEGtoRAD * gamma) - obj.x * Sin(DEGtoRAD * gamma))
obj.x = p.x
obj.z = p.z
End Sub
Sub rotate_z (obj As Vector3D, _Alpha As Single)
Dim p As Vector3D
p.x = (obj.x * cos(DEGtoRAD * _Alpha) + obj.y * Sin(DEGtoRAD * _Alpha))
p.y = (obj.x * sin(DEGtoRAD * _Alpha) - obj.y * Cos(DEGtoRAD * _Alpha))
obj.x = p.x
obj.y = p.y
End Sub
'####################################################
Cheers C3lt1c
11
Projects / Re: Random stuff
« on: March 29, 2013 »
WOW, I like it!!!
The Retro Style Gfxing is Awesome
The Retro Style Gfxing is Awesome
13
Projects / GOOD OLD DAYS - TRO
« on: March 29, 2013 »
Hi mates,
I could find some time for coding a new Oldschool Tro for you.
I hope you like it.
The Gfx is pixel by pixel with GDI (no GL) by my own lib.
It was back an quick and dirty action.
Cheers C3lt1c
I could find some time for coding a new Oldschool Tro for you.
I hope you like it.
The Gfx is pixel by pixel with GDI (no GL) by my own lib.
It was back an quick and dirty action.
Cheers C3lt1c
14
Projects / Re: remakes
« on: March 10, 2013 »
Very cool stuff bro!!!
i feel the spirit of old school in every remake
Big thx!
Cheers C3lt1c
i feel the spirit of old school in every remake
Big thx!
Cheers C3lt1c
15
Challenges & Competitions / Re: 2013 UDG CHALLENGE VOTING
« on: March 02, 2013 »
Big thanks to all coders in this competition.
Every Demo Rockzz!!!
I had not found any time to also releasen anything: (
Cheers C3lt1c
Every Demo Rockzz!!!
I had not found any time to also releasen anything: (
Cheers C3lt1c
16
Challenges & Competitions / Re: [UDG] Alzheimer Blocks
« on: March 02, 2013 »
I like the name Alzheimer Blocks 
The plasma + the udf style rockzzz!!!
Good one mate..!
Cheers C3lt1c
The plasma + the udf style rockzzz!!!
Good one mate..!
Cheers C3lt1c
17
Challenges & Competitions / Re: [UDG] Hammer Time 3D
« on: March 02, 2013 »
Hammer Time I like the name and the Ideas in your Demo!!!
Good work mate!!!
Cheers C3lt1c
I like the name and the Ideas in your Demo!!!Good work mate!!!
Cheers C3lt1c
18
Challenges & Competitions / Re: [UDG] Printblobs
« on: March 02, 2013 »
Realy nice stuff! I like the 2 color Bloby's
Cheers C3lt1c
Cheers C3lt1c
19
Challenges & Competitions / Re: [UDG] - Retro Rorschach
« on: March 02, 2013 »
Very nice Idea Kirl. I like it so much!!!
Nice mixed +GOL+ ALGO!
Cheers C3lt1c
Nice mixed +GOL+ ALGO!
Cheers C3lt1c
20
Challenges & Competitions / Re: [UDG] Afternoon Voyage
« on: March 02, 2013 »
Welcome back Bro!
This Demo is Fantastic. I like every effect and the Chiptune is fantastic too!!!
As always, very good work..!
This Demo is Fantastic. I like every effect and the Chiptune is fantastic too!!!
As always, very good work..!