The first prototype of Deluxe Ski Jump
-
- Site Admin
- Posts: 3745
- Joined: 22 Jan 2007, 14:42
- Location: Finland
- Contact:
The first prototype of Deluxe Ski Jump
This is the first prototype of Deluxe Ski Jump from 1999!
After three months of hard work I released the actual game on July 4th, 1999.
Happy 25th anniversary!
P.S. Switch the video to HD to enjoy the sharpness of large pixels!
Re: The first prototype of Deluxe Ski Jump
Looks great, what are the parameters of the hill profile, we need to recreate it in DSJ4
As a side note, this inrun is suspiciously similar to my Bichlbach
As a side note, this inrun is suspiciously similar to my Bichlbach
Lurker since 2001
Better player than Garrean (for around 25 minutes at a time until he tries harder)
Better player than Garrean (for around 25 minutes at a time until he tries harder)
-
- Site Admin
- Posts: 3745
- Joined: 22 Jan 2007, 14:42
- Location: Finland
- Contact:
Re: The first prototype of Deluxe Ski Jump
Here is extract from the original source code to draw the hill.
Code: Select all
var maki:record
k,d:real;
x1,x2,x3:integer;
a,b,c:real;
end;
with maki do begin
x1:=10;
x2:=40;
x3:=120;
k:=-1.85;
d:=210;
a:=0.015;
b:=k-2*a*x2;
c:=k*x2+d-a*x2*x2-b*x2;
end;
function f(x0:real):real;
begin
with maki do
if x0<=x2 then f:=k*x0+d else f:=a*x0*x0+b*x0+c;
end;
procedure drawmaki;
var xk,yk:integer;
begin
for xk:=maki.x1 to maki.x3 do begin
yk:=round(f(xk));
mem[$a000:xk+(200-yk)*320]:=darkgray;
end;
end;