Guest User

Untitled

a guest
Jul 4th, 2026
254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. par(bg=5)
  2. v=utf8ToInt("8O_b_EU7ZLJ=@GU^<XPDFU]LQXFOHSZM[W^AJUXTAF=P][3%O7I6[dQ'Tb]H]YOBJP@bYPD]M-DHOQ@=QaCVgPPR-I?ESXAGPLQTQTNNRMPMMPOSO&SFRJCQMOKLULMLPWNN+M5eYW_9QGY`SU[[NILKPxAHOO?`MRLUQ]NI(BpCUIDVTPNPP['0RM]>YXNL&EEuU<ZIUYF%ITGR%8rL1IKSi#WT%5[FRcUQ0&TT%4NjJXBYQ&bP%6qa[hGK&PHR")-79
  3. plot(c(84i-180,180-60i),t="n",asp=1)
  4. i=1
  5. while(i<length(v)){K=v[i]+44
  6. k=c(1:K,-1:-K)
  7. j=2*1:(2*K)
  8. polygon(exp(2i*pi*outer(1:99/99,k))%*%((v[i+2+j]+v[i+3+j]*1i)*1.1^v[i+1]/k)+(v[i+2]*2+v[i+3]*1i)*2,col=3)
  9. i=i+4+4*K}
Advertisement
Add Comment
Please, Sign In to add comment