                                     ΞΜΜΜΜ¬ͺͺͺ¬¬ΜΜΜ¬ΜΐΜ¬ΜΐΜ¬ΜΐΜΜΜμξΜξͺͺΐξ¨ΐξΜ¬ΐΜΐ¬ΐΐΐ¬ΐΐΐ¬ΐΐΞΜΜΜΜ¬ͺͺͺ¬¬ΜΜΜ¬ΜΜΜ¬ΜΐΜ¬ΜΐΜΜΜμξΜξͺͺΐξ¨ΐξΜ¬ΐΜΜ¬ΐΐΐ¬ΐΐΐ¬ΐΐ                                                                                                                                                                                                                                                                                                                                                                                                ¬ΜΜΜ¬ͺͺͺ¬ͺ¬ͺ¬ͺΚΜ¬ͺͺͺΜ ΐΜΞΜΜΞΜ¬ Μͺͺΐμ¬ͺΐξͺͺΐξͺͺΐξΜξ ΐμξΜΜξξ¬ΜΜΜ¬ͺͺͺ¬ͺ¬ͺ¬ͺΚΜ¬ͺͺͺΜ ΐΜΞΜΜΞΜ¬ Μͺͺΐμ¬ͺΐξͺͺΐξͺͺΐξΜξ ΐμξΜΜξξ	>                                                              ΐ? 89XΈ8888Έ3333H83DDDD438CDDDDDDD3Έ8CDDDDDDDDD3CDDDΔΜΜΜDDDD8DDDΜΜΜΜΜΜLDD4XCDDΜΜΜΜΜΜΜΜLDD8DDΔΜΜΜΜLDΜΜΜDD4HCDΔΜΜΜΜΜΔΔΔΜΜΜDD8DDΜΜΜΜΜΜDLΔΜΜΜLD48DDΜΜΜΔΜΜΔΔΔΜΜΜLD4CDΔΜΜLLΜΜLDΜΜΜΜΜDDCDΜΜΜΜDΔΜΜΜΜΜΜΜΜLDΘ8DDΜΜΜLLLΜΜΜΜΜΜΜΜLD48DΔΜΜΜLΔDΜΜΜΜΜΜΜΜΜD4H8DΔΜΜΜLLLΜΜΜΜΜΜΜΜΜD4CDΔΜΜΜΜDΔΜΜΜΜΜΜΜΜΜDDCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDHCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDYCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDCDΔΜΜΜΜΜΜΜΜΜΜΜΜΜΜΜDD8DΔΜΜΜΜΔΜΜΜΜΜΜΜΜΜΜD48DΔΜΜΜLLΜΜΜΜΜΜΜΜΜΜD48DDΜΜΜΜΔΜΜΜΜΜΜΜΜΜLD4ΘCDΜΜΜΜΜΜΜΜΜΜΜΜΜΜLDΘCDΔΜΜΜΜΜΜΜΜΜΜΜΜΜDD8DDΜΜΜΜΜΜΜΜΜΜΜΜLD49DDΜΜΜΜΜΜΜΜΜΜΜΜLD4CDΔΜΜΜΜΜΜΜΜΜΜΜDD8DDΔΜΜΜΜΜΜΜΜΜDD4CDDΜΜΜΜLDΜΜLDD98DDDΜΜΜΔΔΔLDD4CDDDΔΜDLDDDD9CDDDDDDDDD388CDDDDDDD383DDDD4333338XXΘ8X8fffHfUUUehUUUUUeVUUUUUUXhUUUUUUUeVUefUUUUUVUVUVUUUUhUUVUVUUUUeXHhUUVUVUUUUehUUefUUUUUehUUUUUUUUUehUUUUUUfVUehUUUUUeffUehUUUUUfffVeVUUUUfffVHVUUUUfffVhUUUUeffeVUUUUfVhUUUUUefUUUeΘfffΈHΘΈΘHΈXΘI -- title: solar system with gravity
-- author: potato imaginator
-- desc: Enjoy !
-- script: lua

cos=math.cos
sin=math.sin
pi=math.pi
ang=0 -- Planet Revolution
f1=150 -- Sun Force
f2=75 -- Planet Force
v1=32
y_off=-32

col={3,4,5,11,12}

s={} -- Stars
for i=1,100 do
 s[i]=
 {x=math.random(0,239),
  y=math.random(0,135),
  c=math.random(1,#col)}
end

p1={}
for i=1,10 do
 p1[i]=
 {x=math.random(-16,16),
  y=math.random(-16,16),
  t=math.random(0,3),
  dx=1/math.random(1,3)}
end

function upd_p1()
 for i=1,#p1 do
  p1[i].x=p1[i].x+p1[i].dx
  p1[i].t=p1[i].t+1/16
  if p1[i].t>=4 then
    p1[i]=
			 {x=-18,
			  y=math.random(-16,16),
			  t=0,
			  dx=1/math.random(1,3)}
  end
 end
end

function draw_p1()
 for i=1,#p1 do
  for j=-4+2*p1[i].t,p1[i].t do
   if
   pix(120+p1[i].x,
       68+y_off+f1/8+p1[i].y)==12 then
   circb
   (120+p1[i].x,
    68+y_off+f1/8+p1[i].y,j,4)
   end
  end
 end
end

function TIC()
 cls(8)
 
 upd_p1()
 
 for i=1,#s do -- Draw Stars
  x=s[i].x
  y=s[i].y
  x1=120
  y1=68
  d1=((x-x1)^2+(y-y1)^2)^0.5
  _y1=f1*(1/2^(d1^0.25))
  x2=120+90*cos(ang)
  y2=68+45*sin(ang)
  d2=((x-x2)^2+(y-y2)^2)^0.5
  _y2=f2*(1/2^(d2^0.25))
  pix
  (s[i].x,s[i].y+y_off+_y1+_y2,
   col[s[i].c])
 end
 
 for i=-6,6 do
  for j=-120,120 do
   x1=120+j
   y1=68+v1*i+j
   d1=((x1-120)^2+(y1-68)^2)^0.5
   _y1=f1*(1/2^(d1^0.25))
   x2=120+j
   y2=68+v1*i-j
   d2=((x2-120)^2+(y2-68)^2)^0.5
   _y2=f1*(1/2^(d2^0.25))
   x3=120+90*cos(ang)
   y3=68+45*sin(ang)
   d31=((x3-x1)^2+(y3-y1)^2)^0.5
   _y31=f2*(1/2^(d31^0.25))
   d32=((x3-x2)^2+(y3-y2)^2)^0.5
   _y32=f2*(1/2^(d32^0.25))
   pix
   (120+j,68+v1*i+_y1+j+y_off+_y31,9)
   pix
   (120+j,68+v1*i+_y2-j+y_off+_y32,9)
  end
 end
 
 circ(120,68+y_off+f1/8,20,4) -- Sun
 circ(120,68+y_off+f1/8,16,12)
 circb(120,68+y_off+f1/8,20,3) -- Sun
 
 draw_p1()
 
 circ -- Planet
 (120+90*cos(ang),
  68+y_off+f1/8+f2/8+45*sin(ang),10,5)
 circb
 (120+90*cos(ang),
  68+y_off+f1/8+f2/8+45*sin(ang),10,6)
 circ
 (120+90*cos(ang)+4,
  68+4+y_off+f1/8+f2/8+45*sin(ang),3,6)
 circb -- Planet
 (120+90*cos(ang)-3,
  68-3+y_off+f1/8+f2/8+45*sin(ang),2,6)
 ang=ang+1/60
end
