Written in parrot assembly and probably going against the author's copyright notice. The Mathematica version is found in the notes starting at page 865.
From "A New Kind of Science" copyright:
"The source code may be reproduced varbatim for the non-commercial purposes so long as it is identified in each instance as a Mathematica program and this book is cited as its source. Derivative works such as modified or translated versions may not be made available without prior written consent of the copyright holder. Consent will normally be granted for non-commercial purposes so long as the original version of each program is included, together with appropriate copyright and other notices."
Any triangle you want as long as it's between 0 and 255: