sgl 0.4.0 → 1.0.0

data/examples/sample11.rb

@@ -1,22 +1,22 @@
-require "sgl"
-
-def setup
-  window -200, -200, 200, 200
-  background 100
-  $x = 0
-  $y = 0
-end
- 
-def display
-  x = mouseX
-  y = mouseY
-  speed = 20.0
-  vx = (x - $x)/speed
-  vy = (y - $y)/speed
-  $x = $x + vx
-  $y = $y + vy
-  color 100, 0, 0
-  circle($x, $y, 50, POLYGON)
-end
-
-mainloop
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $x = 0
+  $y = 0
+end
+ 
+def display
+  x = mouseX
+  y = mouseY
+  speed = 20.0
+  vx = (x - $x)/speed
+  vy = (y - $y)/speed
+  $x = $x + vx
+  $y = $y + vy
+  color 100, 0, 0
+  circle($x, $y, 50, POLYGON)
+end
+
+mainloop

data/examples/sample11a.rb

@@ -1,33 +1,33 @@
-require "sgl"
-
-def setup
-  window -200, -200, 200, 200
-  background 0
-  $x1 = 0
-  $y1 = 0
-  $x2 = 0
-  $y2 = 0
-end
- 
-def display
-  x = mouseX
-  y = mouseY
-
-  speed = 20.0
-  vx = (x - $x1)/speed
-  vy = (y - $y1)/speed
-  $x1 = $x1 + vx
-  $y1 = $y1 + vy
-  color (200+$x1)/4, 0, 0
-  circle($x1, $y1, 50, POLYGON)  ## polygon�͓h��‚Ԃ�
-  
-  speed = 10.0
-  vx = (x - $x2)/speed
-  vy = (y - $y2)/speed
-  $x2 = $x2 + vx
-  $y2 = $y2 + vy
-  color 0,(200+$y2)/4,0
-  circle($x2+30,$y2+30,80)
-end
- 
-mainloop
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 0
+  $x1 = 0
+  $y1 = 0
+  $x2 = 0
+  $y2 = 0
+end
+ 
+def display
+  x = mouseX
+  y = mouseY
+
+  speed = 20.0
+  vx = (x - $x1)/speed
+  vy = (y - $y1)/speed
+  $x1 = $x1 + vx
+  $y1 = $y1 + vy
+  color (200+$x1)/4, 0, 0
+  circle($x1, $y1, 50, POLYGON)  ## polygon�͓h��‚Ԃ�
+  
+  speed = 10.0
+  vx = (x - $x2)/speed
+  vy = (y - $y2)/speed
+  $x2 = $x2 + vx
+  $y2 = $y2 + vy
+  color 0,(200+$y2)/4,0
+  circle($x2+30,$y2+30,80)
+end
+ 
+mainloop

data/examples/sample12.rb

@@ -1,30 +1,30 @@
-require "sgl"
-
-def setup
-  window -200, -200, 200, 200
-  background 100
-  $pos = []		# ���g����̔z���p�ӂ���D
-  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
-    $pos[a] = 0		# ���g�ɑS��0�����Ă����D
-  end
-  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������ϐ��D
-end
-
-def display
-  $pos[$index] = mouseX # �z���$index�̎����Ƃ���Ƀ}�E�X��x���W������D
-
-  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
-    x = $pos[a]
-    color 0
-    line x, -100, x, 100 # �c����`���D
-  end
-
-  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
-  if 10 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����D
-    $index = 0
-  end
-
-  p $pos		# $pos�Ƃ����z��̒��g��\������D
-end
-
-mainloop
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $pos = []		# ���g����̔z���p�ӂ���D
+  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    $pos[a] = 0		# ���g�ɑS��0�����Ă����D
+  end
+  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������ϐ��D
+end
+
+def display
+  $pos[$index] = mouseX # �z���$index�̎����Ƃ���Ƀ}�E�X��x���W������D
+
+  for a in 0..10	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    x = $pos[a]
+    color 0
+    line x, -100, x, 100 # �c����`���D
+  end
+
+  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
+  if 10 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����D
+    $index = 0
+  end
+
+  p $pos		# $pos�Ƃ����z��̒��g��\������D
+end
+
+mainloop

