From 1b945782c24995077035db02d157420c838c4c0b Mon Sep 17 00:00:00 2001 From: admin Date: Wed, 2 Jul 2025 11:59:47 +0200 Subject: upload --- 3DPROJECTION.png | Bin 0 -> 13656 bytes SIMULAT.png | Bin 0 -> 9391 bytes fp___.err | 0 fp___.out | 0 negativex.PNG | Bin 0 -> 8448 bytes positivex.PNG | Bin 0 -> 6605 bytes projection.bak | 108 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ projection.exe | Bin 0 -> 104946 bytes projection.o | Bin 0 -> 16226 bytes projection.pas | 108 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ valeurabso.PNG | Bin 0 -> 6113 bytes wamtag.be | 1 + 12 files changed, 217 insertions(+) create mode 100644 3DPROJECTION.png create mode 100644 SIMULAT.png create mode 100644 fp___.err create mode 100644 fp___.out create mode 100644 negativex.PNG create mode 100644 positivex.PNG create mode 100644 projection.bak create mode 100644 projection.exe create mode 100644 projection.o create mode 100644 projection.pas create mode 100644 valeurabso.PNG create mode 100644 wamtag.be diff --git a/3DPROJECTION.png b/3DPROJECTION.png new file mode 100644 index 0000000..bbee781 Binary files /dev/null and b/3DPROJECTION.png differ diff --git a/SIMULAT.png b/SIMULAT.png new file mode 100644 index 0000000..6f7d6f1 Binary files /dev/null and b/SIMULAT.png differ diff --git a/fp___.err b/fp___.err new file mode 100644 index 0000000..e69de29 diff --git a/fp___.out b/fp___.out new file mode 100644 index 0000000..e69de29 diff --git a/negativex.PNG b/negativex.PNG new file mode 100644 index 0000000..e07a4a4 Binary files /dev/null and b/negativex.PNG differ diff --git a/positivex.PNG b/positivex.PNG new file mode 100644 index 0000000..9cc61b7 Binary files /dev/null and b/positivex.PNG differ 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 new file mode 100644 index 0000000..689ad2d Binary files /dev/null and b/projection.exe differ diff --git a/projection.o b/projection.o new file mode 100644 index 0000000..dfa4828 Binary files /dev/null and b/projection.o differ 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 new file mode 100644 index 0000000..635943b Binary files /dev/null and b/valeurabso.PNG differ 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 -- cgit v1.2.3