"<PODATAK>"
"X=Y=Z size"
1e8 20

ARGS 3 FUNCTION
"current" 1e-7 "4 PITIMES MULTIPLY @_m0 ASSIGN"
                                 "constant m0 - magnetic permeability
of vacuum"
          MULTIPLY "4 PITIMES DIVIDE" @_I SET         "_I is m0/4pi*I"
"conductor vectors vector" SWAP
"'render space' PRINT WRITE" INTERVAL @_space ASSIGN
SHAPE 0 SWAP RESHAPE @_frame SET        "make room for the final frame"

MONADIC
        "current vectors" DUP
        FIRST @_dl SET
        REST "'Position: ' PRINT WRITE"
        _space SWAP SUBTRACT @_rv ASSIGN
        MAGNITUDE @_dist SET
                _dl
                        _rv DIRECTION
                MULTIPLY
                _dist _dist MULTIPLY
        DIVIDE
        _I MULTIPLY
        _frame ADD @_frame SET;
EACH

DISCARD
_frame;
@.Magfield SET

MONADIC
	INTERVAL
		MONADIC
			1i1j1 MULTIPLY 1i1j1 SWAP CATENATE;
	EACH;
@.line3 SET

@_xyz ASSIGN
1i1j1 MULTIPLY @_size SET

"<X>"   _size SWAP _xyz .line3 EXECUTE SWAP
      .Magfield EXECUTE "MAGNITUDE FLOOR PRINT"

'global_settings {
	assumed_gamma 1.5
	noise_generator 2
}' PRINT

_xyz 0.57 DIVIDE 10 MULTIPLY @_cnt SET

'camera {
	perspective
	location <0.0,' _cnt , '>
	angle 45
	sky <0,1,0>
	direction <0,0,1>
	right <', 3 RECIPROCAL 1 +, ',0,0>
	up <0,1,0>
	look_at <0,0,0>
}', PRINT

'light_source {
	<0,0,' _cnt, '>
	rgb <1,1,1> shadowless
}', PRINT

1 @_x ASSIGN @_y ASSIGN @_z SET

MONADIC
	'cone {
		<' _x 10 MULTIPLY, ',', _y 10 MULTIPLY, ',', _z 10 MULTIPLY, '>,2,<',
			SWAP DECAPSULATE
				DUP nan NOTEQUAL MULTIPLY
			DUP FIRST ',', SWAP REST DUP FIRST ',', SWAP REST DUP
			REST FIRST @_k SET
			FIRST,,,
			'>, 0.01
		pigment {
			color rgbf <1,0,1,', _k 2 DIVIDE, '>
		}
		finish {
			ambient 0.2
', "
			difuse 0.8
			phong 1
" '
		}
	}', PRINT
	_z 1 + @_z ASSIGN
	_xyz GREATER CHECK
		NILADIC
			1 @_z ASSIGN
			_y + @_y ASSIGN
			_xyz GREATER CHECK
				NILADIC
					1 @_y ASSIGN
					_x + @_x SET;
				EXECUTE IF_YES;
		EXECUTE IF_YES;
EACH ' ' "This space is to escape the empty TOS printing ('.')!".
			
OFF.