call fake_skin2
	pop
	end
on_diff_spec:
	fent -
	pushv 1[fp+6]
	pushv 1[fp+6]
	mul
	assignf 1[fp+0]
	pop
	push 1.000000, 1.000000, 1.000000
	push 0.500000, 0.500000, 0.500000
	pushv 1[fp+0]
	mul
	pushv 1[fp+0]
	push 0.330000, 0.330000, 0.330000
	add
	div
	sub
	assignf 1[fp-1]
	pop
	push 0.450000, 0.450000, 0.450000
	pushv 1[fp+0]
	mul
	pushv 1[fp+0]
	push 0.090000, 0.090000, 0.090000
	add
	div
	assignf 1[fp-2]
	pop
	pushv 1[fp+8]
	pushv 1[fp+9]
	pushv 1[fp+8]
	pushv 1[fp+9]
	dot
	mul
	sub
	normalize
	assign 1[fp-3]
	pop
	pushv 1[fp+8]
	pushv 1[fp+9]
	dot
	acos
	assignf 1[fp-4]
	pop
	push 0.000000, 0.000000, 0.000000
	assign 2[fp+2]
	assign 2[fp+3]
	assign 2[fp+4]
	assign 2[fp+5]
	pop
	illum_init
illum_top:
	pushv 3[fp+5]
	pushv 1[fp+9]
	push 3.141593, 3.141593, 3.141593
	illum
	pop
	jmpf illum_end
	push 0.000000, 0.000000, 0.000000
	assignf 1[fp-5]
	pop
	apush [fp-5]
	lightsource 1
	pop
	push 0.000000, 0.000000, 0.000000
	assignf 1[fp-6]
	pop
	apush [fp-6]
	lightsource 2
	pop
	pushv 3[fp+15]
	normalize
	assign 1[fp-7]
	pop
	pushv 1[fp+8]
	pushv 1[fp-7]
	add
	normalize
	assign 1[fp-8]
	pop
	pushv 1[fp-7]
	pushv 1[fp+9]
	dot
	push 0.000000, 0.000000, 0.000000
	push 2.000000, 2.000000, 2.000000
	max
	assignf 1[fp-9]
	pop
	pushv 1[fp-3]
	pushv 1[fp-7]
	pushv 1[fp+9]
	pushv 1[fp-9]
	mul
	sub
	normalize
	dot
	assignf 1[fp-10]
	pop
	pushv 1[fp-9]
	acos
	assignf 1[fp-11]
	pop
	pushv 1[fp-11]
	pushv 1[fp-4]
	push 2.000000, 2.000000, 2.000000
	max
	assignf 1[fp-12]
	pop
	pushv 1[fp-11]
	pushv 1[fp-4]
	push 2.000000, 2.000000, 2.000000
	max
	assignf 1[fp-13]
	pop
	pushv 1[fp-9]
	pushv 1[fp-1]
	pushv 1[fp-2]
	push 0.000000, 0.000000, 0.000000
	pushv 1[fp-10]
	push 2.000000, 2.000000, 2.000000
	max
	mul
	pushv 1[fp-12]
	sin
	mul
	pushv 1[fp-13]
	tan
	mul
	add
	mul
	push 1.000000, 1.000000, 1.000000
	pushv 1[fp-5]
	sub
	mul
	assignf 1[fp-14]
	pop
	pushv 1[fp+7]
	push 0.000000, 0.000000, 0.000000
	ne
	pop
	jmpf if_else:
	pushv 1[fp-8]
	pushv 1[fp+9]
	dot
	push 0.000000, 0.000000, 0.000000
	push 2.000000, 2.000000, 2.000000
	max
	push 1.000000, 1.000000, 1.000000
	pushv 1[fp+7]
	div
	pow
	push 1.000000, 1.000000, 1.000000
	pushv 1[fp-6]
	sub
	mul
	jmp if_done:
if_else:
	push 0.000000, 0.000000, 0.000000
if_done:
	assignf 1[fp-15]
	pop
	pushv 2[fp+5]
	pushv 3[fp+14]
	pushv 1[fp-14]
	mul
	add
	assign 2[fp+5]
	pop
	pushv 2[fp+3]
	pushv 3[fp+47]
	pushv 1[fp-14]
	mul
	add
	assign 2[fp+3]
	pop
	pushv 2[fp+4]
	pushv 3[fp+14]
	pushv 1[fp-15]
	mul
	add
	assign 2[fp+4]
	pop
	pushv 2[fp+2]
	pushv 3[fp+47]
	pushv 1[fp-15]
	mul
	add
	assign 2[fp+2]
	pop
	jmp illum_top
illum_end:
	push 0.000000, 0.000000, 0.000000
	ret 8
	[fent count:=16]
fake_skin2:
	fent -
	pushv 3[fp+2]
	normalize
	pushv 3[fp+12]
	pushv 3[fp+6]
	faceforward
	assign 1[fp+0]
	pop
	pushv 3[fp+12]
	uminus
	normalize
	assign 1[fp-1]
	pop
	pushv 1[fp+0]
	pushv 3[fp+2]
	dot
	push 0.000000, 0.000000, 0.000000
	lt
	pop
	jmpf if_else:
	push 0.000000, 0.000000, 0.000000
	assign 3[fp+1]
	pop
	push 0.000000, 0.000000, 0.000000
	assign 3[fp+0]
	pop
	jmp if_done:
