DIM PROJECTION(34, 30)
DIM BACKPROJECTION(32, 32)

'Input manually the values for the projections. The elements PROJECTION(n,z)
'correspond to the projection obtained at the angle n (measured in intervals
'of 5.25 degrees, and at the projection coordinate z (in intervals of 1 cm).


PROJECTION(0, 0) = 0
PROJECTION(0, 1) = 0
PROJECTION(0, 2) = 0
PROJECTION(0, 3) = 1
PROJECTION(0, 4) = .9956
PROJECTION(0, 5) = 0
PROJECTION(0, 6) = 0
PROJECTION(0, 7) = 0
PROJECTION(0, 8) = 0
PROJECTION(0, 9) = 0
PROJECTION(0, 10) = 0
PROJECTION(0, 11) = 0
PROJECTION(0, 12) = 0
PROJECTION(0, 13) = 0
PROJECTION(0, 14) = 0
PROJECTION(0, 15) = 0
PROJECTION(0, 16) = 0
PROJECTION(0, 17) = 0
PROJECTION(0, 18) = .9912
PROJECTION(0, 19) = .9912
PROJECTION(0, 20) = 1
PROJECTION(0, 21) = 0
PROJECTION(0, 22) = 0
PROJECTION(0, 23) = 0
PROJECTION(0, 24) = 0
PROJECTION(0, 25) = 0
PROJECTION(0, 26) = 0
PROJECTION(0, 27) = 0
PROJECTION(0, 28) = 0
PROJECTION(0, 29) = 0
PROJECTION(0, 30) = 0


PROJECTION(1, 0) = 0
PROJECTION(1, 1) = 0
PROJECTION(1, 2) = 0
PROJECTION(1, 3) = 1
PROJECTION(1, 4) = .9956
PROJECTION(1, 5) = .9823
PROJECTION(1, 6) = 0
PROJECTION(1, 7) = 0
PROJECTION(1, 8) = 0
PROJECTION(1, 9) = 0
PROJECTION(1, 10) = 0
PROJECTION(1, 11) = 0
PROJECTION(1, 12) = 0
PROJECTION(1, 13) = 0
PROJECTION(1, 14) = 0
PROJECTION(1, 15) = 0
PROJECTION(1, 16) = 0
PROJECTION(1, 17) = 0
PROJECTION(1, 18) = .9912
PROJECTION(1, 19) = .9956
PROJECTION(1, 20) = 1
PROJECTION(1, 21) = 0
PROJECTION(1, 22) = 0
PROJECTION(1, 23) = 0
PROJECTION(1, 24) = 0
PROJECTION(1, 25) = 0
PROJECTION(1, 26) = 0
PROJECTION(1, 27) = 0
PROJECTION(1, 28) = 0
PROJECTION(1, 29) = 0
PROJECTION(1, 30) = 0

PROJECTION(2, 0) = 0
PROJECTION(2, 1) = 0
PROJECTION(2, 2) = 0
PROJECTION(2, 3) = 0
PROJECTION(2, 4) = 1
PROJECTION(2, 5) = .9956
PROJECTION(2, 6) = 0
PROJECTION(2, 7) = 0
PROJECTION(2, 8) = 0
PROJECTION(2, 9) = 0
PROJECTION(2, 10) = 0
PROJECTION(2, 11) = 0
PROJECTION(2, 12) = 0
PROJECTION(2, 13) = 0
PROJECTION(2, 14) = 0
PROJECTION(2, 15) = 0
PROJECTION(2, 16) = 0
PROJECTION(2, 17) = 0
PROJECTION(2, 18) = .9956
PROJECTION(2, 19) = .9956
PROJECTION(2, 20) = 1
PROJECTION(2, 21) = 0
PROJECTION(2, 22) = 0
PROJECTION(2, 23) = 0
PROJECTION(2, 24) = 0
PROJECTION(2, 25) = 0
PROJECTION(2, 26) = 0
PROJECTION(2, 27) = 0
PROJECTION(2, 28) = 0
PROJECTION(2, 29) = 0
PROJECTION(2, 30) = 0

PROJECTION(3, 0) = 0
PROJECTION(3, 1) = 0
PROJECTION(3, 2) = 0
PROJECTION(3, 3) = 0
PROJECTION(3, 4) = 1
PROJECTION(3, 5) = 1
PROJECTION(3, 6) = .9912
PROJECTION(3, 7) = 0
PROJECTION(3, 8) = 0
PROJECTION(3, 9) = .9956
PROJECTION(3, 10) = 0
PROJECTION(3, 11) = 0
PROJECTION(3, 12) = 0
PROJECTION(3, 13) = 0
PROJECTION(3, 14) = 0
PROJECTION(3, 15) = 0
PROJECTION(3, 16) = 0
PROJECTION(3, 17) = .9542
PROJECTION(3, 18) = 1
PROJECTION(3, 19) = 1
PROJECTION(3, 20) = 1
PROJECTION(3, 21) = .9823
PROJECTION(3, 22) = 0
PROJECTION(3, 23) = 0
PROJECTION(3, 24) = 0
PROJECTION(3, 25) = 0
PROJECTION(3, 26) = 0
PROJECTION(3, 27) = 0
PROJECTION(3, 28) = 0
PROJECTION(3, 29) = 0
PROJECTION(3, 30) = 0

PROJECTION(4, 0) = 0
PROJECTION(4, 1) = 0
PROJECTION(4, 2) = 0
PROJECTION(4, 3) = 0
PROJECTION(4, 4) = 0
PROJECTION(4, 5) = 1
PROJECTION(4, 6) = .9956
PROJECTION(4, 7) = .4472
PROJECTION(4, 8) = 0
PROJECTION(4, 9) = 0
PROJECTION(4, 10) = 0
PROJECTION(4, 11) = 0
PROJECTION(4, 12) = 0
PROJECTION(4, 13) = 0
PROJECTION(4, 14) = 0
PROJECTION(4, 15) = 0
PROJECTION(4, 16) = 0
PROJECTION(4, 17) = 1
PROJECTION(4, 18) = 1
PROJECTION(4, 19) = 1
PROJECTION(4, 20) = 1
PROJECTION(4, 21) = .9912
PROJECTION(4, 22) = 0
PROJECTION(4, 23) = 0
PROJECTION(4, 24) = 0
PROJECTION(4, 25) = 0
PROJECTION(4, 26) = 0
PROJECTION(4, 27) = 0
PROJECTION(4, 28) = 0
PROJECTION(4, 29) = 0
PROJECTION(4, 30) = 0
           
