Всё пока на стадии «отлова мысли». :)
Может будет дождь, а может и нет. Но всё будет вывешиваться здесь…
Заставка. Дождь, а может и что-то др. |
Заставка. Дождь, а может и что-то др. |
Alesha_GA |
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 56 Пол: Мужской Репутация: 0 |
Всё пока на стадии «отлова мысли». :)
Может будет дождь, а может и нет. Но всё будет вывешиваться здесь… -------------------- Deleting...
All RESET [Return] |
LOL |
Сообщение
#2
|
Гость |
Это радует !
|
Alesha_GA |
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 56 Пол: Мужской Репутация: 0 |
Заставка. Правда не дождь. Когда-то была началом к 3d движку.
Код program d3d; uses crt,graph; type kyyb=record x:integer; y:integer; z:integer; end; kvadro=record x:integer; y:integer; end; var dx:array[1..8] of kyyb; re:array[1..8] of kvadro; d,r,k:integer; x,y,i,j:integer; l:real; s:integer; procedure pvz(a:real; dx:kyyb; var re:kyyb); begin re.x:=trunc(dx.x*cos(a)-dx.y*sin(a)); re.y:=trunc(dx.x*sin(a)+dx.y*cos(a)); re.z:=trunc(dx.z); end; procedure render(dx:kyyb; var re:kvadro); begin re.x:=trunc((getmaxx div 2)+dx.x*200/(dx.z+200)); re.y:=trunc((getmaxy div 2)-dx.y*200/(dx.z+200)); end; procedure visual(a:real); begin for i:=1 to 8 do begin pvz(a,dx[i],dx[i]); render(dx[i],re[i]); end; for i:=1 to 3 do begin line(re[i].x,re[i].y,re[i+1].x,re[i+1].y); line(re[i+4].x,re[i+4].y,re[i+5].x,re[i+5].y); end; line(re[4].x,re[4].y,re[1].x,re[1].y); line(re[8].x,re[8].y,re[5].x,re[5].y); for i:=1 to 4 do begin line(re[i].x,re[i].y,re[i+4].x,re[i+4].y); end; end; begin d:=detect; initgraph(d,r,''); k:=graphresult; if k<>grok then writeln(GraphErrorMsg(k)) ELSE begin x:=0; y:=0; dx[1].x:=x-60; dx[1].y:=y+60; dx[1].z:=-60; dx[2].x:=x-60; dx[2].y:=y-60; dx[2].z:=-60; dx[3].x:=x+60; dx[3].y:=y-60; dx[3].z:=-60; dx[4].x:=x+60; dx[4].y:=y+60; dx[4].z:=-60; dx[5].x:=x-60; dx[5].y:=y+60; dx[5].z:=60; dx[6].x:=x-60; dx[6].y:=y-60; dx[6].z:=60; dx[7].x:=x+60; dx[7].y:=y-60; dx[7].z:=60; dx[8].x:=x+60; dx[8].y:=y+60; dx[8].z:=60; Setwritemode(xorput); setcolor(white); i:=0; j:=1; repeat SetColor(j); visual(i); delay(2000); if i=360 then i:=0 else i:=i+1; if j=15 then j:=1 else j:=j+1; until keypressed; readkey; end; closegraph; end. -------------------- Deleting...
All RESET [Return] |
AlaRic |
Сообщение
#4
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Очень неплохо! ;D
|
Текстовая версия | 11.05.2024 21:16 |