data/examples/sample12a.rb

@@ -1,35 +1,35 @@
-require "sgl"
-
-def setup
-  window -200, -200, 200, 200
-  background 100
-  $xpos = []		# ���g����̔z���x���W�Cy���W�ɂ‚��ėp�ӂ���D
-  $ypos = []
-  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
-    $xpos[a] = 0
-    $ypos[a] = 0
-  end
-  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������D
-end
-
-def display
-  $xpos[$index] = mouseX	# �Y��
-  $ypos[$index] = mouseY
-
-  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
-    x = $xpos[a]
-    y = $ypos[a]
-    colorHSV 0, 100, 100, 20
-    circle x, y, 50, POLYGON
-  end
-
-  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
-  if 20 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����
-    $index = 0
-  end
-
-  p $xpos
-  p $ypos
-end
-
-mainloop
+require "sgl"
+
+def setup
+  window -200, -200, 200, 200
+  background 100
+  $xpos = []		# ���g����̔z���x���W�Cy���W�ɂ‚��ėp�ӂ���D
+  $ypos = []
+  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    $xpos[a] = 0
+    $ypos[a] = 0
+  end
+  $index = 0		# ���ݔz��̂ǂ��̕������w���Ă��邩�������D
+end
+
+def display
+  $xpos[$index] = mouseX	# �Y��
+  $ypos[$index] = mouseY
+
+  for a in 0..20	# �z��̗v�f���ꂼ��ɂ‚��ČJ��Ԃ��D
+    x = $xpos[a]
+    y = $ypos[a]
+    colorHSV 0, 100, 100, 20
+    circle x, y, 50, POLYGON
+  end
+
+  $index = $index + 1	# ���݂�����$index�����̒l�̂Ƃ���ɃZ�b�g����D
+  if 20 < $index	# $index���z��̑傫�����z������0�ɃZ�b�g����
+    $index = 0
+  end
+
+  p $xpos
+  p $ypos
+end
+
+mainloop

data/examples/sample13.rb

