ventil.BAS

{* Вращение вентилятора *}

REM basic

' Вращение вентилятора


SCREEN 12
dlina = 200
radian = 57.29578
Do While INKEY$ = ""
 For angle = 0 To 360
  x1 = 320 + dlina * COS(angle / radian)
  y1 = 240 + dlina * SIN(angle / radian)
  x2 = 320 + dlina * COS((angle + 120) / radian)
  y2 = 240 + dlina * SIN((angle + 120) / radian)
  x3 = 320 + dlina * COS((angle + 240) / radian)
  y3 = 240 + dlina * SIN((angle + 240) / radian)
  sx1 = 320 + (dlina / 20) * COS((angle - 60) / radian)
  sy1 = 240 + (dlina / 20) * SIN((angle - 60) / radian)
  sx2 = 320 + (dlina / 20) * COS((angle + 60) / radian)
  sy2 = 240 + (dlina / 20) * SIN((angle + 60) / radian)
  sx3 = 320 + (dlina / 20) * COS((angle + 180) / radian)
  sy3 = 240 + (dlina / 20) * SIN((angle + 180) / radian)
  LINE (sx1, sy1)-(x1, y1), 15: LINE (sx2, sy2)-(x1, y1), 15
  LINE (sx3, sy3)-(x2, y2), 15: LINE (sx2, sy2)-(x2, y20), 15
  LINE (sx1, sy1)-(x3, y3), 15: LINE (sx3, sy3)-(x3, y3), 15
  LINE (320, 240)-(x1, y1), 15: LINE (320, 240)-(x2, y2), 15
  LINE (320, 240)-(x3, y3), 15
  For k = 1 To 1000: Next
  LINE (sx1, sy1)-(x1, y1), 0: LINE (sx2, sy2)-(x1, y1), 0
  LINE (sx3, sy3)-(x2, y2), 0: LINE (sx2, sy2)-(x2, y2), 0
  LINE (sx1, sy1)-(x3, y3), 0: LINE (sx3, sy3)-(x3, y3), 0
  LINE (320, 240)-(x1, y1), 0: LINE (320, 240)-(x2, y2), 0
  LINE (320, 240)-(x3, y3), 0
 Next
Loop