Computer Science Canada

Cool Textile-Like Patterns
Author:  GlobeTrotter [ Sun Oct 16, 2005 6:09 pm ]
Post subject:  Cool Textile-Like Patterns
code:

setscreen ("graphics:max;max,nobuttonbar")
for x : 1 .. maxx
    for y : 1 .. maxy
        if BOOLEAN EXPRESSION HERE then
            drawdot (x, y, 0)
        else
            drawdot (x, y, 7)
        end if
    end for
end for



Put any of the following into the code for different effects.

code:

(round (sin (x) / cos (y)) = 1) xor (sin (x) div cos (y) = 1)

code:

tan (x) div tan (y) = 1

code:

x mod y = 0

code:

x mod 5 = 0 or y mod 5 = 0

code:

(round (tan (x + y)) = 0) xor (round (tan (x / 2 + y / 2)) = 0)

code:

round (sin (x)) = 1 and round (cos (x)) = 1 and round (cos (x)) = 1 or round (sin (y)) = 1 and round (cos (y)) = 1 and round (cos (y)) = 1

code:

sind (x) + sind (y) = 0

code:

(round (sin (x)) = 1 and round (cos (x)) = 1 and round (cos (x)) = 1 or round (sin (y)) = 1 and round (cos (y)) = 1 and round (cos (y)) = 1) xor (round (sin (x) / cos (y)) = 1) xor (sin (x) div cos (y) = 1)


Post some you come up with
Author:  [Gandalf] [ Sun Oct 16, 2005 7:42 pm ]
Post subject: 
Nice and simple program Smile.

code:
setscreen ("graphics:max;max,nobuttonbar")
for x : 1 .. maxx
    for y : 1 .. maxy
        if (round (sin (x)) = 1 and round (cos (x)) = 1 and round (cos (x)) = 1 or round (sin (y)) = 1 and round (cos (y)) = 1 and round (cos (y)) = 1) xor (round (sin (x) / cos (y)) = 1) xor (sin (x) div cos (y) = 1) then
            drawdot (x, y, x mod 2)
        else
            drawdot (x, y, y mod 2)
        end if
    end for
end for


Also (insert this into my program, where the large expression is):
code:
(round (tan (x + y)) = 0) or (round (tan (x / 2 + y / 2)) = 0) or round (cos (x - y)) = 0


code:
tan (x) div tan (y) = 1 or tan (x - 5) < 1 and tan (y - 5) < 1
Author:  Mr. T [ Sun Oct 16, 2005 8:35 pm ]
Post subject:  Alex's Opinion
How do you come up with these patterns? Is it just guessing and checking? Confused
Author:  GlobeTrotter [ Sun Oct 16, 2005 9:16 pm ]
Post subject: 
Yes
Author:  beard0 [ Sun Oct 16, 2005 9:53 pm ]
Post subject: 
code:
abs (sin (x) - cos (y)) < x/maxx

For the gradient pattern effect Very Happy

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy