#/*********************************************************** # lissaj.rb -- Lissajous (リサジュー) 図形 #***********************************************************/ require "plotter.rb" PI = 3.141592653589793 gr_on move(Math::cos(0), Math::sin(0)); # 初期ペン位置 for i in 1..360 t = (PI / 180.0) * i draw(Math::cos(3 * t), Math::sin(5 * t)) # ペン移動 end gr_off exit 0