DBN- 蘇格蘭布紋

格紋一

// enter program

paper 50 0 0

size 300 300 2

repeat A 0 25

{

pen 30 0 0

line (25+A) 0 (25+A) 300

line (250+A) 0 (250+A) 300

line 0 (25+A) 300 (25+A)

line 0 (250+A) 300 (250+A)

}

repeat B 0 25

{

pen 25 0 0

line 25 (250+B) 50 (250+B)

line 25 (25+B) 50 (25+B)

line 250 (250+B) 275 (250+B)

line 250 (25+B) 275 (25+B)

}

repeat C 0 8

{

pen 30 0 0

line (96+C) 0 (96+C) 300

line (146+C) 0 (146+C) 300

line (196+C) 0 (196+C) 300

line 0 (196+C) 300 (196+C)

line 0 (146+C) 3000 (146+C)

line 0 (96+C) 300 (96+C)

}

repeat D 0 2

{

pen 15

line 0 (80+D) 300 (80+D)

line 0 (64+D) 300 (64+D)

line 0 (218+D) 300 (218+D)

line 0 (234+D) 300 (234+D)

line (80+D) 0 (80+D) 300

line (64+D) 0 (64+D) 300

line (218+D) 0 (218+D) 300

line (234+D) 0 (234+D) 300

}

repeat E 0 1

{

pen 80 65 0

line 0 (280+E) 300 (280+E)

line 0 (20+E) 300 (20+E)

line (280+E) 0 (280+E) 300

line (20+E) 0 (20+E) 300

}

格紋二

// enter program

paper 50 0 0

size 300 300 2

repeat A 0 25

{

pen 30 0 0

line (25+A) 0 (25+A) 300

line (250+A) 0 (250+A) 300

line 0 (25+A) 300 (25+A)

line 0 (250+A) 300 (250+A)

}

repeat B 0 25

{

pen 25 0 0

line 25 (250+B) 50 (250+B)

line 25 (25+B) 50 (25+B)

line 250 (250+B) 275 (250+B)

line 250 (25+B) 275 (25+B)

}

repeat C 0 8

{

pen 30 0 0

line (96+C) 0 (96+C) 300

line (146+C) 0 (146+C) 300

line (196+C) 0 (196+C) 300

line 0 (196+C) 300 (196+C)

line 0 (146+C) 3000 (146+C)

line 0 (96+C) 300 (96+C)

}

repeat D 0 2

{

pen 15

line 0 (80+D) 300 (80+D)

line 0 (64+D) 300 (64+D)

line 0 (218+D) 300 (218+D)

line 0 (234+D) 300 (234+D)

line (80+D) 0 (80+D) 300

line (64+D) 0 (64+D) 300

line (218+D) 0 (218+D) 300

line (234+D) 0 (234+D) 300}

repeat E 0 1

{

pen 80 65 0

line 0 (280+E) 300 (280+E)

line 0 (20+E) 300 (20+E)

line (280+E) 0 (280+E) 300

line (20+E) 0 (20+E) 300

}

格紋三

// enter program

paper 70 90 100

size 300 300 2

repeat E 0 1

{

pen 70 0 0

line 0 (280+E) 300 (280+E)

line 0 (20+E) 300 (20+E)

line (280+E) 0 (280+E) 300

line (20+E) 0 (20+E) 300

}

repeat D 0 2

{

pen 70 90 100

line 0 (80+D) 300 (80+D)

line 0 (64+D) 300 (64+D)

line 0 (48+D) 300 (48+D)

line 0 (32+D) 300 (32+D)

line 0 (16+D) 300 (16+D)

line 0 (0+D) 300 (0+D)

line 0 (218+D) 300 (218+D)

line 0 (234+D) 300 (234+D)

line 0 (250+D) 300 (250+D)

line 0 (266+D) 300 (266+D)

line 0 (282+D) 300 (282+D)

line (80+D) 0 (80+D) 300

line (64+D) 0 (64+D) 300

line (48+D) 0 (48+D) 300

line (32+D) 0 (32+D) 300

line (16+D) 0 (16+D) 300

line (0+D) 0 (0+D) 300

line (218+D) 0 (218+D) 300

line (234+D) 0 (234+D) 300

line (250+D) 0 (250+D) 300

line (266+D) 0 (266+D) 300

line (282+D) 0 (282+D) 300

}

repeat C 0 8

{

pen 70 70 70

line (96+C) 0 (96+C) 300

line (146+C) 0 (146+C) 300

line (196+C) 0 (196+C) 300

line 0 (196+C) 300 (196+C)

line 0 (146+C) 3000 (146+C)

line 0 (96+C) 300 (96+C)

}

repeat A 0 8

{

pen 55 55 55

line 96 (146+A) 104 (146+A)

line 96 (196+A) 104 (196+A)

line 196 (196+A) 204 (196+A)

line 146 (96+A) 154 (96+A)

line 146 (146+A) 154 (146+A)

line 146 (196+A) 154 (196+A)

line 104 (96+A) 96 (96+A)

line 196 (146+A) 204 (146+A)

line 196 (96+A) 204 (96+A)

}

