[ 3 / biz / cgl / ck / diy / fa / ic / jp / lit / sci / vr / vt ] [ index / top / reports ] [ become a patron ] [ status ]
2023-11: Warosu is now out of extended maintenance.

/sci/ - Science & Math

Search:


View post   

>> No.11194097 [View]
File: 38 KB, 360x359, circleJerk.gif [View same] [iqdb] [saucenao] [google]
11194097

there ya go


y[r_, x_] := Sqrt@Floor[r^2 - x^2]

getRekt[r_, x_, s_] := Rectangle[{x, s y[r, x]}, {x + 1, s y[r, x] + 1}]

pic = Table[
Graphics[
Table[{Thick, Red, getRekt[r, x, s]}, {x, -r, r}], {s, -1, 1, 2}]]
, {r, 0, 20}];

Export["circleJerk.gif", pic];

Navigation
View posts[+24][+48][+96]