)
cprint('} /* %s small */' % small)
-cprintraw('#define J_POPULATE \\')
-gen_diff(result_dirnscaled, (sh*sh*la, th*th*la))
-cprintraw('')
-
-#bad = q_orgcoords[0]
-#badd = diff(bad, la)
-
-#dbg('bad','badd')
+def gen_x_extract():
+ cprint('#define X_EXTRACT \\')
+ for ix in range(0, len(params)):
+ cprint('double %s = X(%d)' % (params[ix], ix))
+ cprintraw()
+
+def gen_f_populate():
+ cprint('#define F_POPULATE')
+ cassign(result_dirnscaled,'F','ftmp')
+ cprintraw('')
+
+def gen_j_populate():
+ cprint('#define J_POPULATE')
+ gen_diff(result_dirnscaled, (sh*sh*la, th*th*la))
+ cprintraw('')
+
+gen_x_extract()
+gen_f_populate()
+gen_j_populate()