Author |
Message |
vankoughnen
|
Posted: Thu Jan 18, 2018 7:20 pm Post subject: Help with ASCII art Canadian Flag |
|
|
I need to create a program to make a canadian flag for an assignment but im completely new to this and am not really sure where to start. Any suggestions? |
|
|
|
|
|
Sponsor Sponsor
|
|
|
TokenHerbz
|
|
|
|
|
vankoughnen
|
Posted: Thu Jan 18, 2018 7:57 pm Post subject: Re: Help with ASCII art Canadian Flag |
|
|
Thats the issue, Im really not sure how to write a program to mimic it |
|
|
|
|
|
TokenHerbz
|
Posted: Thu Jan 18, 2018 8:00 pm Post subject: RE:Help with ASCII art Canadian Flag |
|
|
Here since you have to make a canadian one, I went ahead and found an american flag to mimic and code to give you inspiration.
Turing: |
%%ASCII ART FROM : http://www.chris.com/ascii/joan/www.geocities.com/SoHo/7373/flag.html
setscreen("Graphics:400;400")
Text.ColourBack(grey)
proc drawFlag
var ls : string := " "
var ps : string := " "
var stars : string := "::::::"
put "" put "" put "" put "" put ""
%%pole
Text.Colour(white)
put ls + "======;===========;()"
for i: 1 .. 4
put ls + ps ..
for j: 1 .. 7
if j mod 2 = 0 then
Text.Colour(white)
else
Text.Colour(red)
end if
put "#" ..
end for
Text.Colour(blue)
put stars
end for
for i: 1 .. 6
put ls + ps ..
for j: 1 .. 13
if j mod 2 = 0 then
Text.Colour(white)
else
Text.Colour(red)
end if
put "#" ..
end for
put ""
end for
end drawFlag
loop
drawFlag
View.Update
delay(100)
cls
end loop
|
|
|
|
|
|
|
TokenHerbz
|
Posted: Thu Jan 18, 2018 8:07 pm Post subject: RE:Help with ASCII art Canadian Flag |
|
|
maybe tackle it top down, and isolate patterns to make your like easier HL GF ask more help after you attempt it i wanna see your efforts and link to the ASCII your wanting to recreate. |
|
|
|
|
|
|