diff --git a/programs/demos/qjulia/trunk/QJULIA.ASM b/programs/demos/qjulia/trunk/QJULIA.ASM new file mode 100644 index 0000000000..2f91099e87 --- /dev/null +++ b/programs/demos/qjulia/trunk/QJULIA.ASM @@ -0,0 +1,1023 @@ +; App written by randall ported to KolibriOS and MenuetOS64 by macgub (www.macgub.hekko.pl). +; Now it use static memory, it is mixed 32bit code and SSE2 instructions. + +include '../../../macros.inc' + +use32 + + org 0x0 + + db 'MENUET01' ; 8 byte id + dd 0x01 ; header version + dd START ; start of code + dd IMG_END ; size of image + dd I_END ;0x100000 ; memory for app + dd I_END ;0xbffff ; esp + dd 0x0 , 0x0 ; I_Param , I_Icon + +START: ; start of execution + + call draw_window + call Main + call draw_from_buffer + +still: + +; mov eax,23 ; wait here for event +; mov ebx,timeout +; int 0x40 +; mov eax,11 ; check for event no wait + mov eax,10 ; wait for event + int 0x40 + + cmp eax,1 ; redraw request ? + je red + cmp eax,2 ; key in buffer ? + je key + cmp eax,3 ; button in buffer ? + je button + + jmp noclose + + red: ; redraw + call draw_window + call draw_from_buffer + jmp still + + key: ; key + mov eax,2 ; just read it and ignore + int 0x40 + shr eax,8 + cmp eax, 27 + jne still + mov eax, -1 + int 0x40 + + + button: ; button + mov eax,17 ; get id + int 0x40 + + cmp ah,1 ; button id=1 ? + jne noclose + + mov eax,-1 ; close this program + int 0x40 + noclose: + + jmp still + + +draw_from_buffer: + + mov eax,7 + mov ebx,screen4 + mov ecx,IMG_WIDTH*65536+IMG_HEIGHT + mov edx,0*65536+0 + int 0x40 +ret + + +;------------------------------------------------------------------------------- +; NAME: shuf +;------------------------------------------------------------------------------- +macro shuf d*,s*,z*,y*,x*,w* { + shufps d,s,(z shl 6) or (y shl 4) or (x shl 2) or w +} +;------------------------------------------------------------------------------- +; NAME: length3 +; IN: xmm0.xyz input vector +; OUT: xmm0.xyzw vector length +;------------------------------------------------------------------------------- +macro length3 { + mulps xmm0,xmm0 + movaps xmm1,xmm0 + movaps xmm2,xmm0 + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x55 + shufps xmm2,xmm2,0xaa + addps xmm0,xmm1 + addps xmm0,xmm2 + sqrtps xmm0,xmm0 +} +;------------------------------------------------------------------------------- +; NAME: length4 +; IN: xmm0.xyzw input vector +; OUT: xmm0.xyzw vector length +;------------------------------------------------------------------------------- +macro length4 { + mulps xmm0,xmm0 + movaps xmm1,xmm0 + movaps xmm2,xmm0 + movaps xmm3,xmm0 + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x55 + shufps xmm2,xmm2,0xaa + shufps xmm3,xmm3,0xff + addps xmm0,xmm1 + addps xmm2,xmm3 + addps xmm0,xmm2 + sqrtps xmm0,xmm0 +} +;------------------------------------------------------------------------------- +; NAME: normalize3 +; IN: xmm0.xyz input vector +; OUT: xmm0.xyz normalized vector +;------------------------------------------------------------------------------- +macro normalize3 { + movaps xmm3,xmm0 + mulps xmm0,xmm0 + movaps xmm1,xmm0 + movaps xmm2,xmm0 + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x55 + shufps xmm2,xmm2,0xaa + addps xmm0,xmm1 + addps xmm0,xmm2 + rsqrtps xmm0,xmm0 + mulps xmm0,xmm3 +} +;------------------------------------------------------------------------------- +; NAME: cross +; IN: xmm0.xyz first input vector +; IN: xmm1.xyz second input vector +; OUT: xmm0.xyz cross product result +;------------------------------------------------------------------------------- +macro cross { + movaps xmm2,xmm0 + movaps xmm3,xmm1 + shuf xmm0,xmm0,3,0,2,1 + shuf xmm1,xmm1,3,1,0,2 + shuf xmm2,xmm2,3,1,0,2 + shuf xmm3,xmm3,3,0,2,1 + mulps xmm0,xmm1 + mulps xmm2,xmm3 + subps xmm0,xmm2 +} +;------------------------------------------------------------------------------- +; NAME: dot3 +; IN: xmm0.xyz first input vector +; IN: xmm1.xyz second input vector +; OUT: xmm0.xyzw dot product result +;------------------------------------------------------------------------------- +macro dot3 { + mulps xmm0,xmm1 + movaps xmm1,xmm0 + movaps xmm2,xmm0 + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x55 + shufps xmm2,xmm2,0xaa + addps xmm0,xmm1 + addps xmm0,xmm2 +} +;------------------------------------------------------------------------------- +; NAME: dot4 +; IN: xmm0.xyzw first input vector +; IN: xmm1.xyzw second input vector +; OUT: xmm0.xyzw dot product result +;------------------------------------------------------------------------------- +macro dot4 { + mulps xmm0,xmm1 + movaps xmm1,xmm0 + movaps xmm2,xmm0 + movaps xmm3,xmm0 + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x55 + shufps xmm2,xmm2,0xaa + shufps xmm3,xmm3,0xff + addps xmm0,xmm1 + addps xmm2,xmm3 + addps xmm0,xmm2 +} +;------------------------------------------------------------------------------- +; NAME: qsq +; IN: xmm0.xyzw quaternion +; OUT: xmm0.xyzw squared quaternion +;------------------------------------------------------------------------------- +macro qsq { + movaps xmm3,xmm0 + movaps xmm4,xmm0 + movaps xmm1,xmm0 + dot3 + shufps xmm3,xmm3,0xff + movaps xmm5,xmm3 + mulps xmm3,xmm3 + subps xmm3,xmm0 ; r.___w + mulps xmm4,xmm5 + addps xmm4,xmm4 ; r.xyz_ + andps xmm3,dqword [g_ClearXYZ] + andps xmm4,dqword [g_ClearW] + orps xmm3,xmm4 + movaps xmm0,xmm3 +} +;------------------------------------------------------------------------------- +; NAME: qmul +; IN: xmm0.xyzw first quaternion +; IN: xmm1.xyzw second quaternion +; OUT: xmm0.xyzw first quaternion multiplied by second quaternion +;------------------------------------------------------------------------------- +macro qmul { + movaps xmm6,xmm0 ; q1.xyzw + movaps xmm7,xmm1 ; q2.xyzw + dot3 + movaps xmm4,xmm6 + movaps xmm5,xmm7 + shufps xmm4,xmm4,0xff ; q1.wwww + shufps xmm5,xmm5,0xff ; q2.wwww + movaps xmm1,xmm4 + mulps xmm1,xmm5 + subps xmm1,xmm0 + andps xmm1,dqword [g_ClearXYZ] + movaps [xxmm8],xmm1 ; r.000w + movaps xmm0,xmm6 + movaps xmm1,xmm7 + cross + mulps xmm7,xmm4 + mulps xmm6,xmm5 + addps xmm6,xmm7 + addps xmm0,xmm6 + andps xmm0,dqword [g_ClearW] + orps xmm0,[xxmm8] +} +;------------------------------------------------------------------------------- +; NAME: logss +; IN: xmm0.x function argument +; OUT: xmm0.x function result +;------------------------------------------------------------------------------- +macro logss { + maxss xmm0,[g_MinNormPos] + movss xmm1,[g_1_0] + movd edx,xmm0 + andps xmm0,dqword [g_InvMantMask] + orps xmm0,xmm1 + movaps xmm4,xmm0 + subss xmm0,xmm1 + addss xmm4,xmm1 + shr edx,23 + rcpss xmm4,xmm4 + mulss xmm0,xmm4 + addss xmm0,xmm0 + movaps xmm2,xmm0 + mulss xmm0,xmm0 + sub edx,0x7f + movss xmm4,[g_log_p0] + movss xmm6,[g_log_q0] + mulss xmm4,xmm0 + movss xmm5,[g_log_p1] + mulss xmm6,xmm0 + movss xmm7,[g_log_q1] + addss xmm4,xmm5 + addss xmm6,xmm7 + movss xmm5,[g_log_p2] + mulss xmm4,xmm0 + movss xmm7,[g_log_q2] + mulss xmm6,xmm0 + addss xmm4,xmm5 + movss xmm5,[g_log_c0] + addss xmm6,xmm7 + cvtsi2ss xmm1,edx + mulss xmm0,xmm4 + rcpss xmm6,xmm6 + mulss xmm0,xmm6 + mulss xmm0,xmm2 + mulss xmm1,xmm5 + addss xmm0,xmm2 + addss xmm0,xmm1 +} + +;------------------------------------------------------------------------------- +; NAME: QJuliaDist +; IN: xmm0.xyz position +; OUT: xmm0.xyzw distance to the nearest point in quaternion julia set +;------------------------------------------------------------------------------- +align 64 +QJuliaDist: + Z equ ebp-16 + Zp equ ebp-32 + NormZ equ ebp-36 + NormZp equ ebp-40 + push ebp + mov ebp,esp + sub esp,64 + ; init Z and Zp + andps xmm0,dqword [g_ClearW] + shuf xmm0,xmm0,0,3,2,1 + movups [Z],xmm0 + movaps xmm1,dqword [g_UnitW] + movups [Zp],xmm1 + ; iterate + mov ecx,10 +.Iterate: + ; compute and update Zp + movups xmm0,[Z] + movups xmm1,[Zp] + qmul + addps xmm0,xmm0 + movups [Zp],xmm0 + ; compute and update Z + movups xmm0,[Z] + qsq + addps xmm0,dqword [g_Quat] + movups [Z],xmm0 + ; check if squared length of Z is greater than g_EscapeThreshold, + ; break the loop if it is + movaps xmm1,xmm0 + dot4 + movss xmm1,[g_EscapeThreshold] + cmpltss xmm1,xmm0 + movd eax,xmm1 + cmp eax,0xffffffff + je .IterateEnd + ; continue the loop + sub ecx,1 + test ecx,ecx + jnz .Iterate +.IterateEnd: + movups xmm0,[Z] + length4 + movss [NormZ],xmm0 + movups xmm0,[Zp] + length4 + movss [NormZp],xmm0 + movss xmm0,[NormZ] + logss + divss xmm0,[NormZp] + mulss xmm0,[NormZ] + mulss xmm0,[g_0_5] + shufps xmm0,xmm0,0x00 + mov esp,ebp + pop ebp + ; restore Z,Zp,NormZ,NormZp + ret +;------------------------------------------------------------------------------- +; NAME: Map +; IN: xmm0.xyz position +; OUT: xmm0.xyzw distance to the nearest object from input position +; OUT: eax material ID of the nearest object +;------------------------------------------------------------------------------- +align 64 +Map: + ; P equ ebp-16 + ; MinDist equ ebp-32 + MatID equ ebp-40 + push ebp + mov ebp,esp + sub esp,128 + movaps [.P],xmm0 + movaps xmm0,dqword [g_255_0] + movaps [.MinDist],xmm0 + mov dword [MatID],0 + ; QJulia + movaps xmm0,[.P] + call QJuliaDist + movaps xmm1,xmm0 + cmpltps xmm1,[.MinDist] + movd eax,xmm1 + cmp eax,0xffffffff + jne @f + movaps [.MinDist],xmm0 + mov dword [MatID],4 +@@: + ; sphere + movaps xmm0,[.P] + subps xmm0,dqword [g_UnitY] + length3 + subps xmm0,dqword [g_1_0] + movaps xmm1,xmm0 + cmpltps xmm1,[.MinDist] + movd eax,xmm1 + cmp eax,0xffffffff + jne @f + ;movaps [MinDist],xmm0 + ;mov dword [MatID],1 +@@: + ; plane + movaps xmm0,[.P] + movaps xmm1,dqword [g_UnitY] + dot3 + addps xmm0,dqword [g_1_0] + movaps xmm1,xmm0 + cmpltps xmm1,[.MinDist] + movd eax,xmm1 + cmp eax,0xffffffff + jne @f + movaps [.MinDist],xmm0 + mov dword [MatID],2 +@@: + ; box + xorps xmm0,xmm0 + subps xmm0,[.P] + maxps xmm0,[.P] + subps xmm0,dqword [g_BoxSize] + maxps xmm0,dqword [g_0_0] + length3 + subps xmm0,dqword [g_BoxEdge] + movaps xmm1,xmm0 + cmpltps xmm1,[.MinDist] + movd eax,xmm1 + cmp eax,0xffffffff + jne @f + ;movaps [MinDist],xmm0 + ;mov dword [MatID],3 +@@: + movaps xmm0,[.MinDist] + mov eax,[MatID] + mov esp,ebp + pop ebp + ret +align 16 +.P: + rd 4 +.MinDist: + rd 4 + + ; restore P,MinDist,MatID +;------------------------------------------------------------------------------- +; NAME: CastRay +; IN: xmm0.xyz ray origin +; IN: xmm1.xyz ray direction +; OUT: xmm0.xyzw distance from ray orgin to the nearest intersected object +; or -1.0 if there is no intersection +;------------------------------------------------------------------------------- +align 64 +CastRay: + ; RO equ ebp-16 + ; RD equ ebp-32 + ; T equ ebp-48 + MatID equ ebp-52 + push ebp + mov ebp,esp + sub esp,128 + ; init stack variables + movaps [.RO],xmm0 + movaps [.RD],xmm1 + xorps xmm0,xmm0 + movaps [.T],xmm0 +.March: + ; find distance to the nearest object + movaps xmm0,[.RD] + mulps xmm0,[.T] + addps xmm0,[.RO] + call Map + mov [MatID],eax + ; return if distance is less than g_HitDist + movaps xmm1,xmm0 + cmpltps xmm1,dqword [g_HitDist] + movd eax,xmm1 + cmp eax,0xffffffff + je .Hit + ; increment T with distance to the nearest object + movaps xmm1,[.T] + addps xmm1,xmm0 + movaps [.T],xmm1 + ; continue loop only if distance is less than g_MaxDist + cmpltps xmm1,dqword [g_MaxDist] + movd eax,xmm1 + cmp eax,0xffffffff + je .March + xorps xmm0,xmm0 + subps xmm0,dqword [g_1_0] + movaps [.T],xmm0 + mov dword [MatID],0 +.Hit: + movaps xmm0,[.T] + mov eax,[MatID] + mov esp,ebp + pop ebp + ret +align 16 +.RO: + rd 4 +.RD: + rd 4 +.T: + rd 4 + ; restore RO,RD,T,MatID +;------------------------------------------------------------------------------- +; NAME: CastShadowRay +; IN: xmm0.xyz ray origin +; IN: xmm1.xyz ray direction +; OUT: xmm0.xyzw visibility factor [0.0, 1.0], +; 0.0 means path is fully blocked, +; 1.0 means path is fully clear +;------------------------------------------------------------------------------- +align 64 +CastShadowRay: + ; RO equ ebp-16 + ; RD equ ebp-32 + R equ ebp-48 + ; T equ ebp-64 + push ebp + mov ebp,esp + sub esp,128 + ; init stack variables + movaps [.RO],xmm0 + movaps [.RD],xmm1 + movaps xmm0,dqword [g_0_01] + movaps [.T],xmm0 + movaps xmm0,dqword [g_1_0] + movups [R],xmm0 +.March: + ; find distance to the nearest object + movaps xmm0,[.RD] + mulps xmm0,[.T] + addps xmm0,[.RO] + call Map + ; return 0.0 if distance is less than g_ShadowHitDist + movaps xmm1,xmm0 + cmpltps xmm1,dqword [g_ShadowHitDist] + movd eax,xmm1 + cmp eax,0xffffffff + je .Hit + ; compute R + movaps xmm1,xmm0 + rcpps xmm2,[.T] + mulps xmm1,xmm2 + mulps xmm1,dqword [g_16_0] + movups xmm2,[R] + minps xmm2,xmm1 + movups [R],xmm2 + ; increment T with distance to the nearest object + movaps xmm1,[.T] + addps xmm1,xmm0 + movaps [.T],xmm1 + ; continue loop only if distance is less than g_ShadowMaxDist + cmpltps xmm1,dqword [g_ShadowMaxDist] + movd eax,xmm1 + cmp eax,0xffffffff + je .March + ; return (R,R,R,R) + movups xmm0,[R] + mov esp,ebp + pop ebp + ret +.Hit: + ; return (0,0,0,0) + xorps xmm0,xmm0 + mov esp,ebp + pop ebp + ret + ; restore RO,RD,R,T +align 16 +.RO: + rd 4 +.RD: + rd 4 +.T: + rd 4 +;------------------------------------------------------------------------------- +; NAME: ComputeNormal +; IN: xmm0.xyz position +; OUT: xmm0.xyz normal vector +;------------------------------------------------------------------------------- +align 64 +ComputeNormal: + P equ ebp-16 + N equ ebp-32 + push ebp + mov ebp,esp + sub esp,128 + movups [P],xmm0 + ; compute x coordinate + addps xmm0,dqword [g_NormalDX] + call Map + movss [N+0],xmm0 + movups xmm0,[P] + subps xmm0,dqword [g_NormalDX] + call Map + movss xmm1,[N+0] + subss xmm1,xmm0 + movss [N+0],xmm1 + ; compute y coordinate + movups xmm0,[P] + addps xmm0,dqword [g_NormalDY] + call Map + movss [N+4],xmm0 + movups xmm0,[P] + subps xmm0,dqword [g_NormalDY] + call Map + movss xmm1,[N+4] + subss xmm1,xmm0 + movss [N+4],xmm1 + ; compute z coordinate + movups xmm0,[P] + addps xmm0,dqword [g_NormalDZ] + call Map + movss [N+8],xmm0 + movups xmm0,[P] + subps xmm0,dqword [g_NormalDZ] + call Map + movss xmm1,[N+8] + subss xmm1,xmm0 + movss [N+8],xmm1 + ; normalize + movups xmm0,[N] + normalize3 + mov esp,ebp + pop ebp + ret + ; restore P,N +;------------------------------------------------------------------------------- +; NAME: Shade +; IN: xmm0.xyz position +; IN: xmm1.xyz normal vector +; IN: edi material ID +; OUT: xmm0.xyz color +;------------------------------------------------------------------------------- +align 64 +Shade: + ; P equ ebp-16 + ; N equ ebp-32 + ; RGB equ ebp-48 + C equ ebp-64 + NdotL equ ebp-80 + L equ ebp-96 + ; AOScale equ ebp-112 + ; AO equ ebp-128 + Temp equ ebp-144 + Idx equ ebp-148 + MatID equ ebp-152 + push ebp + mov ebp,esp + sub esp,256 + movaps [.P],xmm0 + movaps [.N],xmm1 + mov [MatID],edi + ; + ; AO + ; + xorps xmm0,xmm0 + movaps [.AO],xmm0 + movaps xmm0,dqword [g_10_0] + movaps [.AOscale],xmm0 + mov dword [Idx],0 +.AOLoop: + cvtsi2ss xmm0,[Idx] + shufps xmm0,xmm0,0x00 + mulps xmm0,xmm0 + mulps xmm0,dqword [g_0_015] + addps xmm0,dqword [g_0_01] + movups [Temp],xmm0 + mulps xmm0,[.N] + addps xmm0,[.P] + call Map + movups xmm1,[Temp] + subps xmm1,xmm0 + mulps xmm1,[.AOscale] + movaps xmm0,[.AO] + addps xmm0,xmm1 + movaps [.AO],xmm0 + movaps xmm0,[.AOscale] + mulps xmm0,dqword [g_0_5] + movaps [.AOscale],xmm0 + add dword [Idx],1 + cmp dword [Idx],5 + jne .AOLoop + movaps xmm0,[.AO] + maxps xmm0,dqword [g_0_0] + minps xmm0,dqword [g_1_0] + movaps xmm1,dqword [g_1_0] + subps xmm1,xmm0 + movaps [.AO],xmm1 + ; + ; Material ID Switch + ; + mov edi,[MatID] + cmp edi,1 + je .Mat1 + cmp edi,2 + je .Mat2 + jmp .MatDef +.Mat1: + movaps xmm0,dqword [g_Red] + movaps [.RGB],xmm0 + jmp .MatBreak +.Mat2: + movaps xmm0,dqword [g_Green] + movaps [.RGB],xmm0 + jmp .MatBreak +.MatDef: + movaps xmm0,dqword [g_1_0] + movaps [.RGB],xmm0 +.MatBreak: + ; + ; Light0 Contribution + ; + ; compute light vector and "N dot L" value + movaps xmm0,dqword [g_L0Pos] + subps xmm0,[.P] + normalize3 + movups [L],xmm0 + movups xmm1,[N] + dot3 + movups [NdotL],xmm0 + ; cast shadow ray + movaps xmm0,[.P] + movups xmm1,[L] + call CastShadowRay + movups xmm1,[NdotL] + mulps xmm0,xmm1 + mulps xmm0,dqword [g_0_6] + addps xmm0,dqword [g_0_4] + maxps xmm0,dqword [g_0_0] + mulps xmm0,dqword [g_0_7] + mulps xmm0,dqword [.RGB] + movups [C],xmm0 + ; + ; Light1 Contribution + ; + ; compute light vector and "N dot L" value + movaps xmm0,dqword [g_L1Pos] + subps xmm0,[.P] + normalize3 + movups [L],xmm0 + movaps xmm1,[.N] + dot3 + movups [NdotL],xmm0 + ; cast shadow ray + movaps xmm0,[.P] + movups xmm1,[L] + call CastShadowRay + movups xmm1,[NdotL] + mulps xmm0,xmm1 + mulps xmm0,dqword [g_0_6] + addps xmm0,dqword [g_0_4] + maxps xmm0,dqword [g_0_0] + mulps xmm0,dqword [g_0_3] + mulps xmm0,dqword [.RGB] + movups xmm1,[C] + addps xmm0,xmm1 + mulps xmm0,[.AO] + mov esp,ebp + pop ebp + ret + ; restore P,N,C,RGB,NdotL,L,AOScale,AO,Temp,Idx,MatID +align 16 +.N: + rd 4 +.P: + rd 4 +.RGB: + rd 4 +.AOscale: + rd 4 +.AO: + rd 4 +;------------------------------------------------------------------------------- +; NAME: ComputeColor +; IN: xmm0.x normalized x coordinate +; IN: xmm0.y normalized y coordinate +; OUT: xmm0.xyz pixel color +;------------------------------------------------------------------------------- +align 64 +ComputeColor: + ; X equ ebp-32 + ; Y equ ebp-48 + ; RD equ ebp-64 + P equ ebp-80 + N equ ebp-96 + MatID equ ebp-100 + push ebp + mov ebp,esp + sub esp,128 + ; save function parameters on the stack + shufps xmm0,xmm0,0x00 + shufps xmm1,xmm1,0x00 + movaps [.X],xmm0 + movaps [.Y],xmm1 + ; compute z axis + xorps xmm0,xmm0 + subps xmm0,dqword [g_CamPos] + normalize3 + movaps xmm7,xmm0 + ; compute x axis + movaps xmm0,dqword [g_UnitY] + movaps xmm1,xmm7 + cross + normalize3 + movaps xmm6,xmm0 + ; compute y axis + movaps xmm0,xmm7 + movaps xmm1,xmm6 + cross + normalize3 + ; compute ray direction + mulps xmm0,[.Y] + mulps xmm6,[.X] + movaps xmm1,xmm7 + mulps xmm1,dqword [g_0_5] + addps xmm7,xmm1 + addps xmm0,xmm6 + addps xmm0,xmm7 + normalize3 + movaps [.RD],xmm0 + ; cast ray + movaps xmm0,dqword [g_CamPos] + movaps xmm1,[.RD] + call CastRay + mov [MatID],eax + ; return if there is no intersection + movaps xmm1,xmm0 + cmpltps xmm0,dqword [g_0_0] + movd eax,xmm0 + cmp eax,0xffffffff + je .Return + ; compute intersection point + movaps xmm0,[.RD] + mulps xmm0,xmm1 + addps xmm0,dqword [g_CamPos] + movups [P],xmm0 + ; compute normal vector + call ComputeNormal + movups [N],xmm0 + ; shade + mov edi,[MatID] + movups xmm0,[P] + movups xmm1,[N] + call Shade +.Return: + mov esp,ebp + pop ebp + ret + ; restore X,Y,RD,P,N,MatID +align 16 +.X: + rd 4 +.Y: + rd 4 +.RD: + rd 4 +;------------------------------------------------------------------------------- +; NAME: Main +; DESC: Program entry point. +;------------------------------------------------------------------------------- +align 64 +Main: + ImgPtr equ ebp-8 + Img8Ptr equ ebp-16 + X equ ebp-20 + Y equ ebp-24 + mov ebp,esp + sub esp,128 + ; + ; generate floating point image + ; + mov dword [ImgPtr],screen16 + mov ebx,screen16 + ; begin loops + mov dword [Y],0 +.LoopY: + mov dword [X],0 +.LoopX: + ; compute normalized x coordinate [-1.777 , 1.777] + cvtsi2ss xmm0,[X] + divss xmm0,[g_ImgWidth] + subss xmm0,[g_0_5] + addss xmm0,xmm0 + mov eax,1.777 + movd xmm2,eax + mulss xmm0,xmm2 + ; compute normalized y coordinate [-1.0 , 1.0] + cvtsi2ss xmm1,[Y] + divss xmm1,[g_ImgHeight] + subss xmm1,[g_0_5] + addss xmm1,xmm1 + ; compute and write pixel color to the buffer + call ComputeColor + movaps [ebx],xmm0 + ; advance pixel pointer + add ebx,16 + ; continue .LoopX + add dword [X],1 + cmp dword [X],IMG_WIDTH + jne .LoopX + ; continue .LoopY + add dword [Y],1 + cmp dword [Y],IMG_HEIGHT + jne .LoopY + ; + ; convert image to 4 x 8 bpp + ; + mov dword [Img8Ptr],screen4 + ; set dst and src pointers and loop counter + mov edi,screen4 + mov esi,[ImgPtr] + mov ecx,IMG_WIDTH*IMG_HEIGHT +@@: + ; clamp to [0.0 ,1.0] + movaps xmm0,[esi] + maxps xmm0,dqword [g_0_0] + minps xmm0,dqword [g_1_0] + ; convert from [0.0 ,1.0] to [0 ,255] + mulps xmm0,dqword [g_255_0] + cvttps2dq xmm0,xmm0 + ; pshufb xmm0,dqword [g_ImageConvMask] + ; set alpha to 0xff + movd [edi],xmm0 + or dword [edi],0xff000000 + ; continue loop + add esi,16 + add edi,4 + sub ecx,1 + jnz @b + ;convert to 24 bit per pixel + mov esi,screen4 + mov edi,esi + mov ecx,IMG_WIDTH*IMG_HEIGHT + cld + @@: + lodsd + mov ah,al + push ax + ror eax,16 + pop ax + stosd + dec edi + loop @b + + mov esp,ebp + +ret +; ********************************************* +; ******* WINDOW DEFINITIONS AND DRAW ******** +; ********************************************* +draw_window: + + mcall 12, 1 ; function 12:tell os about windowdraw + + mcall 48, 4 ;get skin width + lea ecx, [50*65536+IMG_HEIGHT+4+eax] ; [y start] *65536 + [y size] + [skin_height] + mcall 0,<50,IMG_WIDTH+9>,,0x74000000,,labelt ;draw window + + mcall 12, 2 ; function 12:tell os about windowdraw + + ret + + + +;------------------------------------------------------------------------------- +labelt: + db 'qjulia',0 +labelen: + +align 4 +IMG_WIDTH = 800 +IMG_HEIGHT = 600 +g_ImgWidth dd 800.0 +g_ImgHeight dd 600.0 +g_EscapeThreshold dd 16.0 +g_MinNormPos dd 0x00800000 +g_log_p0 dd -0.789580278884799154124 +g_log_p1 dd 16.3866645699558079767 +g_log_p2 dd -64.1409952958715622951 +g_log_q0 dd -35.6722798256324312549 +g_log_q1 dd 312.093766372244180303 +g_log_q2 dd -769.691943550460008604 +g_log_c0 dd 0.693147180559945 + +align 16 +;g_ImageConvMask db 8,4,0,12,12 dup 0x80 +g_InvMantMask dd 4 dup (not 0x7f800000) +g_0_0 dd 4 dup 0.0 +g_0_5 dd 4 dup 0.5 +g_1_0 dd 4 dup 1.0 +g_255_0 dd 4 dup 255.0 +g_16_0 dd 4 dup 128.0 +g_10_0 dd 4 dup 10.0 +g_0_6 dd 4 dup 0.6 +g_0_4 dd 4 dup 0.4 +g_0_7 dd 4 dup 0.7 +g_0_3 dd 4 dup 0.3 +g_0_01 dd 4 dup 0.01 +g_0_015 dd 4 dup 0.015 +g_CamPos dd 1.2,1.4,1.2,1.0 +g_UnitY dd 0.0,1.0,0.0,0.0 +g_UnitW dd 0.0,0.0,0.0,1.0 +g_HitDist dd 4 dup 0.001 +g_ShadowHitDist dd 4 dup 0.0005 +g_ShadowMaxDist dd 4 dup 10.0 +g_MaxDist dd 4 dup 40.0 +g_NormalDX dd 0.001,0.0,0.0,0.0 +g_NormalDY dd 0.0,0.001,0.0,0.0 +g_NormalDZ dd 0.0,0.0,0.001,0.0 +g_L0Pos dd 10.0,8.0,-6.0,1.0 +g_L1Pos dd -12.0,19.0,6.0,1.0 +g_Red dd 1.0,1.0,1.0,1.0 +g_Green dd 1.0,1.0,1.0,1.0 +g_BoxSize dd 1.5,1.0,1.5,1.0 +g_BoxEdge dd 4 dup 0.03 +g_ClearXYZ dd 0x00000000,0x00000000,0x00000000,0xffffffff +g_ClearW dd 0xffffffff,0xffffffff,0xffffffff,0x00000000 +g_Quat dd 0.2,0.0,0.0,-1.0 +IMG_END: +align 16 +screen16 rb IMG_WIDTH*IMG_HEIGHT*16 +align 16 +screen4 rb IMG_WIDTH*IMG_HEIGHT*4 +align 16 +xxmm8: + rd 4 +memStack: + rd 65536 +align 16 +I_END: diff --git a/programs/demos/qjulia/trunk/build.bat b/programs/demos/qjulia/trunk/build.bat new file mode 100644 index 0000000000..0f90d28326 --- /dev/null +++ b/programs/demos/qjulia/trunk/build.bat @@ -0,0 +1,3 @@ +@fasm QJULIA.asm QJULIA +@kpack QJULIA +@pause \ No newline at end of file