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