̬̬̬̈̬̬̬̬̈̬̬̬̬̬̪쬪̬̬̬̪쬪 >8pwwwwwwww3333333333pwwwwwwwwwwww033pwwwwwwwwwwwwww33pwwwwwwwwwwwwwwww03pwwwwwwwwwwwwwwww33wwwwwwwwwwwwwww00wwwwwwwwwwwwwww0pwwwwwwwwwwwwww00pwwwwwwwwwwwwww00wwwwwwwwwwwww0wwwwwwwwwwwww0wwwwwwwwwwwww00pwwwwwwwwwwww00pwwwwwwwwwwww0wwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwww33333333330pwwwwwwwwww330pwwwwwwwwww33wwwwwwwww3wwwwwwwww3pwwwwwwww300pwwwwwwww300wwwwwww30wwwwwww00pwwwwww300pwwwwww300pwwwwww000wwwww30wwwww0pwwww30pwwww003330www333www003www33pww03pww003w30w000p003pwwww3000pwwwwwwwwwwwww00pwwwwwwwwwwwwwwwwwwwwwww0pwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwww0wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww00wwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwww00wwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwww0wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww0wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww0pwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwrwwwwwwwwwwwwwwwwwwwwwwwwwwww!rwwwwwwwwwwwwww00wwwwwwwwwwwww""wwwwwwwwwwwww00pwwwwwwwwwwww"2swwwwwwwwwwww 0pwwwwwwwwwwww"33wwwwwwwwwwww0pwwwwwwwwwww23Cwwwwwwwwwwww00wwwwwwwwwww33Dtwwwwwwwwwww00pwwwwwwwwww3CDTwwwwwwwwww00pwwwwwwwww3DDUuwwwwwwwww0wwwwwwwwwCDTUuwwwwwwwwwwwwwwwwwDDUUfwwwwwwww3pwwwwwwwDTUefvwwwwwww!"3wwwwwwwDUUffwwwwwwww""3pwwwwwTUefvwwwwwww!"23CwwwwwUUffwwxwwwww""33DpwwwwUefvwwwww!"23CDwwwUffwwywww""33Dpwwefvwyww!"23CDwwffwwww""33DDpfvwz!"23CDfww""33DDvw!"23CDTww""33DDUw!"23CDTw""33DDU!"23CDTU""33DDU!"23CDTU""33DDUU!"23CDTU3""33DDUU!"23CDTUe0""33DDUUf3!"23CDTUe""33DDUUf0!"23CDTUef3""33DDUUf0!"23CDTUef3""33DDUUff0!"23CDTUef3""33DDUUff0!"23CDTUefv0""33DDUUff3!"23CDTUefv3""33DDUUffw3!"23CDTUefvw3""33DDUUffw!"23CDTUefvw""33DDUUffww!"23CDTUefvw""33DDUUffww!"23CDTUefvw""33DDUUffww"23CDTUefvw 33DDUUffww3CDTUefvw0DDUUffww8DTUefvw3@UUffww3Uefvw3Pffww 33fvw33033ww 3333333333p -- title: draw arc -- author: parlortricks -- desc: draw arc lines, filled or hollow -- script: lua -- SPDX-License-Identifier: GPL-3.0-or-later -- Copyright (c) 2021 parlortricks local t=0 local rainbow = 0 function draw_arc(x,y,r,c,st,en,hollow,fill) local nx,ny,hx1,hy1,hx2,hy2=0,0,0,0,0,0 local tau = 2*math.pi local step = tau/360 local rs = true --record start local hollow=hollow or false local fill=fill or false if st < 0 then st = -st end if en < -1 then en = -en end if en <= st then en = en + tau end repeat nx = x + r * math.cos(st) ny = y + r * -math.sin(st) if rs then hx1,hy1=nx,ny rs=false end if fill then line(x,y,nx,ny,c) else pix(nx,ny,c) end st = st + step/r until( st >= en) if hollow then if not fill then hx2,hy2=nx,ny line(x,y,hx1,hy1,c) line(x,y,hx2,hy2,c) end end end function d2r(deg) return deg * (math.pi/180) end function TIC() cls(0) draw_arc(120,68, 50,3, d2r(75+math.sin(t)*16), d2r(270-math.cos(t)*16)) draw_arc(120,68, 35,3, d2r(43+math.sin(t)*16), d2r(72-math.cos(t)*16)) draw_arc(120,68, 35,3, d2r(288+math.sin(t)*16), d2r(317-math.cos(t)*16)) draw_arc(120,68, 66,3, d2r(70-math.sin(t)*16), d2r(100-math.sin(t)*16),true,false) draw_arc(120,68, 62,2, d2r(160), d2r(200-math.cos(t)*40),false,true) draw_arc(50+math.sin(t)*8,50+math.cos(t)*8,40,7,d2r(70-math.sin(t)*16),d2r(110+math.sin(t)*16),false,true) draw_arc(50+math.sin(t)*8,50+math.cos(t)*8,40,7,d2r(190-math.sin(t)*16),d2r(230+math.sin(t)*16),false,true) draw_arc(50+math.sin(t)*8,50+math.cos(t)*8,40,7,d2r(310-math.sin(t)*16),d2r(350+math.sin(t)*16),false,true) -- draw rainbow because i can for x=0,239 do for y=0,139 do if pix(x,y)==2 then pix(x,y,(x+y+rainbow)/4) end end end t = t + 0.1 rainbow = rainbow + 1 end