PROJECTION(5, 0) = 0
PROJECTION(5, 1) = 0
PROJECTION(5, 2) = 0
PROJECTION(5, 3) = 0
PROJECTION(5, 4) = 0
PROJECTION(5, 5) = 0
PROJECTION(5, 6) = 1
PROJECTION(5, 7) = .9956
PROJECTION(5, 8) = 0
PROJECTION(5, 9) = 0
PROJECTION(5, 10) = 0
PROJECTION(5, 11) = 0
PROJECTION(5, 12) = 0
PROJECTION(5, 13) = 0
PROJECTION(5, 14) = 0
PROJECTION(5, 15) = 0
PROJECTION(5, 16) = 0
PROJECTION(5, 17) = 1
PROJECTION(5, 18) = 1
PROJECTION(5, 19) = 0
PROJECTION(5, 20) = 1
PROJECTION(5, 21) = .9912
PROJECTION(5, 22) = 0
PROJECTION(5, 23) = 0
PROJECTION(5, 24) = 0
PROJECTION(5, 25) = 0
PROJECTION(5, 26) = 0
PROJECTION(5, 27) = 0
PROJECTION(5, 28) = 0
PROJECTION(5, 29) = 0
PROJECTION(5, 30) = 0

PROJECTION(6, 0) = 0
PROJECTION(6, 1) = 0
PROJECTION(6, 2) = 0
PROJECTION(6, 3) = 0
PROJECTION(6, 4) = 0
PROJECTION(6, 5) = 0
PROJECTION(6, 6) = 0
PROJECTION(6, 7) = 1
PROJECTION(6, 8) = .991
PROJECTION(6, 9) = 0
PROJECTION(6, 10) = 0
PROJECTION(6, 11) = 0
PROJECTION(6, 12) = 0
PROJECTION(6, 13) = 0
PROJECTION(6, 14) = 0
PROJECTION(6, 15) = 0
PROJECTION(6, 16) = 1
PROJECTION(6, 17) = 1
PROJECTION(6, 18) = .9868
PROJECTION(6, 19) = 0
PROJECTION(6, 20) = .9956
PROJECTION(6, 21) = .9956
PROJECTION(6, 22) = 0
PROJECTION(6, 23) = 0
PROJECTION(6, 24) = 0
PROJECTION(6, 25) = 0
PROJECTION(6, 26) = 0
PROJECTION(6, 27) = 0
PROJECTION(6, 28) = 0
PROJECTION(6, 29) = 0
PROJECTION(6, 30) = 0

PROJECTION(7, 0) = 0
PROJECTION(7, 1) = 0
PROJECTION(7, 2) = 0
PROJECTION(7, 3) = 0
PROJECTION(7, 4) = 0
PROJECTION(7, 5) = 0
PROJECTION(7, 6) = 0
PROJECTION(7, 7) = 0
PROJECTION(7, 8) = .996
PROJECTION(7, 9) = .9956
PROJECTION(7, 10) = 0
PROJECTION(7, 11) = 0
PROJECTION(7, 12) = 0
PROJECTION(7, 13) = 0
PROJECTION(7, 14) = 0
PROJECTION(7, 15) = 0
PROJECTION(7, 16) = 1
PROJECTION(7, 17) = 1
PROJECTION(7, 18) = 0
PROJECTION(7, 19) = 0
PROJECTION(7, 20) = .9912
PROJECTION(7, 21) = .9956
PROJECTION(7, 22) = 0
PROJECTION(7, 23) = 0
PROJECTION(7, 24) = 0
PROJECTION(7, 25) = 0
PROJECTION(7, 26) = 0
PROJECTION(7, 27) = 0
PROJECTION(7, 28) = 0
PROJECTION(7, 29) = 0
PROJECTION(7, 30) = 0

PROJECTION(8, 0) = 0
PROJECTION(8, 1) = 0
PROJECTION(8, 2) = 0
PROJECTION(8, 3) = 0
PROJECTION(8, 4) = 0
PROJECTION(8, 5) = 0
PROJECTION(8, 6) = 0
PROJECTION(8, 7) = 0
PROJECTION(8, 8) = 0
PROJECTION(8, 9) = .9912
PROJECTION(8, 10) = .9912
PROJECTION(8, 11) = 0
PROJECTION(8, 12) = 0
PROJECTION(8, 13) = 0
PROJECTION(8, 14) = 0
PROJECTION(8, 15) = .9912
PROJECTION(8, 16) = 1
PROJECTION(8, 17) = 1
PROJECTION(8, 18) = 0
PROJECTION(8, 19) = 0
PROJECTION(8, 20) = 1
PROJECTION(8, 21) = .9956
PROJECTION(8, 22) = .9823
PROJECTION(8, 23) = 0
PROJECTION(8, 24) = 0
PROJECTION(8, 25) = 0
PROJECTION(8, 26) = 0
PROJECTION(8, 27) = 0
PROJECTION(8, 28) = 0
PROJECTION(8, 29) = 0
PROJECTION(8, 30) = 0

