diff options
| -rw-r--r-- | 3DPROJECTION.png | bin | 0 -> 13656 bytes | |||
| -rw-r--r-- | SIMULAT.png | bin | 0 -> 9391 bytes | |||
| -rw-r--r-- | fp___.err | 0 | ||||
| -rw-r--r-- | fp___.out | 0 | ||||
| -rw-r--r-- | negativex.PNG | bin | 0 -> 8448 bytes | |||
| -rw-r--r-- | positivex.PNG | bin | 0 -> 6605 bytes | |||
| -rw-r--r-- | projection.bak | 108 | ||||
| -rw-r--r-- | projection.exe | bin | 0 -> 104946 bytes | |||
| -rw-r--r-- | projection.o | bin | 0 -> 16226 bytes | |||
| -rw-r--r-- | projection.pas | 108 | ||||
| -rw-r--r-- | valeurabso.PNG | bin | 0 -> 6113 bytes | |||
| -rw-r--r-- | wamtag.be | 1 |
12 files changed, 217 insertions, 0 deletions
diff --git a/3DPROJECTION.png b/3DPROJECTION.png Binary files differnew file mode 100644 index 0000000..bbee781 --- /dev/null +++ b/3DPROJECTION.png diff --git a/SIMULAT.png b/SIMULAT.png Binary files differnew file mode 100644 index 0000000..6f7d6f1 --- /dev/null +++ b/SIMULAT.png diff --git a/fp___.err b/fp___.err new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/fp___.err diff --git a/fp___.out b/fp___.out new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/fp___.out diff --git a/negativex.PNG b/negativex.PNG Binary files differnew file mode 100644 index 0000000..e07a4a4 --- /dev/null +++ b/negativex.PNG diff --git a/positivex.PNG b/positivex.PNG Binary files differnew file mode 100644 index 0000000..9cc61b7 --- /dev/null +++ b/positivex.PNG diff --git a/projection.bak b/projection.bak new file mode 100644 index 0000000..8b130a6 --- /dev/null +++ b/projection.bak @@ -0,0 +1,108 @@ +program projection; + +uses wincrt,wingraph; +var pilote,mode,xc,xd,yd,zd,yc,zc,i,dd:integer; +c:char;h,h2,h3:string; + tx: array[1..8] of integer; + ty: array[1..8] of integer; + tz: array[1..8] of integer; + txs: array[1..8] of integer; + tys: array[1..8] of integer; + +BEGIN +xc:=-80; +yc:=0; +zc:=0; + +begin + +tx[1]:= -40; +ty[1]:= 40; +tz[1]:= 40; + +tx[2]:= -40; +ty[2]:= -40; +tz[2]:= 40; + +tx[3]:= -40; +ty[3]:= -40; +tz[3]:= -40; + +tx[4]:= -40; +ty[4]:= 40; +tz[4]:= -40; + + +tx[5]:= 40; +ty[5]:= 40; +tz[5]:= 40; + +tx[6]:= 40; +ty[6]:= -40; +tz[6]:= 40; + +tx[7]:= 40; +ty[7]:= -40; +tz[7]:= -40; + +tx[8]:= 40; +ty[8]:= 40; +tz[8]:= -40; + +end; +dd:=200; +Pilote := Detect; + InitGraph(Pilote, Mode, 'PROJECTION DEMONSTRATION'); + + repeat + writeln('pass'); + +c:=readkey; +cleardevice; +writeln('pass'); +if (upcase(c)= 'Z') then xc:=xc+1 +else +if (upcase(c)='S' ) then xc:=xc-1 +else +if (upcase(c)= 'D') then zc:=zc+1 +else +if (upcase(c)='Q' ) then zc:=zc-1 +else +if (upcase(c)= 'U') then yc:=yc+1 +else +if (upcase(c)='X' ) then yc:=yc-1; +writeln('pass'); +writeln(xc,' yc= ',yc,' zc= ',zc); +for i:= 1 to 8 do +begin +xd:=tx[i]; +yd:=ty[i]; +zd:=tz[i]; +writeln('screeny= ',tys[i],' screenx= ',txs[i]); +if (yd<>yc)and(xc<>xd) then begin +tys[i]:=getmaxy div 2 + round(((yc-yd)*dd)/(xd-xc)); +txs[i]:=getmaxx div 2 + round(((zc-zd)*dd)/(xd-xc)); +str(i,h); +outtextxy(txs[i]+2,tys[i]+2,h); +end; +writeln('xs',i,'= ',txs[i],' ys',i,'= ',tys[i]); +end; + +begin +line(txs[1],tys[1],txs[5],tys[5]); +line(txs[4],tys[4],txs[8],tys[8]); +line(txs[2],tys[2],txs[6],tys[6]); +line(txs[3],tys[3],txs[7],tys[7]); +line(txs[6],tys[6],txs[5],tys[5]); +line(txs[2],tys[2],txs[1],tys[1]); +line(txs[7],tys[7],txs[8],tys[8]); +line(txs[3],tys[3],txs[4],tys[4]); +line(txs[7],tys[7],txs[6],tys[6]); +line(txs[3],tys[3],txs[2],tys[2]); +line(txs[8],tys[8],txs[5],tys[5]); +line(txs[4],tys[4],txs[1],tys[1]); +end; +until (upcase(c)='C'); + CloseGraph; +END. + diff --git a/projection.exe b/projection.exe Binary files differnew file mode 100644 index 0000000..689ad2d --- /dev/null +++ b/projection.exe diff --git a/projection.o b/projection.o Binary files differnew file mode 100644 index 0000000..dfa4828 --- /dev/null +++ b/projection.o diff --git a/projection.pas b/projection.pas new file mode 100644 index 0000000..60fe0cc --- /dev/null +++ b/projection.pas @@ -0,0 +1,108 @@ +program projection; + +uses wincrt,wingraph; +var pilote,mode,xc,xd,yd,zd,yc,zc,i,dd:integer; +c:char;h:string; + tx: array[1..8] of integer; + ty: array[1..8] of integer; + tz: array[1..8] of integer; + txs: array[1..8] of integer; + tys: array[1..8] of integer; + +BEGIN +xc:=-80; +yc:=0; +zc:=0; + +begin + +tx[1]:= -40; +ty[1]:= 40; +tz[1]:= 40; + +tx[2]:= -40; +ty[2]:= -40; +tz[2]:= 40; + +tx[3]:= -40; +ty[3]:= -40; +tz[3]:= -40; + +tx[4]:= -40; +ty[4]:= 40; +tz[4]:= -40; + + +tx[5]:= 40; +ty[5]:= 40; +tz[5]:= 40; + +tx[6]:= 40; +ty[6]:= -40; +tz[6]:= 40; + +tx[7]:= 40; +ty[7]:= -40; +tz[7]:= -40; + +tx[8]:= 40; +ty[8]:= 40; +tz[8]:= -40; + +end; +dd:=200; +Pilote := Detect; + InitGraph(Pilote, Mode, 'PROJECTION DEMONSTRATION'); + + repeat + writeln('pass'); + +c:=readkey; +cleardevice; +writeln('pass'); +if (upcase(c)= 'Z') then xc:=xc+1 +else +if (upcase(c)='S' ) then xc:=xc-1 +else +if (upcase(c)= 'D') then zc:=zc+1 +else +if (upcase(c)='Q' ) then zc:=zc-1 +else +if (upcase(c)= 'U') then yc:=yc+1 +else +if (upcase(c)='X' ) then yc:=yc-1; +writeln('pass'); +writeln(xc,' yc= ',yc,' zc= ',zc); +for i:= 1 to 8 do +begin +xd:=tx[i]; +yd:=ty[i]; +zd:=tz[i]; +writeln('screeny= ',tys[i],' screenx= ',txs[i]); +if (yd<>yc)and(xc<>xd) then begin +tys[i]:=getmaxy div 2 + round(((yc-yd)*dd)/(xd-xc)); +txs[i]:=getmaxx div 2 + round(((zc-zd)*dd)/(xd-xc)); +str(i,h); +outtextxy(txs[i]+2,tys[i]+2,h); +end; +writeln('xs',i,'= ',txs[i],' ys',i,'= ',tys[i]); +end; + +begin +line(txs[1],tys[1],txs[5],tys[5]); +line(txs[4],tys[4],txs[8],tys[8]); +line(txs[2],tys[2],txs[6],tys[6]); +line(txs[3],tys[3],txs[7],tys[7]); +line(txs[6],tys[6],txs[5],tys[5]); +line(txs[2],tys[2],txs[1],tys[1]); +line(txs[7],tys[7],txs[8],tys[8]); +line(txs[3],tys[3],txs[4],tys[4]); +line(txs[7],tys[7],txs[6],tys[6]); +line(txs[3],tys[3],txs[2],tys[2]); +line(txs[8],tys[8],txs[5],tys[5]); +line(txs[4],tys[4],txs[1],tys[1]); +end; +until (upcase(c)='C'); + CloseGraph; +END. + diff --git a/valeurabso.PNG b/valeurabso.PNG Binary files differnew file mode 100644 index 0000000..635943b --- /dev/null +++ b/valeurabso.PNG diff --git a/wamtag.be b/wamtag.be new file mode 100644 index 0000000..91b6e67 --- /dev/null +++ b/wamtag.be @@ -0,0 +1 @@ +12
31
14
42
3
41
\ No newline at end of file |