@@ -1,116 +1,116 @@
-require "sgl"
-
-def setup
-  window -250, -250, 250, 250
-  background 100
-  $a = 0
-end
-
-def display
-  x = mouseX
-  y = mouseY
-
-  color 50, 50, 50
-  rect 190, -190, 200, -240
-  rect 230, -190, 240, -240
-  color 100, 0, 0
-  rect 200, -200, 230, -230
-
-  line x, y, x-5, y
-
-  color 0
-  circle 150, 150, 5
-  circle 0, -105, 4
-  circle -100, 0, 3
-  circle -150, 80, 2
-  line 150, 155, 150, 250
-  line 0, -108, 0, -250
-  line -100, -2, -100, -250
-  line -150, 81, -150, 250
-
-  if $a == 0
-    color 100, 0, 0
-    line x, y, 215, -200
-  else
-    color 100, 0, 0
-    line 150, 150, 215, -200
-  end
-
-  # 1�̌�
-  if $a == 0 && 145 <= x && 155 >= x && 145 <= y && 155 >= y
-    $a = 1
-  end
-
-  if $a == 1
-    color 100, 0, 0
-    line x, y, 150, 150
-  elsif $a > 1
-    line 0, -105, 150, 150
-  end
-
-  # 2�̌�
-  if $a == 1 && -5 <= x && 5 >= x && -110 <= y && -100 >= y
-    $a = 2
-  end
-
-  if $a == 2
-    color 100, 0, 0
-    line x, y, 0, -105
-  elsif $a > 2
-    line -100, 0, 0, -105
-  end
-
-  # 3�̌�
-  if $a == 2 && -103 <= x && -98 >= x && -3 <= y && 2 >= y
-    $a = 3
-  end
-
-  if $a == 3
-    color 100, 0, 0
-    line x, y, -100, 0
-  elsif $a > 3
-    line -150, 80, -100, 0
-  end
-
-  # 4�̌�
-  if $a == 3 && -152 <= x && -148 >= x && 78 <= y && 82 >= y
-    $a = 4
-  end
-
-  if $a == 4
-    color 100, 0, 0
-    line x, y, -150, 80
-  end
-
-  # �S�[���n�_
-  if $a == 4 && -250 <= x && -180 >= x
-    $a = 5
-  end
-
-  if $a == 5
-    background 70, 80, 100
-    color 100, 80, 80
-    circle -100, 0, 50, POLYGON
-    color 80, 80, 100
-    circle -100, 0, 30, POLYGON
-    color 100, 80, 80
-    rect 50, 50, 70, -50
-
-    beginObj(POLYGON)
-    vertex 70, -7
-    vertex 112, 35
-    vertex 138, 35
-    vertex 70, -33
-    endObj
-    beginObj(POLYGON)
-    vertex 103, 0
-    vertex 140, -50
-    vertex 115, -50
-    vertex 85, -9
-    endObj
-  end
-end
-
-mainloop
-
-# �傫��������n�߂Ȃ��ƒʂ�܂���
+require "sgl"
+
+def setup
+  window -250, -250, 250, 250
+  background 100
+  $a = 0
+end
+
+def display
+  x = mouseX
+  y = mouseY
+
+  color 50, 50, 50
+  rect 190, -190, 200, -240
+  rect 230, -190, 240, -240
+  color 100, 0, 0
+  rect 200, -200, 230, -230
+
+  line x, y, x-5, y
+
+  color 0
+  circle 150, 150, 5
+  circle 0, -105, 4
+  circle -100, 0, 3
+  circle -150, 80, 2
+  line 150, 155, 150, 250
+  line 0, -108, 0, -250
+  line -100, -2, -100, -250
+  line -150, 81, -150, 250
+
+  if $a == 0
+    color 100, 0, 0
+    line x, y, 215, -200
+  else
+    color 100, 0, 0
+    line 150, 150, 215, -200
+  end
+
+  # 1�̌�
+  if $a == 0 && 145 <= x && 155 >= x && 145 <= y && 155 >= y
+    $a = 1
+  end
+
+  if $a == 1
+    color 100, 0, 0
+    line x, y, 150, 150
+  elsif $a > 1
+    line 0, -105, 150, 150
+  end
+
+  # 2�̌�
+  if $a == 1 && -5 <= x && 5 >= x && -110 <= y && -100 >= y
+    $a = 2
+  end
+
+  if $a == 2
+    color 100, 0, 0
+    line x, y, 0, -105
+  elsif $a > 2
+    line -100, 0, 0, -105
+  end
+
+  # 3�̌�
+  if $a == 2 && -103 <= x && -98 >= x && -3 <= y && 2 >= y
+    $a = 3
+  end
+
+  if $a == 3
+    color 100, 0, 0
+    line x, y, -100, 0
+  elsif $a > 3
+    line -150, 80, -100, 0
+  end
+
+  # 4�̌�
+  if $a == 3 && -152 <= x && -148 >= x && 78 <= y && 82 >= y
+    $a = 4
+  end
+
+  if $a == 4
+    color 100, 0, 0
+    line x, y, -150, 80
+  end
+
+  # �S�[���n�_
+  if $a == 4 && -250 <= x && -180 >= x
+    $a = 5
+  end
+
+  if $a == 5
+    background 70, 80, 100
+    color 100, 80, 80
+    circle -100, 0, 50, POLYGON
+    color 80, 80, 100
+    circle -100, 0, 30, POLYGON
+    color 100, 80, 80
+    rect 50, 50, 70, -50
+
+    beginObj(POLYGON)
+    vertex 70, -7
+    vertex 112, 35
+    vertex 138, 35
+    vertex 70, -33
+    endObj
+    beginObj(POLYGON)
+    vertex 103, 0
+    vertex 140, -50
+    vertex 115, -50
+    vertex 85, -9
+    endObj
+  end
+end
+
+mainloop
+
+# �傫��������n�߂Ȃ��ƒʂ�܂���