PROJECTION(9, 0) = 0
PROJECTION(9, 1) = 0
PROJECTION(9, 2) = 0
PROJECTION(9, 3) = 0
PROJECTION(9, 4) = 0
PROJECTION(9, 5) = 0
PROJECTION(9, 6) = 0
PROJECTION(9, 7) = 0
PROJECTION(9, 8) = 0
PROJECTION(9, 9) = .9912
PROJECTION(9, 10) = .9912
PROJECTION(9, 11) = 0
PROJECTION(9, 12) = 0
PROJECTION(9, 13) = 0
PROJECTION(9, 14) = 0
PROJECTION(9, 15) = .9956
PROJECTION(9, 16) = .9956
PROJECTION(9, 17) = 0
PROJECTION(9, 18) = 0
PROJECTION(9, 19) = 0
PROJECTION(9, 20) = 1
PROJECTION(9, 21) = .9956
PROJECTION(9, 22) = .9912
PROJECTION(9, 23) = 0
PROJECTION(9, 24) = 0
PROJECTION(9, 25) = 0
PROJECTION(9, 26) = 0
PROJECTION(9, 27) = 0
PROJECTION(9, 28) = 0
PROJECTION(9, 29) = 0
PROJECTION(9, 30) = 0

PROJECTION(10, 0) = 0
PROJECTION(10, 1) = 0
PROJECTION(10, 2) = 0
PROJECTION(10, 3) = 0
PROJECTION(10, 4) = 0
PROJECTION(10, 5) = 0
PROJECTION(10, 6) = 0
PROJECTION(10, 7) = 0
PROJECTION(10, 8) = 0
PROJECTION(10, 9) = 0
PROJECTION(10, 10) = .9956
PROJECTION(10, 11) = .9956
PROJECTION(10, 12) = .9912
PROJECTION(10, 13) = 0
PROJECTION(10, 14) = .9956
PROJECTION(10, 15) = .9956
PROJECTION(10, 16) = .9934
PROJECTION(10, 17) = 0
PROJECTION(10, 18) = 0
PROJECTION(10, 19) = 0
PROJECTION(10, 20) = 1
PROJECTION(10, 21) = .9956
PROJECTION(10, 22) = .9912
PROJECTION(10, 23) = 0
PROJECTION(10, 24) = 0
PROJECTION(10, 25) = 0
PROJECTION(10, 26) = 0
PROJECTION(10, 27) = 0
PROJECTION(10, 28) = 0
PROJECTION(10, 29) = 0
PROJECTION(10, 30) = 0

PROJECTION(11, 0) = 0
PROJECTION(11, 1) = 0
PROJECTION(11, 2) = 0
PROJECTION(11, 3) = 0
PROJECTION(11, 4) = 0
PROJECTION(11, 5) = 0
PROJECTION(11, 6) = 0
PROJECTION(11, 7) = 0
PROJECTION(11, 8) = 0
PROJECTION(11, 9) = 0
PROJECTION(11, 10) = 0
PROJECTION(11, 11) = 1
PROJECTION(11, 12) = .9956
PROJECTION(11, 13) = .9912
PROJECTION(11, 14) = 1
PROJECTION(11, 15) = .9934
PROJECTION(11, 16) = 0
PROJECTION(11, 17) = 0
PROJECTION(11, 18) = 0
PROJECTION(11, 19) = 0
PROJECTION(11, 20) = .9956
PROJECTION(11, 21) = .9956
PROJECTION(11, 22) = .9912
PROJECTION(11, 23) = 0
PROJECTION(11, 24) = 0
PROJECTION(11, 25) = 0
PROJECTION(11, 26) = 0
PROJECTION(11, 27) = 0
PROJECTION(11, 28) = 0
PROJECTION(11, 29) = 0
PROJECTION(11, 30) = 0

PROJECTION(12, 0) = 0
PROJECTION(12, 1) = 0
PROJECTION(12, 2) = 0
PROJECTION(12, 3) = 0
PROJECTION(12, 4) = 0
PROJECTION(12, 5) = 0
PROJECTION(12, 6) = 0
PROJECTION(12, 7) = 0
PROJECTION(12, 8) = 0
PROJECTION(12, 9) = 0
PROJECTION(12, 10) = 0
PROJECTION(12, 11) = 0
PROJECTION(12, 12) = .9912
PROJECTION(12, 13) = .9956
PROJECTION(12, 14) = 1
PROJECTION(12, 15) = .9912
PROJECTION(12, 16) = 0
PROJECTION(12, 17) = 0
PROJECTION(12, 18) = 0
PROJECTION(12, 19) = 0
PROJECTION(12, 20) = .9912
PROJECTION(12, 21) = .9956
PROJECTION(12, 22) = .9868
PROJECTION(12, 23) = 0
PROJECTION(12, 24) = 0
PROJECTION(12, 25) = 0
PROJECTION(12, 26) = 0
PROJECTION(12, 27) = 0
PROJECTION(12, 28) = 0
PROJECTION(12, 29) = 0
PROJECTION(12, 30) = 0

PROJECTION(13, 0) = 0
PROJECTION(13, 1) = 0
PROJECTION(13, 2) = 0
PROJECTION(13, 3) = 0
PROJECTION(13, 4) = 0
PROJECTION(13, 5) = 0
PROJECTION(13, 6) = 0
PROJECTION(13, 7) = 0
PROJECTION(13, 8) = 0
PROJECTION(13, 9) = 0
PROJECTION(13, 10) = 0
PROJECTION(13, 11) = 0
PROJECTION(13, 12) = 0
PROJECTION(13, 13) = .9956
PROJECTION(13, 14) = 1
PROJECTION(13, 15) = 1
PROJECTION(13, 16) = 0
PROJECTION(13, 17) = 0
PROJECTION(13, 18) = 0
PROJECTION(13, 19) = 1
PROJECTION(13, 20) = .9956
PROJECTION(13, 21) = 0
PROJECTION(13, 22) = 0
PROJECTION(13, 23) = 0
PROJECTION(13, 24) = 0
PROJECTION(13, 25) = 0
PROJECTION(13, 26) = 0
PROJECTION(13, 27) = 0
PROJECTION(13, 28) = 0
PROJECTION(13, 29) = 0
PROJECTION(13, 30) = 0

