I decided to write my own focusing line, mostly because I can't make head or tail of Oculus, and I don't really like using code I don't understand. As it turns out, it's a lot shorter than Oculus 2 and does almost the same thing. The only difference I can see is that, if the highest value in an eye is tied between several, it picks the one with the highest eye number, e.g. if it's a tie between eye5 and eye6, it will pick eye6. Does that make sense? Anyway, here's the code.
*.eye1 *.eye2 floor *.eye3 floor *.eye4 floor *.eye5 floor *.eye6 floor *.eye7 floor *.eye8 floor *.eye9 floor *.eye1 over sub ++ sgn 0 floor swap *.eye2 over sub ++ sgn 0 floor 2 mult swap *.eye3 over sub ++ sgn 0 floor 3 mult swap *.eye4 over sub ++ sgn 0 floor 4 mult swap *.eye5 over sub ++ sgn 0 floor 5 mult swap *.eye6 over sub ++ sgn 0 floor 6 mult swap *.eye7 over sub ++ sgn 0 floor 7 mult swap *.eye8 over sub ++ sgn 0 floor 8 mult swap *.eye9 swap sub ++ sgn 0 floor 9 mult floor floor floor floor floor floor floor floor 5 sub .focuseye store
Not as efficient as Ashton's Oculus III, but more compact, and I think it would also execute faster. It's not thoroughly tested, but as far as I can tell, it seems to work. Let me know what you think of it, and feel free to use it if you like.
EDIT: Ocul, longer but behaves exactly like Oculus II as far as I can tell.
*.eye1 *.eye2 floor *.eye3 floor *.eye4 floor *.eye5 floor *.eye6 floor *.eye7 floor *.eye8 floor *.eye9 floor *.eye1 over sub ++ sgn 0 floor swap *.eye2 over sub ++ sgn 0 floor 3 mult swap *.eye3 over sub ++ sgn 0 floor 5 mult swap *.eye4 over sub ++ sgn 0 floor 7 mult swap *.eye5 over sub ++ sgn 0 floor 9 mult swap *.eye6 over sub ++ sgn 0 floor 8 mult swap *.eye7 over sub ++ sgn 0 floor 6 mult swap *.eye8 over sub ++ sgn 0 floor 4 mult swap *.eye9 swap sub ++ sgn 0 floor 2 mult floor floor floor floor floor floor floor floor dup - 2 add 0 floor -4 mult swap dup 2 sub abs - ++ 0 floor 4 mult swap dup 3 sub abs - ++ 0 floor -3 mult swap dup 4 sub abs - ++ 0 floor 3 mult swap dup 5 sub abs - ++ 0 floor -2 mult swap dup 6 sub abs - ++ 0 floor 2 mult swap dup 7 sub abs - ++ 0 floor - swap 8 sub abs - ++ 0 floor add add add add add add add .focuseye store