mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-22 23:26:40 -08:00
24 lines
574 B
Plaintext
24 lines
574 B
Plaintext
// Diamond
|
|
//
|
|
// Ported from BASIC to MiniScript by Joe Strout
|
|
|
|
print " "*33 + "DIAMOND"
|
|
print " "*15 + "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
print; print; print
|
|
print "For a pretty diamond pattern,"
|
|
maxw = input("type in an odd number between 5 and 21: ").val
|
|
s = "CC" + "!" * maxw
|
|
columns = floor(68/maxw)
|
|
for row in range(1, columns)
|
|
for w in range(1, maxw, 2) + range(maxw-2, 1, -2)
|
|
print " "*(maxw-w)/2, ""
|
|
for column in range(1, columns)
|
|
print s[:w], ""
|
|
if column < columns then print " "*(maxw-w), ""
|
|
end for
|
|
print
|
|
wait 0.01
|
|
end for
|
|
end for
|
|
|