PROJECTION(14, 0) = 0
PROJECTION(14, 1) = 0
PROJECTION(14, 2) = 0
PROJECTION(14, 3) = 0
PROJECTION(14, 4) = 0
PROJECTION(14, 5) = .9754
PROJECTION(14, 6) = .4698
PROJECTION(14, 7) = 0
PROJECTION(14, 8) = 0
PROJECTION(14, 9) = 0
PROJECTION(14, 10) = 0
PROJECTION(14, 11) = 0
PROJECTION(14, 12) = 1
PROJECTION(14, 13) = 1
PROJECTION(14, 14) = 1
PROJECTION(14, 15) = 1
PROJECTION(14, 16) = .9912
PROJECTION(14, 17) = 0
PROJECTION(14, 18) = 0
PROJECTION(14, 19) = 0
PROJECTION(14, 20) = 1
PROJECTION(14, 21) = .9956
PROJECTION(14, 22) = 0
PROJECTION(14, 23) = 0
PROJECTION(14, 24) = 0
PROJECTION(14, 25) = 0
PROJECTION(14, 26) = 0
PROJECTION(14, 27) = 0
PROJECTION(14, 28) = 0
PROJECTION(14, 29) = 0
PROJECTION(14, 30) = 0
            
PROJECTION(15, 0) = 0
PROJECTION(15, 1) = 0
PROJECTION(15, 2) = 0
PROJECTION(15, 3) = 0
PROJECTION(15, 4) = 0
PROJECTION(15, 5) = 0
PROJECTION(15, 6) = 0
PROJECTION(15, 7) = 0
PROJECTION(15, 8) = 0
PROJECTION(15, 9) = 0
PROJECTION(15, 10) = 0
PROJECTION(15, 11) = 0
PROJECTION(15, 12) = 1
PROJECTION(15, 13) = 1
PROJECTION(15, 14) = 0
PROJECTION(15, 15) = 0
PROJECTION(15, 16) = .9956
PROJECTION(15, 17) = .9912
PROJECTION(15, 18) = 0
PROJECTION(15, 19) = .9546
PROJECTION(15, 20) = 1
PROJECTION(15, 21) = 1
PROJECTION(15, 22) = 0
PROJECTION(15, 23) = 0
PROJECTION(15, 24) = 0
PROJECTION(15, 25) = 0
PROJECTION(15, 26) = 0
PROJECTION(15, 27) = 0
PROJECTION(15, 28) = 0
PROJECTION(15, 29) = 0
PROJECTION(15, 30) = 0

PROJECTION(16, 0) = 0
PROJECTION(16, 1) = 0
PROJECTION(16, 2) = 0
PROJECTION(16, 3) = 0
PROJECTION(16, 4) = 0
PROJECTION(16, 5) = 0
PROJECTION(16, 6) = 0
PROJECTION(16, 7) = 0
PROJECTION(16, 8) = 0
PROJECTION(16, 9) = 0
PROJECTION(16, 10) = 0
PROJECTION(16, 11) = .9912
PROJECTION(16, 12) = 1
PROJECTION(16, 13) = .9777
PROJECTION(16, 14) = 0
PROJECTION(16, 15) = 0
PROJECTION(16, 16) = 0
PROJECTION(16, 17) = .9956
PROJECTION(16, 18) = 1
PROJECTION(16, 19) = 1
PROJECTION(16, 20) = 1
PROJECTION(16, 21) = 1
PROJECTION(16, 22) = 0
PROJECTION(16, 23) = 0
PROJECTION(16, 24) = 0
PROJECTION(16, 25) = 0
PROJECTION(16, 26) = 0
PROJECTION(16, 27) = 0
PROJECTION(16, 28) = 0
PROJECTION(16, 29) = 0
PROJECTION(16, 30) = 0
            
PROJECTION(17, 0) = 0
PROJECTION(17, 1) = 0
PROJECTION(17, 2) = 0
PROJECTION(17, 3) = 0
PROJECTION(17, 4) = 0
PROJECTION(17, 5) = 0
PROJECTION(17, 6) = 0
PROJECTION(17, 7) = 0
PROJECTION(17, 8) = 0
PROJECTION(17, 9) = 0
PROJECTION(17, 10) = 0
PROJECTION(17, 11) = .9912
PROJECTION(17, 12) = 1
PROJECTION(17, 13) = 0
PROJECTION(17, 14) = 0
PROJECTION(17, 15) = 0
PROJECTION(17, 16) = 0
PROJECTION(17, 17) = 0
PROJECTION(17, 18) = 1
PROJECTION(17, 19) = .9956
PROJECTION(17, 20) = 1
PROJECTION(17, 21) = .9638
PROJECTION(17, 22) = 0
PROJECTION(17, 23) = 0
PROJECTION(17, 24) = 0
PROJECTION(17, 25) = 0
PROJECTION(17, 26) = 0
PROJECTION(17, 27) = 0
PROJECTION(17, 28) = 0
PROJECTION(17, 29) = 0
PROJECTION(17, 30) = 0

PROJECTION(18, 0) = 0
PROJECTION(18, 1) = 0
PROJECTION(18, 2) = 0
PROJECTION(18, 3) = 0
PROJECTION(18, 4) = 0
PROJECTION(18, 5) = 0
PROJECTION(18, 6) = 0
PROJECTION(18, 7) = 0
PROJECTION(18, 8) = 0
PROJECTION(18, 9) = 0
PROJECTION(18, 10) = 0
PROJECTION(18, 11) = .9956
PROJECTION(18, 12) = .9956
PROJECTION(18, 13) = 0
PROJECTION(18, 14) = 0
PROJECTION(18, 15) = 0
PROJECTION(18, 16) = 0
PROJECTION(18, 17) = 0
PROJECTION(18, 18) = 0
PROJECTION(18, 19) = 1
PROJECTION(18, 20) = 1
PROJECTION(18, 21) = 0
PROJECTION(18, 22) = 0
PROJECTION(18, 23) = 0
PROJECTION(18, 24) = 0
PROJECTION(18, 25) = 0
PROJECTION(18, 26) = 0
PROJECTION(18, 27) = 0
PROJECTION(18, 28) = 0
PROJECTION(18, 29) = 0
PROJECTION(18, 30) = 0
            
