Logo Arts

To New
  # set default screen, pen and turtle values
  ResetAll SetScreenSize [400 400] HideTurtle
  SetSC Black SetPC Green SetPS 1 PenUp
End

To Init
  Make "Size 2
  SetPW :Size
End

To Display :Rule :BinList
  # write header info
  SetPC White PenUp
  SetPos [-190 184] Label [1D Cellular Automata]
  SetPos [70 184] Label List "Rule :Rule
  SetPos [70 170] Label :BinList
End

To Draw :CAList
  PenDown For (List "N 1 (Count :CAList)) [
    SetPC (List 0 (255*Item :N :CAList) 64)
    Forward :Size]
  SetPC Black Forward 0 PenUp
End

To NextLine :CAList
  Make "NewCAList []
  Make "CAList Sentence :CAList [0 0]     #add 0 0 to end
  Make "LL [0 0 0]
  For (List "N 1 (Count :CAList)) [
    Make "LL ButFirst LPut Item :N :CAList :LL
    #convert LL into a decimal number
    Make "X Bin2Dec :LL
    #convert x to item x of binlist
    Make "X Item (8-:X) :BinList
    #add x to newcalist
    Make "NewCAList LPut :X :NewCAList]
  Output :NewCAList
End

To Dec2Bin :Num
  # convert decimal number Num to an 8 item binary list
  If :Num >255 [Print [Rule is too large!] Stop]
  LocalMake "Bin []
  For [C 7 0 -1] [
    LocalMake "Bin LPut (Quotient :Num Power 2 :C) :Bin
    LocalMake "Num :Num -((Power 2 :C) *Last :Bin)]
  Output :Bin
End

To Bin2Dec :BinList
  #return the decimal value of a 3 bit binary list
  Output (4*Item 1 :BinList)+(2*Item 2 :BinList)+(Item 3 :BinList)
End

To Go :Rule
  New SetPS 0 Init
  Make "BinList Dec2Bin :Rule
  Display :Rule :BinList SetH 90
  Make "CAList [1]
  For (List "N 0 191 :Size) [
    SetXY (0-:N) (150-:N)
    Draw :CAList
    Make "CAList NextLine :CAList]
End