Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- par(bg=5)
- 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
- plot(c(84i-180,180-60i),t="n",asp=1)
- i=1
- while(i<length(v)){K=v[i]+44
- k=c(1:K,-1:-K)
- j=2*1:(2*K)
- 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)
- i=i+4+4*K}
Advertisement
Add Comment
Please, Sign In to add comment