PROJECTION(19, 0) = 0
PROJECTION(19, 1) = 0
PROJECTION(19, 2) = 0
PROJECTION(19, 3) = 0
PROJECTION(19, 4) = 0
PROJECTION(19, 5) = 0
PROJECTION(19, 6) = 0
PROJECTION(19, 7) = 0
PROJECTION(19, 8) = 0
PROJECTION(19, 9) = 0
PROJECTION(19, 10) = .9912
PROJECTION(19, 11) = .9956
PROJECTION(19, 12) = .9731
PROJECTION(19, 13) = 0
PROJECTION(19, 14) = 0
PROJECTION(19, 15) = 0
PROJECTION(19, 16) = 0
PROJECTION(19, 17) = 0
PROJECTION(19, 18) = .9912
PROJECTION(19, 19) = 1
PROJECTION(19, 20) = 1
PROJECTION(19, 21) = .9912
PROJECTION(19, 22) = .989
PROJECTION(19, 23) = 0
PROJECTION(19, 24) = 0
PROJECTION(19, 25) = 0
PROJECTION(19, 26) = 0
PROJECTION(19, 27) = 0
PROJECTION(19, 28) = 0
PROJECTION(19, 29) = 0
PROJECTION(19, 30) = 0

PROJECTION(20, 0) = 0
PROJECTION(20, 1) = 0
PROJECTION(20, 2) = 0
PROJECTION(20, 3) = 0
PROJECTION(20, 4) = 0
PROJECTION(20, 5) = 0
PROJECTION(20, 6) = 0
PROJECTION(20, 7) = 0
PROJECTION(20, 8) = 0
PROJECTION(20, 9) = 0
PROJECTION(20, 10) = .9956
PROJECTION(20, 11) = .9956
PROJECTION(20, 12) = 0
PROJECTION(20, 13) = 0
PROJECTION(20, 14) = 0
PROJECTION(20, 15) = 0
PROJECTION(20, 16) = 0
PROJECTION(20, 17) = 0
PROJECTION(20, 18) = .9956
PROJECTION(20, 19) = 1
PROJECTION(20, 20) = 0
PROJECTION(20, 21) = .9956
PROJECTION(20, 22) = 1
PROJECTION(20, 23) = .9912
PROJECTION(20, 24) = 0
PROJECTION(20, 25) = 0
PROJECTION(20, 26) = 0
PROJECTION(20, 27) = 0
PROJECTION(20, 28) = 0
PROJECTION(20, 29) = 0
PROJECTION(20, 30) = 0

PROJECTION(21, 0) = 0
PROJECTION(21, 1) = 0
PROJECTION(21, 2) = 0
PROJECTION(21, 3) = 0
PROJECTION(21, 4) = 0
PROJECTION(21, 5) = 0
PROJECTION(21, 6) = 0
PROJECTION(21, 7) = 0
PROJECTION(21, 8) = 0
PROJECTION(21, 9) = 0
PROJECTION(21, 10) = .9956
PROJECTION(21, 11) = 1
PROJECTION(21, 12) = 0
PROJECTION(21, 13) = 0
PROJECTION(21, 14) = 0
PROJECTION(21, 15) = 0
PROJECTION(21, 16) = 0
PROJECTION(21, 17) = .9823
PROJECTION(21, 18) = 1
PROJECTION(21, 19) = 1
PROJECTION(21, 20) = 0
PROJECTION(21, 21) = 0
PROJECTION(21, 22) = 1
PROJECTION(21, 23) = .9956
PROJECTION(21, 24) = .9912
PROJECTION(21, 25) = 0
PROJECTION(21, 26) = 0
PROJECTION(21, 27) = 0
PROJECTION(21, 28) = 0
PROJECTION(21, 29) = 0
PROJECTION(21, 30) = 0

PROJECTION(22, 0) = 0
PROJECTION(22, 1) = 0
PROJECTION(22, 2) = 0
PROJECTION(22, 3) = 0
PROJECTION(22, 4) = 0
PROJECTION(22, 5) = 0
PROJECTION(22, 6) = 0
PROJECTION(22, 7) = 0
PROJECTION(22, 8) = 0
PROJECTION(22, 9) = .9731
PROJECTION(22, 10) = .9956
PROJECTION(22, 11) = .9912
PROJECTION(22, 12) = 0
PROJECTION(22, 13) = 0
PROJECTION(22, 14) = 0
PROJECTION(22, 15) = 0
PROJECTION(22, 16) = 0
PROJECTION(22, 17) = .9912
PROJECTION(22, 18) = 1
PROJECTION(22, 19) = 0
PROJECTION(22, 20) = 0
PROJECTION(22, 21) = 0
PROJECTION(22, 22) = 0
PROJECTION(22, 23) = 1
PROJECTION(22, 24) = .9912
PROJECTION(22, 25) = .9912
PROJECTION(22, 26) = 0
PROJECTION(22, 27) = 0
PROJECTION(22, 28) = 0
PROJECTION(22, 29) = 0
PROJECTION(22, 30) = 0

PROJECTION(23, 0) = 0
PROJECTION(23, 1) = 0
PROJECTION(23, 2) = 0
PROJECTION(23, 3) = 0
PROJECTION(23, 4) = 0
PROJECTION(23, 5) = 0
PROJECTION(23, 6) = 0
PROJECTION(23, 7) = 0
PROJECTION(23, 8) = 0
PROJECTION(23, 9) = .9956
PROJECTION(23, 10) = 1
PROJECTION(23, 11) = .989
PROJECTION(23, 12) = 0
PROJECTION(23, 13) = 0
PROJECTION(23, 14) = 0
PROJECTION(23, 15) = 0
PROJECTION(23, 16) = .5051
PROJECTION(23, 17) = .9956
PROJECTION(23, 18) = 1
PROJECTION(23, 19) = 0
PROJECTION(23, 20) = 0
PROJECTION(23, 21) = 0
PROJECTION(23, 22) = 0
PROJECTION(23, 23) = 0
PROJECTION(23, 24) = .9956
PROJECTION(23, 25) = .9912
PROJECTION(23, 26) = 0
PROJECTION(23, 27) = 0
PROJECTION(23, 28) = 0
PROJECTION(23, 29) = 0
PROJECTION(23, 30) = 0
            