if_else:
	push 0.000000, 0.000000, 0.000000
	assign 1[fp-2]
	pop
	push 0.000000, 0.000000, 0.000000
	assign 1[fp-3]
	pop
	illum_init
illum_top:
	pushv 3[fp+5]
	pushv 1[fp+0]
	push 3.141593, 3.141593, 3.141593
	illum
	pop
	jmpf illum_end
	pushv 3[fp+15]
	normalize
	assign 1[fp-4]
	pop
	pushv 1[fp-4]
	pushv 1[fp+0]
	dot
	abs
	assignf 1[fp-5]
	pop
	pushv 1[fp-5]
	pushv 1[fp+7]
	add
	push 1.000000, 1.000000, 1.000000
	pushv 1[fp+7]
	add
	div
	pushv 1[fp-5]
	sub
	assignf 1[fp-6]
	pop
	pushv 1[fp-1]
	uminus
	pushv 1[fp-4]
	dot
	push 0.000000, 0.000000, 0.000000
	push 2.000000, 2.000000, 2.000000
	max
	assignf 1[fp-7]
	pop
	pushv 1[fp-7]
	push 1.000000, 1.000000, 1.000000
	pushv 1[fp-1]
	pushv 1[fp+0]
	dot
	push 0.000000, 0.000000, 0.000000
	push 2.000000, 2.000000, 2.000000
	max
	sub
	mul
	assignf 1[fp-7]
	pop
	pushv 1[fp-4]
	uminus
	pushv 1[fp+0]
	reflect
	assign 1[fp-8]
	pop
	pushv 1[fp-7]
	pushv 1[fp-8]
	pushv 1[fp-1]
	dot
	push 0.000000, 0.000000, 0.000000
	push 2.000000, 2.000000, 2.000000
	max
	mul
	assignf 1[fp-7]
	pop
	pushv 3[fp+47]
	assign 1[fp-9]
	pop
	pushv 3[fp+5]
	pushv 3[fp+53]
	push 0.000010, 0.000010, 0.000010
	mul
	sub
	pushv 1[fp-4]
	raycast
	assignf 1[fp-10]
	pop
	pushv 1[fp-10]
	pushv 3[fp+15]
	length
	lt
	pop
	jmpf if_else:
	pushv 3[fp+5]
	pushv 1[fp-4]
	pushv 1[fp-10]
	mul
	add
	assign 1[fp-11]
	pop
	push 0.000000, 0.000000, 0.000000
	pushv 1[fp-11]
	apush [fp-12]
	apush [fp-13]
	pillum
	ne
	pop
	jmpf if_else:
	pushv 1[fp-13]
	assign 1[fp-9]
	pop
	jmp if_done:
if_else:
	push 0.000000, 0.000000, 0.000000
	assign 1[fp-9]
	pop
if_done:
	pushv 1[fp-9]
	pushv 1[fp-10]
	uminus
	push 2.000000, 2.000000, 2.000000
	mul
	exp
	mul
	assign 1[fp-9]
	pop
	jmp if_done:
if_else:
if_done:
	pushv 1[fp-2]
	pushv 3[fp+47]
	pushv 1[fp-6]
	mul
	add
	assign 1[fp-2]
	pop
	pushv 1[fp-3]
	pushv 1[fp-9]
	pushv 1[fp-7]
	mul
	add
	assign 1[fp-3]
	pop
	jmp illum_top
illum_end:
	pushv 1[fp+0]
	pushv 1[fp-1]
	pushv 3[fp+26]
	pushv 1[fp+3]
	apush [fp-4]
	apush [fp-5]
	apush [fp-6]
	apush [fp-7]
	call on_diff_spec
	pop
	pushv 3[fp+3]
	pushv 1[fp-6]
	pushv 1[fp-4]
	pushv 1[fp+4]
	mix
	mul
	pushv 3[fp+24]
	mul
	pushv 1[fp-7]
	pushv 1[fp-5]
	pushv 1[fp+4]
	mix
	push 1.000000, 1.000000, 1.000000
	push 1.000000, 1.000000, 1.000000
	pushv 3[fp+32]
	sub
	mul
	pushv 3[fp+3]
	pushv 3[fp+32]
	mul
	add
	mul
	pushv 3[fp+25]
	mul
	add
	pushv 1[fp-2]
	pushv 1[fp+9]
	mul
	pushv 1[fp+8]
	mul
	add
	pushv 1[fp-3]
	pushv 1[fp+6]
	mul
	pushv 1[fp+5]
	mul
	add
	pushv 3[fp+3]
	pushv 1[fp+2]
	mul
	fullambient
	mul
	add
	pushv 3[fp+3]
	pushv 3[fp+27]
	mul
	add
	assign 3[fp+0]
	pop
	pushv 3[fp+4]
	assign 3[fp+1]
	pop
if_done:
	pushv 3[fp+0]
	pushv 3[fp+1]
	mul
	assign 3[fp+0]
	pop
	push 0.000000, 0.000000, 0.000000
	ret 8
	[fent count:=18]
...fake_skin2.slw compiled.