proc generate_sin_cos_table { } {

set pi 3.14


puts ""
puts "######################### SIN ###########################"
puts ""
puts "proc my_sin { angle } { "
puts "   switch \$angle { "

for {set i 0}  {$i <= 360 } { incr i } {
	
	
	set rad_angle [expr { $pi / 180 * $i }]
	puts "	$i { return [ expr { sin($rad_angle) } ] }"
	
	
	
	#puts "-------------- COSINE -----------------"
	
	#puts "  "
	
	
	
}

puts "   } "
puts "}"



puts ""
puts "######################### COS ###########################"
puts ""
puts "proc my_cos { angle } { "
puts "   switch \$angle { "

for {set i 0}  {$i <= 360 } { incr i } {
		
	set rad_angle [expr { $pi / 180 * $i }]
	puts "	$i { return [ expr { cos($rad_angle) } ] }"
}

puts "   } "

puts "}"






puts "#############################################################"

}

generate_sin_cos_table