PROJECTION(24, 0) = 0
PROJECTION(24, 1) = 0
PROJECTION(24, 2) = 0
PROJECTION(24, 3) = 0
PROJECTION(24, 4) = 0
PROJECTION(24, 5) = 0
PROJECTION(24, 6) = 0
PROJECTION(24, 7) = 0
PROJECTION(24, 8) = 0
PROJECTION(24, 9) = 1
PROJECTION(24, 10) = 1
PROJECTION(24, 11) = .9912
PROJECTION(24, 12) = 0
PROJECTION(24, 13) = 0
PROJECTION(24, 14) = 0
PROJECTION(24, 15) = 0
PROJECTION(24, 16) = .9956
PROJECTION(24, 17) = 1
PROJECTION(24, 18) = 1
PROJECTION(24, 19) = 0
PROJECTION(24, 20) = 0
PROJECTION(24, 21) = 0
PROJECTION(24, 22) = 0
PROJECTION(24, 23) = 0
PROJECTION(24, 24) = 0
PROJECTION(24, 25) = .9956
PROJECTION(24, 26) = .9912
PROJECTION(24, 27) = 0
PROJECTION(24, 28) = 0
PROJECTION(24, 29) = 0
PROJECTION(24, 30) = 0

PROJECTION(25, 0) = 0
PROJECTION(25, 1) = 0
PROJECTION(25, 2) = 0
PROJECTION(25, 3) = 0
PROJECTION(25, 4) = 0
PROJECTION(25, 5) = 0
PROJECTION(25, 6) = 0
PROJECTION(25, 7) = 0
PROJECTION(25, 8) = 0
PROJECTION(25, 9) = 1
PROJECTION(25, 10) = 1
PROJECTION(25, 11) = .9912
PROJECTION(25, 12) = 0
PROJECTION(25, 13) = 0
PROJECTION(25, 14) = 0
PROJECTION(25, 15) = .9823
PROJECTION(25, 16) = .9956
PROJECTION(25, 17) = 1
PROJECTION(25, 18) = 0
PROJECTION(25, 19) = 0
PROJECTION(25, 20) = 0
PROJECTION(25, 21) = 0
PROJECTION(25, 22) = 0
PROJECTION(25, 23) = 0
PROJECTION(25, 24) = 0
PROJECTION(25, 25) = 1
PROJECTION(25, 26) = .9956
PROJECTION(25, 27) = .9912
PROJECTION(25, 28) = 0
PROJECTION(25, 29) = 0
PROJECTION(25, 30) = 0
            
PROJECTION(26, 0) = 0
PROJECTION(26, 1) = 0
PROJECTION(26, 2) = 0
PROJECTION(26, 3) = 0
PROJECTION(26, 4) = 0
PROJECTION(26, 5) = 0
PROJECTION(26, 6) = 0
PROJECTION(26, 7) = 0
PROJECTION(26, 8) = 0
PROJECTION(26, 9) = 1
PROJECTION(26, 10) = 1
PROJECTION(26, 11) = .9956
PROJECTION(26, 12) = .9934
PROJECTION(26, 13) = 0
PROJECTION(26, 14) = 0
PROJECTION(26, 15) = .9912
PROJECTION(26, 16) = 1
PROJECTION(26, 17) = .9912
PROJECTION(26, 18) = 0
PROJECTION(26, 19) = 0
PROJECTION(26, 20) = 0
PROJECTION(26, 21) = 0
PROJECTION(26, 22) = 0
PROJECTION(26, 23) = 0
PROJECTION(26, 24) = 0
PROJECTION(26, 25) = 0
PROJECTION(26, 26) = 1
PROJECTION(26, 27) = .9956
PROJECTION(26, 28) = .9823
PROJECTION(26, 29) = 0
PROJECTION(26, 30) = 0

PROJECTION(27, 0) = 0
PROJECTION(27, 1) = 0
PROJECTION(27, 2) = 0
PROJECTION(27, 3) = 0
PROJECTION(27, 4) = 0
PROJECTION(27, 5) = 0
PROJECTION(27, 6) = 0
PROJECTION(27, 7) = 0
PROJECTION(27, 8) = 0
PROJECTION(27, 9) = 1
PROJECTION(27, 10) = 1
PROJECTION(27, 11) = .9956
PROJECTION(27, 12) = 0
PROJECTION(27, 13) = 0
PROJECTION(27, 14) = .9777
PROJECTION(27, 15) = .9956
PROJECTION(27, 16) = 1
PROJECTION(27, 17) = 0
PROJECTION(27, 18) = 0
PROJECTION(27, 19) = 0
PROJECTION(27, 20) = 0
PROJECTION(27, 21) = 0
PROJECTION(27, 22) = 0
PROJECTION(27, 23) = 0
PROJECTION(27, 24) = 0
PROJECTION(27, 25) = 0
PROJECTION(27, 26) = 1
PROJECTION(27, 27) = 1
PROJECTION(27, 28) = .9956
PROJECTION(27, 29) = 0
PROJECTION(27, 30) = 0

PROJECTION(28, 0) = 0
PROJECTION(28, 1) = 0
PROJECTION(28, 2) = 0
PROJECTION(28, 3) = 0
PROJECTION(28, 4) = 0
PROJECTION(28, 5) = 0
PROJECTION(28, 6) = 0
PROJECTION(28, 7) = 0
PROJECTION(28, 8) = 0
PROJECTION(28, 9) = 1
PROJECTION(28, 10) = 1
PROJECTION(28, 11) = .9956
PROJECTION(28, 12) = 0
PROJECTION(28, 13) = 0
PROJECTION(28, 14) = .9912
PROJECTION(28, 15) = 1
PROJECTION(28, 16) = 1
PROJECTION(28, 17) = 0
PROJECTION(28, 18) = 0
PROJECTION(28, 19) = 0
PROJECTION(28, 20) = 0
PROJECTION(28, 21) = 0
PROJECTION(28, 22) = 0
PROJECTION(28, 23) = 0
PROJECTION(28, 24) = 0
PROJECTION(28, 25) = 0
PROJECTION(28, 26) = 0
PROJECTION(28, 27) = 1
PROJECTION(28, 28) = 1
PROJECTION(28, 29) = .9956
PROJECTION(28, 30) = 0

