Login
Username:

Password:

Remember me



Lost Password?

Register now!
Main Menu
Who's Online
9 user(s) are online (5 user(s) are browsing Forum)

Members: 0
Guests: 9

more...
Top Posters

Browsing this Thread:   1 Anonymous Users





Lightball source code for lazarus Free Pascal.
Home away from home
Joined:
2004/4/12 5:20
From Perth,Australia
Group:
Registered Users
Posts: 527
Offline
I just uploaded the source code for lightball in Lazarus format. (http://www.lazarus-ide.org/)

Install Lazarus and you will be able to change the GUI or even the code itself. Maybe fix some bugs :)

Post here if you need help getting it working.

Posted on: 2015/4/4 0:46
_________________
Imagine 2.19 ......
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Webmaster
Joined:
2004/4/3 15:57
From Stockholm, Sweden.
Group:
Webmasters
Registered Users
Posts: 2442
Offline
I started out on Pascal back in the days, did my first 3D work in Turbo Pascal :), it looked horrible as I learned about additive errors :)

I will definitely download and look at it when home after the Easter

Posted on: 2015/4/4 10:08
_________________
Johan Andersson the Impulsive Imagineer
IFW 2.19..................
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Webmaster
Joined:
2004/4/3 15:57
From Stockholm, Sweden.
Group:
Webmasters
Registered Users
Posts: 2442
Offline
Downloading the IDE now, will probably take a look at the source this weekend

Posted on: 2015/4/9 19:42
_________________
Johan Andersson the Impulsive Imagineer
IFW 2.19..................
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Home away from home
Joined:
2004/4/12 5:20
From Perth,Australia
Group:
Registered Users
Posts: 527
Offline
Revised it myself heres a couple of bugfixes to start with.

Make the viz more accurate colour of final render
line 1097-1099
Changed the 128 to 10
r := clamp255(round(int1.x * 10));
g := clamp255(round(int1.y * 10));
b := clamp255(round(int1.z * 10));


Centre the viz display
line 1120. change to this.
Image1.Canvas.ellipse(rect(p2d.x + 111, p2d.y + 111, p2d.x + 116,p2d.y + 116));

Posted on: 2015/4/10 6:44

Edited by liontamer on 2015/4/10 7:11:56
Edited by liontamer on 2015/4/10 7:12:40
_________________
Imagine 2.19 ......
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Webmaster
Joined:
2004/4/3 15:57
From Stockholm, Sweden.
Group:
Webmasters
Registered Users
Posts: 2442
Offline
Looking at the source now, it DID compile (lotsa warnings) The fonts and interface seems a bit skewed :)

But it did compile :)

Interesting to get at your codin style

Posted on: 2015/4/11 12:13
_________________
Johan Andersson the Impulsive Imagineer
IFW 2.19..................
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Home away from home
Joined:
2004/4/12 5:20
From Perth,Australia
Group:
Registered Users
Posts: 527
Offline
congrats. the original code was written in delphi pascal. The delphi button component has a word wrap property that is not available in lazarus . Thats why the captions are wrong. You just need to resize the buttons.
The warnings are just bad housekeeping on my part. Should have cleaned out those unused variables.

Press F12 to bring the form designer to front.

Posted on: 2015/4/11 20:57
_________________
Imagine 2.19 ......
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Home away from home
Joined:
2004/4/12 5:20
From Perth,Australia
Group:
Registered Users
Posts: 527
Offline
>Centre the viz display
>line 1120. change to this.
>Image1.Canvas.ellipse(rect(p2d.x + 111, p2d.y + 111, p2d.x + >116,p2d.y + 116));

dont worry about this fix. it is actually for a slightly later version. (its confusing ,i really need to sort it all out)

Posted on: 2015/4/11 22:44
_________________
Imagine 2.19 ......
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Webmaster
Joined:
2004/4/3 15:57
From Stockholm, Sweden.
Group:
Webmasters
Registered Users
Posts: 2442
Offline
I am not a worrier... :)

I will look see more, have you worked in Visual C++ anything?

Posted on: 2015/4/13 15:23
_________________
Johan Andersson the Impulsive Imagineer
IFW 2.19..................
Transfer the post to other applications Transfer


Re: Lightball source code for lazarus Free Pascal.
Home away from home
Joined:
2004/4/12 5:20
From Perth,Australia
Group:
Registered Users
Posts: 527
Offline
no,not really. The only C work i do is translating routines to Pascal to use in Delphi.Luckily i dont have to do that very often.

Posted on: 2015/4/16 20:08
_________________
Imagine 2.19 ......
Transfer the post to other applications Transfer






You can view topic.
You cannot start a new topic.
You cannot reply to posts.
You cannot edit your posts.
You cannot delete your posts.
You cannot add new polls.
You cannot vote in polls.
You cannot attach files to posts.
You cannot post without approval.

[Advanced Search]


Search
Powered by XOOPS © 2001-2009 The XOOPS Project