equal
deleted
inserted
replaced
141 di:= df * y div height; |
141 di:= df * y div height; |
142 for x:= 0 to pred(width) do |
142 for x:= 0 to pred(width) do |
143 begin |
143 begin |
144 dj:= df * x div width; |
144 dj:= df * x div width; |
145 |
145 |
146 r:= (abs(inoise(di, dj)) + y*4) mod 65536 div 256; |
146 r:= ((abs(inoise(di, dj)) + y*4) mod 65536 - (height - y) * 8) div 256; |
147 |
147 |
148 //r:= (abs(inoise(di, dj))) shr 8 and $ff; |
148 //r:= (abs(inoise(di, dj))) shr 8 and $ff; |
149 if (x < margin) or (x > width - margin) then r:= r - abs(x - width div 2) + width div 2 - margin; // fade on edges |
149 if (x < margin) or (x > width - margin) then r:= r - abs(x - width div 2) + width div 2 - margin; // fade on edges |
150 |
|
151 r:= r - (height - y) div 32; |
|
152 |
150 |
153 //r:= r - max(0, - abs(x - width div 2) + width * 2 div 100); // split vertically in the middle |
151 //r:= r - max(0, - abs(x - width div 2) + width * 2 div 100); // split vertically in the middle |
154 //r:= r + (trunc(1000 - sqrt(sqr(x - (width div 2)) * 4 + sqr(y - height * 5 div 4) * 22))) div 600 * 20; // ellipse |
152 //r:= r + (trunc(1000 - sqrt(sqr(x - (width div 2)) * 4 + sqr(y - height * 5 div 4) * 22))) div 600 * 20; // ellipse |
155 //r:= r + 1 - ((abs(x - (width div 2)) + abs(y - height) * 2)) div 32; // manhattan length ellipse |
153 //r:= r + 1 - ((abs(x - (width div 2)) + abs(y - height) * 2)) div 32; // manhattan length ellipse |
156 |
154 |