PROJECTION(29, 0) = 0
PROJECTION(29, 1) = 0
PROJECTION(29, 2) = 0
PROJECTION(29, 3) = 0
PROJECTION(29, 4) = 0
PROJECTION(29, 5) = 0
PROJECTION(29, 6) = 0
PROJECTION(29, 7) = 0
PROJECTION(29, 8) = 0
PROJECTION(29, 9) = 1
PROJECTION(29, 10) = 1
PROJECTION(29, 11) = 1
PROJECTION(29, 12) = 0
PROJECTION(29, 13) = .9912
PROJECTION(29, 14) = .9912
PROJECTION(29, 15) = 1
PROJECTION(29, 16) = 0
PROJECTION(29, 17) = 0
PROJECTION(29, 18) = 0
PROJECTION(29, 19) = 0
PROJECTION(29, 20) = 0
PROJECTION(29, 21) = 0
PROJECTION(29, 22) = 0
PROJECTION(29, 23) = 0
PROJECTION(29, 24) = 0
PROJECTION(29, 25) = 0
PROJECTION(29, 26) = 0
PROJECTION(29, 27) = 1
PROJECTION(29, 28) = 1
PROJECTION(29, 29) = .9912
PROJECTION(29, 30) = 0
            
PROJECTION(30, 0) = 0
PROJECTION(30, 1) = 0
PROJECTION(30, 2) = 0
PROJECTION(30, 3) = 0
PROJECTION(30, 4) = 0
PROJECTION(30, 5) = 0
PROJECTION(30, 6) = 0
PROJECTION(30, 7) = 0
PROJECTION(30, 8) = 0
PROJECTION(30, 9) = .9085
PROJECTION(30, 10) = 1
PROJECTION(30, 11) = 1
PROJECTION(30, 12) = .9912
PROJECTION(30, 13) = .9956
PROJECTION(30, 14) = 1
PROJECTION(30, 15) = .9912
PROJECTION(30, 16) = 0
PROJECTION(30, 17) = 0
PROJECTION(30, 18) = 0
PROJECTION(30, 19) = 0
PROJECTION(30, 20) = 0
PROJECTION(30, 21) = 0
PROJECTION(30, 22) = 0
PROJECTION(30, 23) = 0
PROJECTION(30, 24) = 0
PROJECTION(30, 25) = 0
PROJECTION(30, 26) = 0
PROJECTION(30, 27) = 1
PROJECTION(30, 28) = 1
PROJECTION(30, 29) = .9956
PROJECTION(30, 30) = 0

PROJECTION(31, 0) = 0
PROJECTION(31, 1) = 0
PROJECTION(31, 2) = 0
PROJECTION(31, 3) = 0
PROJECTION(31, 4) = 0
PROJECTION(31, 5) = 0
PROJECTION(31, 6) = 0
PROJECTION(31, 7) = 0
PROJECTION(31, 8) = 0
PROJECTION(31, 9) = 0
PROJECTION(31, 10) = 1
PROJECTION(31, 11) = 1
PROJECTION(31, 12) = .9912
PROJECTION(31, 13) = .9956
PROJECTION(31, 14) = 1
PROJECTION(31, 15) = 0
PROJECTION(31, 16) = 0
PROJECTION(31, 17) = 0
PROJECTION(31, 18) = 0
PROJECTION(31, 19) = 0
PROJECTION(31, 20) = 0
PROJECTION(31, 21) = 0
PROJECTION(31, 22) = 0
PROJECTION(31, 23) = 0
PROJECTION(31, 24) = 0
PROJECTION(31, 25) = 0
PROJECTION(31, 26) = 0
PROJECTION(31, 27) = 1
PROJECTION(31, 28) = 1
PROJECTION(31, 29) = 1
PROJECTION(31, 30) = 0

PROJECTION(32, 0) = 0
PROJECTION(32, 1) = 0
PROJECTION(32, 2) = 0
PROJECTION(32, 3) = 0
PROJECTION(32, 4) = 0
PROJECTION(32, 5) = 0
PROJECTION(32, 6) = 0
PROJECTION(32, 7) = 0
PROJECTION(32, 8) = 0
PROJECTION(32, 9) = 0
PROJECTION(32, 10) = 1
PROJECTION(32, 11) = 1
PROJECTION(32, 12) = 0
PROJECTION(32, 13) = .9956
PROJECTION(32, 14) = 1
PROJECTION(32, 15) = .6721
PROJECTION(32, 16) = 0
PROJECTION(32, 17) = 0
PROJECTION(32, 18) = 0
PROJECTION(32, 19) = 0
PROJECTION(32, 20) = 0
PROJECTION(32, 21) = 0
PROJECTION(32, 22) = 0
PROJECTION(32, 23) = 0
PROJECTION(32, 24) = 0
PROJECTION(32, 25) = 0
PROJECTION(32, 26) = 0
PROJECTION(32, 27) = 1
PROJECTION(32, 28) = 1
PROJECTION(32, 29) = 1
PROJECTION(32, 30) = 0

