RubyFrac_test_01.rb

require 'tk'

$point_A = [0,0]
$point_B = [500,500]
$rate = 1.5
$temp_a = 0
$temp_b = 0

def get_new_points()
    $point_A = []
    $temp_a = 0
    $temp_b = 0
    $temp_a = $point_B.fetch(1) / $rate
    $temp_b = $point_B.fetch(0) / $rate
    $point_A << $point_B.fetch(1) - $temp_a
    $point_A << $point_B.fetch(0) - $temp_b
end

canvas = TkCanvas.new(:width=>750, :height=>750).pack('fill' => 'both', 'expand'=>true)

rect_1 = TkcRectangle.new(canvas, $point_A, $point_B)

get_new_points()
rect_2 = TkcRectangle.new(canvas, $point_A, $point_B)

get_new_points()
rect_3 = TkcRectangle.new(canvas, $point_A, $point_B)

Tk.mainloop