格紋四

// enter program

paper 100 80 60

size 300 300 2

repeat E 0 1

{

pen 50 80 80

line 0 (250+E) 300 (250+E)

line 0 (50+E) 300 (50+E)

line (250+E) 0 (250+E) 300

line (50+E) 0 (50+E) 300

}

repeat D 0 2

{

pen 100 80 60

line 0 (80+D) 300 (80+D)

line 0 (64+D) 300 (64+D)

line 0 (32+D) 300 (32+D)

line 0 (16+D) 300 (16+D)

line 0 (0+D) 300 (0+D)

line 0 (218+D) 300 (218+D)

line 0 (234+D) 300 (234+D)

line 0 (266+D) 300 (266+D)

line 0 (282+D) 300 (282+D)

line (80+D) 0 (80+D) 300

line (64+D) 0 (64+D) 300

line (32+D) 0 (32+D) 300

line (16+D) 0 (16+D) 300

line (0+D) 0 (0+D) 300

line (218+D) 0 (218+D) 300

line (234+D) 0 (234+D) 300

line (266+D) 0 (266+D) 300

line (282+D) 0 (282+D) 300

}

repeat C 0 8

{

pen 70 70 70

line (96+C) 0 (96+C) 300

line (146+C) 0 (146+C) 300

line (196+C) 0 (196+C) 300

line 0 (196+C) 300 (196+C)

line 0 (146+C) 3000 (146+C)

line 0 (96+C) 300 (96+C)

}

repeat A 0 8

{

pen 55 55 55

line 96 (146+A) 104 (146+A)

line 96 (196+A) 104 (196+A)

line 196 (196+A) 204 (196+A)

line 146 (96+A) 154 (96+A)

line 146 (146+A) 154 (146+A)

line 146 (196+A) 154 (196+A)

line 104 (96+A) 96 (96+A)

line 196 (146+A) 204 (146+A)

line 196 (96+A) 204 (96+A)

}

格紋五

// enter program

paper 100 80 80

size 300 300 2

repeat A 0 25

{

pen 90 60 60

line (25+A) 0 (25+A) 300

line (250+A) 0 (250+A) 300

line 0 (25+A) 300 (25+A)

line 0 (250+A) 300 (250+A)

}

repeat B 0 25

{

pen 80 50 50

line 25 (250+B) 50 (250+B)

line 25 (25+B) 50 (25+B)

line 250 (250+B) 275 (250+B)

line 250 (25+B) 275 (25+B)

}

repeat G 0 2

{

pen 100 100 100

line 0 (80+G) 300 (80+G)

line 0 (64+G) 300 (64+G)

line 0 (32+G) 300 (32+G)

line 0 (16+G) 300 (16+G)

line 0 (0+G) 300 (0+G)

line 0 (218+G) 300 (218+G)

line 0 (234+G) 300 (234+G)

line 0 (266+G) 300 (266+G)

line 0 (282+G) 300 (282+G)

line (80+G) 0 (80+G) 300

line (64+G) 0 (64+G) 300

line (32+G) 0 (32+G) 300

line (16+G) 0 (16+G) 300

line (0+G) 0 (0+G) 300

line (218+G) 0 (218+G) 300

line (234+G) 0 (234+G) 300

line (266+G) 0 (266+G) 300

line (282+G) 0 (282+G) 300}

格紋六

// enter program

paper 80 80 100

size 300 300 2

repeat A 0 25

{

pen 60 60 90

line (25+A) 0 (25+A) 300

line (250+A) 0 (250+A) 300

line 0 (25+A) 300 (25+A)

line 0 (250+A) 300 (250+A)

}

repeat B 0 25{pen 50 50 80

line 25 (250+B) 50 (250+B)

line 25 (25+B) 50 (25+B)

line 250 (250+B) 275 (250+B)

line 250 (25+B) 275 (25+B)

}

repeat G 0 2

{

pen 95 95 95

line 0 (80+G) 300 (80+G)

line 0 (64+G) 300 (64+G)

line 0 (32+G) 300 (32+G)

line 0 (16+G) 300 (16+G)

line 0 (0+G) 300 (0+G)

line 0 (218+G) 300 (218+G)

line 0 (234+G) 300 (234+G)

line 0 (266+G) 300 (266+G)

line 0 (282+G) 300 (282+G)

line (80+G) 0 (80+G) 300

line (64+G) 0 (64+G) 300

line (32+G) 0 (32+G) 300

line (16+G) 0 (16+G) 300

line (0+G) 0 (0+G) 300

line (218+G) 0 (218+G) 300

line (234+G) 0 (234+G) 300

line (266+G) 0 (266+G) 300

line (282+G) 0 (282+G) 300

}