PROJECTION(33, 0) = 0
PROJECTION(33, 1) = 0
PROJECTION(33, 2) = 0
PROJECTION(33, 3) = 0
PROJECTION(33, 4) = 0
PROJECTION(33, 5) = 0
PROJECTION(33, 6) = 0
PROJECTION(33, 7) = 0
PROJECTION(33, 8) = 0
PROJECTION(33, 9) = 0
PROJECTION(33, 10) = 1
PROJECTION(33, 11) = 1
PROJECTION(33, 12) = 1
PROJECTION(33, 13) = 1
PROJECTION(33, 14) = 0
PROJECTION(33, 15) = 0
PROJECTION(33, 16) = 0
PROJECTION(33, 17) = 0
PROJECTION(33, 18) = 0
PROJECTION(33, 19) = 0
PROJECTION(33, 20) = 0
PROJECTION(33, 21) = 0
PROJECTION(33, 22) = 0
PROJECTION(33, 23) = 0
PROJECTION(33, 24) = 0
PROJECTION(33, 25) = 0
PROJECTION(33, 26) = 0
PROJECTION(33, 27) = 1
PROJECTION(33, 28) = 1
PROJECTION(33, 29) = 1
PROJECTION(33, 30) = 0

PROJECTION(34, 0) = 0
PROJECTION(34, 1) = 0
PROJECTION(34, 2) = 0
PROJECTION(34, 3) = 0
PROJECTION(34, 4) = 0
PROJECTION(34, 5) = 0
PROJECTION(34, 6) = 0
PROJECTION(34, 7) = 0
PROJECTION(34, 8) = 0
PROJECTION(34, 9) = 0
PROJECTION(34, 10) = .9868
PROJECTION(34, 11) = 1
PROJECTION(34, 12) = 1
PROJECTION(34, 13) = 1
PROJECTION(34, 14) = 0
PROJECTION(34, 15) = 0
PROJECTION(34, 16) = 0
PROJECTION(34, 17) = 0
PROJECTION(34, 18) = 0
PROJECTION(34, 19) = 0
PROJECTION(34, 20) = 0
PROJECTION(34, 21) = 0
PROJECTION(34, 22) = 0
PROJECTION(34, 23) = 0
PROJECTION(34, 24) = 0
PROJECTION(34, 25) = 0
PROJECTION(34, 26) = 0
PROJECTION(34, 27) = 1
PROJECTION(34, 28) = 1
PROJECTION(34, 29) = 1
PROJECTION(34, 30) = 0

FOR X1 = -15.5 TO 15.5
FOR Y1 = -15.5 TO 15.5
FOR N = 0 TO 17

IF N = 0 THEN THETA = 0
IF N = 1 THEN THETA = 5.25
IF N = 2 THEN THETA = 10.5
IF N = 3 THEN THETA = 15.75
IF N = 4 THEN THETA = 21
IF N = 5 THEN THETA = 26.25
IF N = 6 THEN THETA = 31.5
IF N = 7 THEN THETA = 36.75
IF N = 8 THEN THETA = 42
IF N = 9 THEN THETA = 47.25
IF N = 10 THEN THETA = 52.5
IF N = 11 THEN THETA = 57.75
IF N = 12 THEN THETA = 63
IF N = 13 THEN THETA = 68.25
IF N = 14 THEN THETA = 73.5
IF N = 15 THEN THETA = 78.75
IF N = 16 THEN THETA = 84
IF N = 17 THEN THETA = 89.25


FOR PROJECTIONINDEX = 0 TO 30
S = PROJECTIONINDEX - 15.5
D = Y1 * COS(THETA / 57.29578) - S - SIN(THETA / 57.29578) * X1
XINDEX = X1 + 15.5
YINDEX = Y1 + 15.5
IF ABS(D) < .5 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) + PROJECTION(N, PROJECTIONINDEX)
'Skip the following three lines for a simple backprojection
IF ABS(D) >= .5 AND ABS(D) < 1 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) + .1 * PROJECTION(N, PROJECTIONINDEX)
IF ABS(D) >= 1 AND ABS(D) < 1.5 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) - .5 * PROJECTION(N, PROJECTIONINDEX)
IF ABS(D) >= 1.5 AND ABS(D) < 2 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) - .4 * PROJECTION(N, PROJECTIONINDEX)

NEXT PROJECTIONINDEX
NEXT N

FOR N = 18 TO 34
IF N = 18 THEN THETA = 94.5
IF N = 19 THEN THETA = 99.75
IF N = 20 THEN THETA = 105
IF N = 21 THEN THETA = 110.25
IF N = 22 THEN THETA = 115.5
IF N = 23 THEN THETA = 120.75
IF N = 24 THEN THETA = 126
IF N = 25 THEN THETA = 131.25
IF N = 26 THEN THETA = 136.5
IF N = 27 THEN THETA = 141.75
IF N = 28 THEN THETA = 147
IF N = 29 THEN THETA = 152.25
IF N = 30 THEN THETA = 157.5
IF N = 31 THEN THETA = 162.75
IF N = 32 THEN THETA = 168
IF N = 33 THEN THETA = 173.25
IF N = 34 THEN THETA = 178.5
           
FOR PROJECTIONINDEX = 0 TO 30
S = PROJECTIONINDEX - 15.5
DD = -Y1 * COS(THETA / 57.29578) + S + SIN(THETA / 57.29578) * X1
XINDEX = X1 + 15.5
YINDEX = Y1 + 15.5
IF ABS(DD) < .5 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) + PROJECTION(N, PROJECTIONINDEX)
'Skip the following 3 lines for a simple backprojection
IF ABS(DD) >= .5 AND ABS(DD) < 1 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) + .1 * PROJECTION(N, PROJECTIONINDEX)
IF ABS(DD) >= 1 AND ABS(DD) < 1.5 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) - .5 * PROJECTION(N, PROJECTIONINDEX)
IF ABS(DD) >= 1.5 AND ABS(DD) < 2 THEN BACKPROJECTION(XINDEX, YINDEX) = BACKPROJECTION(XINDEX, YINDEX) - .4 * PROJECTION(N, PROJECTIONINDEX)

NEXT PROJECTIONINDEX
NEXT N

NEXT Y1
NEXT X1


OPEN "3rodtab.txt" FOR OUTPUT AS #1
FOR y = 0 TO 31
FOR x = 0 TO 31
PRINT #1, BACKPROJECTION(x, y);
NEXT x
PRINT #1, ""
NEXT y
CLOSE #1