-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathRGB-Texture-Cube.bat
104 lines (89 loc) · 4.14 KB
/
RGB-Texture-Cube.bat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
::Speed comparison with VT-version: With flag W0, this runs at ~320 FPS. VT version runs at 6 FPS. Also, this version has a 4 times bigger screen. Difference=320/6*4=213 times faster(!)
@echo off
set /a F6W=220/2, F6H=100/2
if not defined __ cmdwiz fullscreen 0
cmdwiz setfont 6 & mode %F6W%,%F6H% & cls & title RGB textured cube
cmdwiz showcursor 0
if defined __ goto :START
set __=.
cmdgfx_input.exe m0nuW10xR | call %0 %* | cmdgfx_RGB "" Sf0:0,0,220,100s
set __=
cls
cmdwiz setfont 6 & cmdwiz showcursor 1 & mode 80,50
set F6W=&set F6H=
goto :eof
:START
setlocal ENABLEDELAYEDEXPANSION
set /a W=220, H=100
for /F "Tokens=1 delims==" %%v in ('set') do if not %%v==H if not %%v==W set "%%v="
call centerwindow.bat 0 -15
call prepareScale.bat 0
set /a "XMID=%W%/2, YMID=%H%/2"
set /a DIST=2000, DRAWMODE=5, ROTMODE=0, SHOWHELP=1
set ASPECT=0.675
set /A RX=0,RY=0,RZ=0,HLPY=H-2
set HELPMSG="text e 0 0 SPACE\-D/d\-ENTER\-\g1e\g1f\g11\g10\-h 2,%HLPY%"
set MSG=%HELPMSG%
set /a OBJINDEX=0, NOFOBJECTS=2
call :SETOBJECT
set /a ACTIVE_KEY=0
set CONV16=color16
set /a C16=0 & set XF=skip& if !C16!==1 set XF=
set STOP=
:REP
for /L %%1 in (1,1,300) do if not defined STOP (
echo "cmdgfx: skip fbox 8 0 fa 0,0,!W!,!H! & image img/water2.bmp 0 0 fe -1 0,0 0 0 !W!,!H! & 3d objects/!FNAME! !DRAWMODE!,!O! !RX!,!RY!,!RZ! 0,0,0 !MOD!,0,0,10 !XMID!,!YMID!,!DIST!,%ASPECT% !PAL! & skip ipoly 89010101 0 ? 20 5,5,50,5,50,60,5,60 & !XF! %CONV16% & !MSG:~1,-1!" Ff0:0,0,!W!,!H!
if !ROTMODE! == 0 set /a RX+=2,RY+=6,RZ-=4
set /p INPUT=
for /f "tokens=1,2,4,6, 8,10,12,14,16,18,20,22, 24,26,28" %%A in ("!INPUT!") do ( set EV_BASE=%%A & set /a K_EVENT=%%B, K_DOWN=%%C, KEY=%%D, RESIZED=%%M, SCRW=%%N, SCRH=%%O 2>nul )
if "!RESIZED!"=="1" set /a W=SCRW*2*rW/100+1, H=SCRH*2*rH/100+1, XMID=W/2, YMID=H/2, HLPY=H-2 & cmdwiz showcursor 0 & set HELPMSG="text e 0 0 SPACE\-D/d\-ENTER\-\g1e\g1f\g11\g10\-h 2,!HLPY!"& if not !MSG!=="" set MSG=!HELPMSG!
if !K_EVENT! == 1 (
if !K_DOWN! == 1 (
for %%a in (331 333 328 336 122 90 100 68) do if !KEY! == %%a set /a ACTIVE_KEY=!KEY!
if !KEY! == 10 cmdwiz getfullscreen & set /a ISFS=!errorlevel! & (if !ISFS!==0 cmdwiz fullscreen 1) & (if !ISFS! gtr 0 cmdwiz fullscreen 0)
if !KEY! == 13 set /A ROTMODE=1-!ROTMODE!&set /a RX=0,RY=0,RZ=0
if !KEY! == 32 set /A OBJINDEX+=1&(if !OBJINDEX! geq %NOFOBJECTS% set /A OBJINDEX=0)&call :SETOBJECT
if !KEY! == 110 set /A OBJINDEX+=1&(if !OBJINDEX! geq %NOFOBJECTS% set /A OBJINDEX=0)&call :SETOBJECT
if !KEY! == 78 set /A OBJINDEX-=1&(if !OBJINDEX! lss 0 set /A OBJINDEX=%NOFOBJECTS%-1)&call :SETOBJECT
if !KEY! == 104 set /A SHOWHELP=1-!SHOWHELP!&(if !SHOWHELP!==0 set MSG="")&if !SHOWHELP!==1 set MSG=!HELPMSG!
if !KEY! == 120 set /a C16=1-C16 & set XF=skip& if !C16!==1 set XF=
if !KEY! == 112 cmdwiz getch
if !KEY! == 27 set STOP=1
)
if !K_DOWN! == 0 (
set /a ACTIVE_KEY=0
)
)
if !ACTIVE_KEY! gtr 0 (
if !ROTMODE!==1 (
if !ACTIVE_KEY! == 331 set /a RY+=8
if !ACTIVE_KEY! == 333 set /a RY-=8
if !ACTIVE_KEY! == 328 set /a RX+=8
if !ACTIVE_KEY! == 336 set /a RX-=8
if !ACTIVE_KEY! == 122 set /a RZ+=8
if !ACTIVE_KEY! == 90 set /a RZ-=8
)
if !ACTIVE_KEY! == 100 set /a DIST+=20
if !ACTIVE_KEY! == 68 set /a DIST-=20
)
set /a KEY=0
)
if not defined STOP goto REP
endlocal
cmdwiz delay 100
echo "cmdgfx: quit"
title input:Q
goto :eof
:SETOBJECT
if %OBJINDEX% == 0 set FNAME=cube-t-RGB2.obj& set MOD=400,400,400, 0,0,0 1&set O=-1
if %OBJINDEX% == 1 set FNAME=cube-t-RGB.obj&set MOD=400,400,400, 0,0,0 0&set O=0
if %OBJINDEX% == 2 set FNAME=cube-t-RGB.obj& set MOD=400,400,400, 0,0,0 1&set O=-1
if %OBJINDEX% == 3 set FNAME=cube-t-RGB2-x.obj& set MOD=400,400,400, 0,0,0 1&set O=-1
call :SETCOL %DRAWMODE%
goto :eof
:SETCOL
if %OBJINDEX% == 0 set PAL=0 0 db 0 0 db 0 0 O 0 0 O 0 0 b1 0 0 b1 0 0 - 0 0 - 0 0 K 0 0 K 0 0 i 0 0 i
if %OBJINDEX% == 1 set PAL=0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 7 0 db 7 0 db d 0 db d 0 db
if %OBJINDEX% == 2 set PAL=0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db 0 0 db f 1 db f 1 db e 0 db e 0 db
set PAL=0 0 db 0 0 db 0 0 O 0 0 O 0 0 b1 0 0 b1 0 0 - 0 0 - 0 0 db 0 0 db 0 0 03 0 0 03
if %OBJINDEX% == 3 set PAL=0 0 K