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!
![Laughing :lol:](./images/smilies/icon_lol.gif)
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;