The Official Deluxe Ski Jump Forum
https://forum.mediamond.fi/
Here is extract from the original source code to draw the hill.Xinitiao wrote: 04 Jul 2024, 11:04 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
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;