Cool Textile-Like Patterns

[GlobeTrotter]

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

[[Gandalf]]

Nice and simple program .

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

[Mr. T]

How do you come up with these patterns? Is it just guessing and checking?

[GlobeTrotter]

Yes

[beard0]

code:

abs (sin (x) - cos (y)) < x/maxx

For the gradient pattern effect