• Explore
• My scripts
• Calculator

from kandinsky import *
from random import randint as r
from ion import *
from time import *
a=color
IS_ALIVE=a(0,0,0)
IS_DEAD=a(255,255,255)
WAS_ALIVE=a(10,10,10)
WAS_DEAD=a(250,250,250)
CURSOR_ALIVE=a(60,60,60)
CURSOR_DEAD=a(200,200,200)
CS=10
ALIVE_CR=0.5
SW=320
SH=222
MX=10
MY=11
XS=MX
XE=SW-MX
YS=MY
YE=SH-MY
VW=SW-2*MX
VH=SH-2*MY
W=VW//CS
H=VH//CS
cx=W//2
cy=H//2
LP=0.5
def dr(x,y,w,h,s,c): fill_rect(x,y,w,s,c); fill_rect(x,y+h,w,s,c); fill_rect(x,y,1,h,c); fill_rect(x+w,y,1,h,c)
def clp(mn,x,mx): return max(mn,min(x,mx))
def g(): fill_rect(XS+3*CS,YS,CS,CS,IS_ALIVE); fill_rect(XS+3*CS,YS+CS,CS,CS,IS_ALIVE); fill_rect(XS+3*CS,YS+CS*2,CS,CS,IS_ALIVE); fill_rect(XS+2*CS,YS+CS*2,CS,CS,IS_ALIVE); fill_rect(XS+1*CS,YS+CS,CS,CS,IS_ALIVE)
def ini(): [fill_rect(x,y,CS,CS,IS_ALIVE) for x in range(XS,XE,CS) for y in range(YS,YE,CS) if r(0,100)<ALIVE_CR*100]
def n(x,y): return sum(1 for nx,ny in [((XE-CS if int(x+i)<XS else XS if int(x+i)>XE-CS else int(x+i)),(YE-CS if int(y+j)<YS else YS if int(y+j)>YE-CS else int(y+j)))for i,j in[(CS,0),(-CS,0),(0,CS),(0,-CS),(CS,CS),(-CS,-CS),(-CS,CS),(CS,-CS)]] if get_pixel(nx,ny) in [IS_ALIVE, WAS_ALIVE])
def nxt(): [fill_rect(x,y,CS,CS,WAS_ALIVE if get_pixel(x,y) == IS_ALIVE and (n(x,y)<2 or n(x,y)>3) else WAS_DEAD) for x in range(XS,XE,CS) for y in range(YS,YE,CS) if get_pixel(x,y) != IS_ALIVE and n(x,y)==3]
def clr(): [fill_rect(x,y,CS,CS,IS_ALIVE if get_pixel(x,y) == WAS_DEAD else IS_DEAD) for x in range(XS,XE,CS) for y in range(YS,YE,CS)]
def mk(pressed,np,key,fn): np[key]=pressed[key] if keydown(key) and key in pressed.keys() else monotonic(); fn() if not key in pressed or monotonic()-np[key]>LP else None
def adj_vp():
  global MX,MY,VW,VH,XS,XE,YS,YE,H,W,cx,cy
  pressed={}
  pm(MX,MY,VW,VH)
  do=False
  def u(): global MY; nonlocal do; do=True; MY=clp(1,MY+(CS+1)//2,61)
  def d(): global MY; nonlocal do; do=True; MY=clp(1,MY-(CS+1)//2,61)
  def l(): global MX; nonlocal do; do=True; MX=clp(0,MX-(CS+1)//2,110)
  def r(): global MX; nonlocal do; do=True; MX=clp(0,MX+(CS+1)//2,110)
  while not (keydown(KEY_EXE) and (VW%CS==0 and VH%CS==0)):
    do=False
    np={}
    mk(pressed,np,KEY_UP,u)
    mk(pressed,np,KEY_DOWN,d)
    mk(pressed,np,KEY_LEFT,l)
    mk(pressed,np,KEY_RIGHT,r)
    pressed=np
    sleep(0.05)
    XS,XE,YS,YE,VW,VH,W,H,cx,cy=MX,SW-MX,MY,SH-MY,SW-2*MX,SH-2*MY,VW//CS,VH//CS,W//2,H//2
    if do: pm(MX,MY,VW,VH)
  fill_rect(0,0,SW,SH,IS_DEAD)
def pm(x1,y1,x2,y2): fill_rect(0,0,SW,SH,IS_DEAD); dr(x1,y1,x2,y2,1,IS_ALIVE); draw_string("W: {}, H: {}".format(VW,VH),5,SH-20)
def dc(): fill_rect(XS+cx*CS,YS+cy*CS,CS,CS,CURSOR_ALIVE if get_pixel(XS+CS*cx,YS+CS*cy)==IS_ALIVE else CURSOR_DEAD)
def udc(): fill_rect(XS+cx*CS,YS+cy*CS,CS,CS,IS_ALIVE if get_pixel(XS+CS*cx,YS+CS*cy)==CURSOR_ALIVE else IS_DEAD)
def um():
  global cx,cy
  exit=False
  pressed={KEY_OK:monotonic(),KEY_EXE:monotonic()}
  dc()
  def exe(): nonlocal exit; exit=True
  def ok(): fill_rect(XS+cx*CS,YS+cy*CS,CS,CS,CURSOR_DEAD if get_pixel(XS+CS*cx,YS+CS*cy)==CURSOR_ALIVE else CURSOR_ALIVE)
  def l(): global cx; udc(); cx=W-1 if cx==0 else cx-1; dc()
  def u(): global cy; udc(); cy=H-1 if cy==0 else cy-1; dc()
  def r(): global cx; udc(); cx=0 if cx==W-1 else cx+1; dc()
  def d(): global cy; udc(); cy=0 if cy==H-1 else cy+1; dc()
  while not exit:
    np={}
    mk(pressed,np,KEY_EXE,exe)
    mk(pressed,np,KEY_OK,ok)
    mk(pressed,np,KEY_LEFT,l)
    mk(pressed,np,KEY_UP,u)
    mk(pressed,np,KEY_RIGHT,r)
    mk(pressed,np,KEY_DOWN,d)
    pressed=np
    sleep(0.05)
  udc()

adj_vp()
dr(MX-3,MY-3,VW+5,VH+5,1,a(220,220,220))
ini()
while 1: nxt(); clr(); um() if keydown(KEY_OK) or keydown(KEY_EXE) else None