Vẽ biểu tượng Biohazard bằng màu tùy ý trên nền màu khác biệt. Các tỷ lệ cụ thể đã được công bố trong số ra ngày 27 tháng 6 năm 1974 của Đăng ký Liên bang của Chính phủ Hoa Kỳ.

Chi tiết

• Là đầu ra, cho phép ghi vào một tệp (định dạng raster và vector) hoặc hiển thị trên màn hình đều được cho phép.

• Bạn có thể vẽ chỉ đường viền hoặc hình đầy.

• Nếu bạn sử dụng hình ảnh raster, bạn nên lấy một tham số (hoặc hai) làm đầu vào cho phép bạn điều chỉnh độ phân giải của đầu ra (ví dụ: chiều rộng / chiều cao).

• Nền ít nhất phải có kích thước của khung giới hạn của biểu tượng nhưng có thể lớn hơn.

• Xuất ra ký hiệu unicode là không đủ .

• Các tỷ lệ chính xác của khoảng cách được sử dụng được đưa ra trong sơ đồ sau (ban đầu từ đây ):

Tôi cũng đã cố gắng tạo một sơ đồ bổ sung với các phép đo tương tự mà hy vọng sẽ dễ đọc hơn một chút:

(Lấy cảm hứng từ một bài đăng trên 99% vô hình )

T-SQL, 442 441 426 355 349 344 byte

DECLARE @ VARCHAR(MAX)=REPLACE(REPLACE(REPLACE('DECLARE @a5MULTIPOINT((0 31),(19 -2),(-19 -2))'',@b5MULTIPOINT((0 39),(26 -6),(-26 -6))'',@5POINT(0 9)'',@d5LINESTRING(0 9,0 99,90 -43,0 9,-90 -43)''SELECT @a830%b821)%86)%d81)%d84%819))).STUnion(@827%820)).STIntersection(@b819)))'
,8,'.STBuffer('),5,' GEOMETRY='''),'%',').STDifference(@')EXEC(@)

Đã lưu hơn 70 byte bằng cách sử dụng REPLACE()cho các từ khóa dài và thực thi dưới dạng SQL động. Xem mã sau thay thế trong ảnh chụp màn hình dưới đây.

Tôi đã nhân đôi các giá trị tọa độ từ hình minh họa mẫu và di chuyển lên 9 đơn vị, để giảm số thập phân được hiển thị.

Điều này đã được thực hiện trong SQL 2017, sử dụng các tính năng không gian địa lý được giới thiệu trong SQL 2008. Rất nhiều hàm hình học tích hợp hữu ích, bao gồm STBuffer, cho tôi một cách đơn giản để xác định các vòng tròn có kích thước khác nhau xung quanh một điểm.

Hình ảnh đầu ra, với mã chú thích:

Để biết thêm vẽ T-SQL, xem Bunny Phục Sinh của tôi .

Để biết thêm các ứng dụng thực tế của công nghệ này trong SQL, hãy đọc bài viết này hoặc xem video này . SE thậm chí có một trang web liên quan, gis.stackexchange.com .

Chỉnh sửa:

1. Đã lưu 1 byte bằng cách thay đổi tọa độ từ 104 thành 99.
2. Đã lưu 15 byte bằng cách lấy STDifferencemột STUniontrong các đối tượng, thay vì từng đối tượng.
3. Đã lưu 71 byte bằng cách sử dụng REPLACE()các từ khóa lặp lại, sau đó thực thi dưới dạng SQL động. Hoàn nguyên Chỉnh sửa 2, để thay thế nhiều hơn STDifference.
4. Đã lưu 4 byte bằng cách di chuyển trung tâm lên 9 đơn vị, thay đổi một vài tọa độ thành các chữ số đơn (âm). Điều này cũng giải phóng số 5để sử dụng làm ký tự thay thế thay vì '#', tiết kiệm thêm 2 byte trên dấu ngoặc kép.
5. Đã lưu 5 byte bằng cách di chuyển )vào STDifferencechuỗi thay thế; cảm ơn, @Nicholas!

Tex + Tikz, 232 byte

43 byte được lưu bằng cách chuyển sang tex. Cảm ơn Phelype Oleinik

Một số byte được lưu nhờ Skillmon

\input tikz \tikz[x=1,y=1,white]{\def\f{\foreach\1in{90:,210:,330:}}\def\u{\draw[line width=}\def~{circle(}\f\fill[red](\122)~30);\f{\u2](0,)--(\111);\u8](\130)--(\160);\fill(\130)~21);}\fill~6);\u7,red]~23.5);\f\u2](\130)~20);}\bye

Với ngắt dòng và không có \def:

\input tikz
\tikz[x=1,y=1,white]{
\foreach\1in{90,210,330}\fill[red](\1:22)circle(30);
\foreach\1in{90,210,330}{
\draw[line width=2](0,0)--(\1:11);
\fill(\1:30)circle(21);
\draw[line width=8](\1:30)--(\1:60);
}
\fill(0,0)circle(6);
\draw[line width=7,red](0,0)circle(23.5);
\foreach\1in{90,210,330}\draw[line width=2](\1:30)circle(20);
}
\bye

Giải trình

Đây là một chút lỗi thời tôi sẽ sửa nó khi tôi có thể tìm ra làm thế nào để làm cho hình ảnh không phải là tuyệt vời

Ở đây tôi sẽ giải thích làm thế nào câu trả lời không nén giải quyết vấn đề. Tôi có thể tại một số điểm giải thích cách nén hoạt động. Đầu tiên chúng ta vẽ các vòng tròn lớn màu đen:

\foreach\x in{90,210,330}\fill(\x:21)circle(30);

Sau đó, chúng tôi vẽ một số dòng trắng:

\foreach\x in{90,210,330}\draw[white,line width=2cm](0,0)--(\x:11);

Sau đó, chúng tôi vẽ các vòng tròn màu trắng:

\foreach\x in{90,210,330}\fill[white](\x:30)circle(21);

Sau đó, chúng tôi thêm một vòng tròn màu trắng trung tâm:

\fill[white](0,0)circle(6);

Sau đó, chúng tôi thêm một annulus đen:

\draw[line width=7cm](0,0)circle(25.5);

Sau đó, chúng tôi loại bỏ các phần của annulus đen

\foreach\x in{90,210,330}\draw[white,line width=2cm](\x:30)circle(20);

C, 8010 byte

Quay trở lại, trước SVG hoặc EMF, bạn phải đối phó với raster và nếu bạn muốn tải thứ gì đó ngay lập tức, hãy nói trước khi O / S sẵn sàng, như màn hình khởi động Windows, bạn phải sử dụng RLE hoặc chạy dài - mã hóa. Quái vật này xuất ra tệp PBM sử dụng RLE làm dữ liệu. Xây dựng như bình thường và chạy như thế này ./biohazard > biohazard.pbm.

Nếu bạn bao gồm tất cả các khung cần thiết để tạo, ví dụ: công cụ SVG trong HTML, các thư viện Java, v.v ... thì đây có thể là giải pháp độc lập nhỏ nhất , bởi vì putslà chức năng bên ngoài duy nhất và thường là một trong những chức năng nhỏ nhất stdio.hchức năng.

Về chi tiết này:

Nếu bạn sử dụng hình ảnh raster, bạn nên lấy một tham số (hoặc hai) làm đầu vào cho phép bạn điều chỉnh độ phân giải của đầu ra (ví dụ: chiều rộng / chiều cao).

Tôi giải thích "nên" như khác nhau từ "phải", ví dụ như trong RFC 2119 , vì vậy tôi đã không bao gồm mở rộng quy mô, bởi vì đối với mã này nó chỉ sẽ là khả thi để làm bội số của bản gốc, ví dụ ./biohazard 2và đó sẽ giới thiệu atoi, printfvà khác các biến chứng sẽ làm mất tập trung chính của bài nộp.

int o,i,x[]=
{4946,3,33,2,389,8,33,8,378,13,33,13,369,17,33,16,363,20,33,20,356,19,41,19,350,18,49,18,344,18,55,18,339,17,61,17,334,
17,66,17,330,17,71,17,325,17,75,17,321,17,79,17,317,17,83,17,313,17,87,16,311,16,90,17,307,17,93,17,303,17,97,17,300,
17,99,17,297,17,102,18,293,18,105,17,291,18,107,18,288,17,110,18,285,18,113,17,283,18,115,18,280,18,117,18,277,19,119,
18,275,19,121,19,272,19,123,19,270,19,125,19,268,19,127,19,266,19,129,19,263,20,131,19,261,20,133,19,259,20,134,20,257,
20,136,20,255,21,137,20,253,21,139,20,251,21,141,20,249,21,142,21,248,21,143,21,246,21,145,21,244,21,146,22,242,22,147,
22,240,22,149,22,238,22,150,22,238,22,151,22,236,22,152,23,234,23,153,23,232,23,155,22,232,23,155,23,230,23,157,23,228,
24,157,24,226,24,159,23,226,24,159,24,224,24,160,25,222,25,161,24,222,24,162,25,220,25,163,25,219,25,163,25,218,25,164,
26,216,26,165,25,216,26,165,26,214,26,166,26,214,26,167,26,212,27,167,26,212,26,168,27,210,27,169,27,209,27,169,27,208,
27,170,28,207,27,170,28,206,28,171,27,206,28,171,28,204,29,171,28,204,28,172,29,202,29,172,29,202,29,173,29,201,29,173,
29,200,30,173,29,200,30,173,30,198,31,173,30,198,30,174,31,197,30,174,31,196,31,174,31,196,31,175,31,195,31,175,31,194,
32,175,31,194,32,175,32,193,32,175,32,193,32,175,32,192,33,175,32,192,33,175,33,191,33,175,33,190,34,175,33,190,34,175,
33,190,34,175,34,189,34,174,35,189,34,174,35,188,35,174,35,188,35,174,36,187,36,173,36,187,36,173,36,187,36,173,36,186,
37,74,25,74,36,186,37,67,39,67,36,186,37,62,49,61,38,185,37,58,57,57,38,185,38,53,64,54,38,185,38,50,71,50,38,185,38,
47,76,48,38,185,38,45,81,44,39,184,40,41,87,41,39,184,40,39,91,39,39,184,40,37,95,37,39,184,40,35,99,34,41,183,41,32,
103,32,41,183,41,30,107,30,41,183,41,28,111,27,42,183,42,25,115,25,42,183,42,24,117,24,42,183,42,22,121,21,43,183,43,
19,124,20,43,183,43,18,127,18,43,183,43,17,129,16,44,183,44,14,133,14,44,183,44,13,135,12,45,183,45,11,137,11,45,183,
45,10,139,9,46,183,46,9,138,10,46,183,46,10,137,9,47,183,47,9,136,10,47,183,47,10,135,9,48,183,48,10,56,20,57,10,48,
183,49,9,50,33,49,10,48,184,49,10,45,41,45,10,48,184,50,10,40,49,40,10,49,184,50,10,37,55,36,10,50,185,50,10,33,60,34,
10,50,185,51,10,30,65,30,10,51,185,51,11,27,69,27,10,52,185,52,10,25,73,24,11,52,185,53,10,22,77,21,11,53,185,53,11,19,
81,19,10,53,186,54,11,16,85,16,10,54,185,56,11,13,88,14,11,56,181,59,11,11,91,11,11,59,176,63,11,8,94,9,11,63,171,66,
11,6,97,6,11,66,167,68,12,4,99,4,11,69,163,71,12,1,102,2,11,72,159,74,126,75,155,77,124,78,151,80,123,79,149,82,120,83,
145,85,118,86,141,88,116,88,139,90,114,91,135,93,112,93,133,96,109,96,130,98,107,98,127,101,104,102,124,104,101,104,
122,106,99,106,119,110,95,109,117,112,93,112,114,115,89,115,112,118,85,118,110,120,82,121,107,124,78,124,105,127,74,
127,103,131,69,130,101,134,65,133,99,137,60,137,97,141,54,141,95,146,47,145,93,151,39,150,91,157,29,156,89,166,13,165,
88,168,9,168,86,169,9,169,84,170,9,170,82,171,9,171,80,172,9,171,79,173,9,172,78,173,9,173,76,174,9,174,74,175,9,175,
72,176,9,175,72,176,9,176,70,177,9,177,68,64,20,93,10,94,20,63,68,57,34,83,17,83,33,58,66,54,42,77,21,76,43,54,64,51,
50,71,25,71,49,51,64,48,57,65,29,65,56,49,62,46,63,61,31,61,62,47,60,45,67,58,33,58,67,44,60,43,71,55,35,54,72,43,58,
41,36,8,32,52,37,51,33,8,35,41,58,40,36,17,26,49,39,48,27,16,37,40,56,39,38,22,23,46,41,45,24,21,39,39,55,37,40,26,21,
43,42,44,21,26,40,37,54,36,42,29,20,41,43,41,20,29,42,36,53,35,43,29,21,39,44,39,22,29,43,35,52,34,45,29,23,37,45,37,
23,29,45,34,51,33,46,29,24,35,46,35,25,29,46,33,50,32,48,29,26,33,47,33,26,29,47,33,49,31,49,29,27,32,47,32,27,29,49,
31,48,31,49,30,28,30,48,30,29,29,50,31,47,29,51,30,30,28,49,28,30,29,51,30,46,29,52,29,32,27,49,27,31,29,53,28,46,28,
53,29,33,26,49,26,32,29,54,28,44,28,54,29,34,25,49,25,33,29,55,27,44,27,55,29,35,24,49,23,35,29,56,27,43,26,56,29,36,
22,50,22,36,29,57,26,42,26,57,29,37,21,50,21,37,29,58,26,41,25,58,29,38,21,49,20,38,29,59,25,40,25,59,29,39,20,49,19,
39,29,60,24,40,24,60,29,40,19,49,19,39,29,61,24,39,23,61,29,41,18,49,18,40,29,62,23,38,23,62,30,41,17,49,17,41,29,63,
22,38,22,63,30,42,16,48,17,42,29,63,23,37,21,65,29,43,16,47,16,43,29,64,22,36,22,65,29,43,16,47,15,44,29,65,21,36,21,
66,29,44,13,50,14,44,29,66,21,35,20,67,29,45,11,53,11,45,29,67,20,34,20,68,29,46,8,57,8,46,29,67,20,34,20,68,29,46,6,
61,5,46,30,68,19,34,19,69,29,47,4,63,4,46,30,69,19,33,18,70,30,47,1,67,1,47,29,70,19,32,19,70,30,163,29,71,18,32,18,71,
30,61,2,37,2,61,29,72,18,31,17,73,29,59,5,35,5,58,30,72,18,31,17,73,29,58,7,33,7,57,30,73,17,30,17,74,30,55,10,31,10,
55,30,73,17,30,17,74,30,53,13,28,14,53,30,74,16,30,16,75,30,51,17,25,16,52,29,75,17,29,16,76,29,50,20,21,19,50,30,76,
16,29,15,77,30,50,21,16,22,50,30,77,15,29,15,77,30,50,26,7,25,51,30,77,15,28,15,78,30,51,57,50,30,78,15,28,15,78,31,50,
56,51,30,79,15,27,14,80,30,51,55,51,30,79,15,27,14,80,30,51,55,50,31,80,14,27,13,81,31,51,53,51,30,81,14,27,13,82,30,
51,53,51,30,82,13,27,13,82,31,50,52,51,31,82,13,26,13,83,31,51,51,51,31,82,13,26,13,83,31,51,51,50,31,84,12,26,13,84,
31,50,50,51,31,84,12,26,12,85,31,51,49,50,32,84,13,25,12,85,32,50,49,50,31,86,12,25,12,86,31,50,48,50,32,86,12,25,11,
87,32,50,47,50,32,86,12,25,11,87,32,50,47,49,32,88,11,25,11,88,32,49,47,49,32,88,11,25,11,88,32,49,46,49,32,89,11,25,
10,90,32,49,45,49,32,89,11,25,10,90,33,48,45,48,33,90,10,25,10,91,32,48,45,47,33,91,10,25,10,91,33,47,44,48,33,91,10,
25,10,91,34,46,44,47,33,92,10,25,9,93,33,47,43,46,34,92,10,25,9,93,34,46,43,46,33,93,10,25,9,94,34,45,43,45,34,94,9,25,
9,94,35,44,43,44,34,95,9,25,9,95,34,44,42,44,35,95,9,25,9,95,35,43,42,44,34,96,9,25,9,96,35,42,42,43,35,96,9,25,8,97,
36,42,41,42,35,97,9,25,8,98,36,41,41,41,36,97,9,25,8,99,36,40,41,40,36,98,8,26,8,99,37,39,41,39,36,99,8,26,8,100,37,38,
41,38,37,99,8,27,7,100,38,37,41,37,37,101,7,27,7,101,38,36,41,36,38,101,7,27,7,102,38,35,41,35,38,102,7,27,7,102,39,34,
41,34,38,103,7,27,7,103,39,33,41,33,39,103,7,27,7,104,39,32,41,32,39,104,7,27,7,104,41,30,41,30,40,104,7,29,6,105,41,
29,41,29,40,105,7,29,6,106,41,28,41,28,41,105,7,29,6,107,42,26,41,26,42,106,7,29,6,108,42,25,41,25,42,107,7,29,7,107,
44,22,42,23,43,108,6,30,7,108,44,21,42,21,45,108,6,31,6,109,45,19,42,20,45,109,6,31,6,110,46,17,43,17,46,110,6,31,6,
111,47,15,43,15,47,111,6,31,6,112,48,13,43,13,48,112,5,33,5,113,49,11,43,10,50,112,6,33,5,114,50,9,43,9,50,113,6,33,6,
113,50,8,44,9,49,114,6,33,6,114,48,9,45,8,48,115,5,35,5,115,47,9,45,8,47,116,5,35,5,117,45,8,46,9,45,116,6,35,6,117,44,
8,46,9,44,117,5,37,5,118,42,9,47,8,43,118,5,37,5,119,41,9,47,9,41,119,5,37,5,120,40,8,48,9,40,119,5,39,5,120,39,8,48,9,
38,121,5,39,5,121,37,9,49,8,37,122,5,39,5,123,35,9,49,9,35,123,4,41,5,123,34,8,50,9,34,123,5,41,5,124,32,9,51,9,31,125,
5,42,3,127,30,9,51,9,30,127,3,43,1,130,28,9,52,9,29,130,1,176,26,9,53,9,26,310,24,9,54,9,24,314,22,9,55,9,22,317,20,9,
55,9,20,320,18,9,56,10,17,324,15,10,57,9,16,327,13,9,58,10,13,331,10,10,59,9,11,335,8,9,60,10,8,339,5,10,61,9,6,344,2,
9,62,10,2,358,63,368,65,367,65,366,67,365,67,364,69,362,70,362,71,360,73,358,75,356,76,356,77,354,79,352,81,350,82,349,
84,215,2,130,86,130,3,79,5,129,87,128,6,77,6,127,89,126,6,79,6,125,91,124,7,80,6,123,93,122,7,82,6,121,95,120,7,84,6,
119,97,118,7,86,7,115,100,116,7,87,8,113,102,114,7,89,8,111,105,111,7,91,8,109,107,109,7,93,8,107,109,106,9,94,9,103,
112,104,9,96,9,101,115,101,9,98,10,97,118,98,10,100,10,95,121,95,10,102,11,91,124,92,11,104,11,89,127,88,11,107,12,85,
131,85,11,110,12,81,135,81,12,112,13,77,138,78,13,114,14,73,143,73,14,116,15,69,72,2,73,69,15,118,17,63,74,5,73,64,16,
122,17,59,75,7,75,58,18,124,19,53,77,9,77,53,19,126,22,45,79,13,78,46,21,130,24,37,82,15,81,38,24,132,28,27,85,18,86,
27,28,135,37,5,95,21,95,5,37,138,134,24,135,141,131,27,131,144,128,31,127,148,124,34,125,151,121,37,121,155,117,41,117,
159,113,45,113,163,109,49,109,167,105,53,105,171,101,57,101,175,96,62,96,181,91,67,91,185,86,72,86,191,80,78,81,196,74,
84,74,204,67,91,67,211,59,99,59,219,51,107,51,228,40,119,39,242,25,133,25,5311,0};
main(){for(puts("P1\n432 408");x[i];++i,o=!o)while(x[i]--)puts(o?"0":"1");}

TeX + Ti k Z, 234 230 226 byte

Ban đầu dài hơn 5 byte so với câu trả lời của Sriotchilism O'Zoms , nhưng điều này nên chính xác. Nó tương tự như câu trả lời của anh ấy nhưng tiết kiệm thêm một vài byte ở đây và ở đó, nó cần \draw[line width=8]thêm một (trong đoạn mã dưới đây được thực hiện bởi \28](~30)to(~55);, đó là 17 byte chỉ được thêm vào cho điều này) để có được các mẹo của biểu tượng, do đó 5 byte tổng chiều dài mã hơn.

Và nhờ có Sriotchilism O'Z cổ tôi đã đọc lại một số câu hỏi và nhận ra rằng tôi có thể thay đổi màu thành màu đỏ, để tiết kiệm một vài byte một lần nữa:

\input tikz\let~\def~\1{circle(}~\2{\draw[line width=}~~{\foreach~in{90:,210:,330:}}\tikz[x=1,y=1,white]{~\fill[red](~22)\130);~{\fill(~30)\121);\28](~30)to(~55);\22](~0)to(~10);}\fill\16);\27,red]\123.5);~\22](~30)\120);}\bye

TeX-g + Ti k Z, 195 byte

Chỉ cần ai đó quan tâm, những điều sau đây sử dụng phương ngữ golf mã dựa trên TeX mà tôi đang làm việc (không xem mã ổn định). Số byte bao gồm các ký tự EOL và ký tự EOF, vì chúng được sử dụng theo ngữ nghĩa (EOL phân định các đối số của các vòng lặp). Cho đến nay, phương ngữ này khá nhỏ và chỉ có tính năng viết tắt cho các định nghĩa và cú pháp vòng lặp, tuy nhiên nó không được viết riêng cho câu trả lời này, vì vậy nó không nên phá vỡ quy tắc chơi golf. Kho lưu trữ cho -g.tex-package / tệp: https://github.com/Skillmon/TeX-g

\input-g <tikz>~"{\:~{90:,210:,330:}}~'{circle(}~_{\draw[line width=}!f\fill\tikz[x=1,y=1,white]{"f[red](~22)'30);
"f(~30)'21);_8](~30)to(~55);_2](~0)to(~10);
f'6);_7,red]'23.5);"_2](~30)'20);
}

Đầu ra của cả hai đoạn mã trông giống hệt nhau:

( quá lười để cập nhật hình ảnh, chỉ cần tưởng tượng nó có màu đỏ )

GLSL, 700 629 564 545 499 byte

#define v vec2
#define j(x,r)length(x-g)<r
#define k(x,r,q)j(x,q)!=j(x,r)
#define l(b)length(g-b)<1.&&length(g-dot(g,b)*b)<(length(g)<S?A*S:A/S)
float C=.86,S=.5,F=.3,E=.22,A=.02,G=.21;void mainImage(out vec4 o,in v p){v r=iResolution.xy;v g=(p/S-r)/r.y;o.g=(k(v(0,F),G,G-A)||k(v(F*C,-F*S),G,G-A)||k(v(-F*C,-F*S),G,G-A))?o.g=0.:k(v(0),F,G)?C:l(v(0,1))||l(v(C,-S))||l(v(-C,-S))||j(v(0),.06)||j(v(0,F),G)||j(v(F*C,-F*S),G)||j(v(-F*C,-F*S),G)?0.:j(v(0,E),F)||j(v(E*C,-E*S),F)||j(v(-E*C,-E*S),F)?C:0.;}

Tôi đã chơi xung quanh với Shadertoy, vì vậy tôi đã thử ngôn ngữ tạo bóng GLSL. Mã chỉ quét các vòng tròn và đường bằng cách kiểm tra từng đoạn và gán cho chúng một giá trị là một hoặc không. Kích thước đã được cắt giảm từ> 1000 byte bằng cách sử dụng macro.

Chương trình Shadertoy

SVG (HTML5), 434 410 321 byte

<svg><circle cx=60 cy=60 r=23.5 stroke-width=7 fill=#fff stroke=#000 /><use href=#g transform=translate(120,0)scale(-1,1) /><g id=g><use href=#p transform=rotate(120,60,60) /><use href=#p transform=rotate(240,60,60) /><path id=p stroke=#fff stroke-width=2 d=M55,60A5,5,0,0,1,60,55V50A20,20,0,0,1,58,10V7A31,31,0,0,0,29,43

Bây giờ dựa trên SVG của @ LevelRiverSt.

Đang xử lý, 371 368 byte

translate(width/2,width/2);scale(width/99);int i=0,b=204;float t=TAU/3;noStroke();for(;i<3;i++){fill(0);ellipse(0,-22,60,60);rotate(t);}for(;i<6;i++){fill(b);rect(-4,-60,8,16);ellipse(0,-30,42,42);rotate(t);}ellipse(0,0,12,12);stroke(0);strokeWeight(7);noFill();ellipse(0,0,47,47);for(;i<9;i++){strokeWeight(2);stroke(b);ellipse(0,-30,40,40);line(0,0,0,-9);rotate(t);}

Tôi không chắc liệu Xử lý có được tính là rasterized hay không cho mục đích của thử thách này. Nếu nó được tính là rasterized, translatevà scalecần thiết để làm cho biểu tượng dễ đọc và trên màn hình cho một kích thước cửa sổ nhất định. Nhưng, bởi vì tất cả các lệnh vẽ được vector hóa, nó hoạt động ở bất kỳ tỷ lệ nào; vì vậy nếu chúng ta giả sử bản vẽ ở gốc tương đối rộng khoảng 200 đơn vị thì có thể bỏ 43 byte đầu tiên.

Điều này giả sử màu nền là 204, 204, 204màu nền mặc định đang xử lý. Nó cũng giả định một rectModesố CORNERvà một ellipseModesố CENTER(giá trị mặc định)

Với một bản gốc size(640, 640), bản phác thảo kết quả trông như thế này:

Bằng cách nhân đôi tỷ lệ, tôi đã lưu được 3 byte, vì .5s đã bị loại bỏ (mặc dù một số số có dòng chảy từ 1 chữ số đến 2 chữ số).

Cấu trúc tương tự như giải pháp TeX, vẽ màu đen và sau đó màu xám trên đầu để "xóa" các khoảng trống giữa hình dạng.

Giải trình:

translate(width/2,width/2); // Move to the middle of the canvas
scale(width/99);            // Scale up to fill the canvas

int i=0,b=204;              // Initialize i, and `b` to the background color
float t=TAU/3;              // Save a rotation of one third, in radians

noStroke();
for(;i<3;i++){ // Draw the three big black circles
  fill(0);
  ellipse(0,-22,60,60);
  rotate(t);
}
for(;i<6;i++){
  fill(b);
  rect(-4,-60,8,16);     // "Blunt" the corners on the sharp outer rings
  ellipse(0,-30,42,42); // Cut out the middle of the big circles
  rotate(t);
}
ellipse(0,0,12,12); // Cut out the small circle in the middle
stroke(0);
strokeWeight(7);
noFill();
ellipse(0,0,47,47); // Draw the thick band that goes through all three big circles
for(;i<9;i++){
  strokeWeight(2);
  stroke(b);
  ellipse(0,-30,40,40); // Cut the "gap" between the three big rings
                        //and the band passing through them
  line(0,0,0,-16);      // Cut the lines coming out of the small middle circle
  rotate(t);
}

GLSL 319 310 byte

#define F float
#define H(y)sqrt(x*x+(y)*(y))
void mainImage(out vec4 D,in vec2 u){vec2 U=u*.003-.5;F x=abs(U.x),y=U.y;if(y<.577*x){F t=.5*x+.866*y;y=.866*x-.5*y;x=abs(t);}F c=F(H(y-.11)<.15);F R=H(y);F S=H(y-.15);if(S<.105)c=0.;if(R<.03)c=0.;if(x<(R<.1?.005:.02))c=0.;if(R>.10&&R<.135&&S<.095)c=1.;D=vec4(c);}

Điều này có thể được hiển thị trên Shadertoy .

Bạn có thể sử dụng tính đối xứng trong hình ảnh để vẽ nó với số lượng hình dạng riêng biệt nhỏ hơn.

Đây là một phiên bản hơi thổi phồng:

#define F float
#define H(y) sqrt(x*x+(y)*(y))

void mainImage(out vec4 D,in vec2 u)
{
    // normalized UV
    vec2 U = u*.003 - .5;

    // fold the 6 identical sections to the same UV coordinates
    F x = abs(U.x), y = U.y;
    if (y < .577*x)
    {
        F t = .5*x + .866*y;
        y = .866*x - .5*y;
        x = abs(t);
    }

    // circles and lines
    F c = F(H(y-.11) < .15);
    F R = H(y);
    F S = H(y-.15);
    if (S < .105) c = 0.;
    if (R < .03) c = 0.;
    if (x < (R < .1 ? .005 : .02)) c = 0.;
    if (R > .10 && R < .135 && S < .095) c = 1.;

    // output
    D = vec4(c);
}

(cảm ơn @Kevin Cruijssen vì đã xóa một số khoảng trắng không cần thiết)

HTML / JS,  448 435 433  387 byte

Đã lưu nhiều byte bằng cách sử dụng phiên bản tối thiểu hóa của @ Neil của SVG
Đã lưu 2 byte nhờ @Shaggy

Một phiên bản nén của tệp SVG này từ Wikimedia Commons.

<body onload="_=`<svg~12y~24y><path id=p d=m28.8117,27.046a3,3}0qb3117q4.004v-1w539|1wq20.7959v-w583a1jxb7975x7.3228xj,8.6032x9.7443l-.4835q.2792|-18.7598q9.0989zm3.4148q8.871a10x0}0q1b453,c9w,9w{-kx3wx3w}1x6.8042,0x0x0{k>~><use href=#p transform=rotate(},cc|a10wx0w}c{}1qb1756,yc26,26) /x,1w.5q,-kb7417j5x5}1c0,b2.`;for(i of`bcjkqwxy{|}~`)with(_.split(i))_=b.innerHTML=join(pop())"id=b>

Hãy thử trực tuyến! (chỉ xuất ra chuỗi giải nén)

Đoạn giới thiệu

setTimeout(_ => document.getElementsByTagName('svg')[0].setAttribute("viewBox", "0 0 100 100"), 0)

<body onload="_=`<svg~12y~24y><path id=p d=m28.8117,27.046a3,3}0qb3117q4.004v-1w539|1wq20.7959v-w583a1jxb7975x7.3228xj,8.6032x9.7443l-.4835q.2792|-18.7598q9.0989zm3.4148q8.871a10x0}0q1b453,c9w,9w{-kx3wx3w}1x6.8042,0x0x0{k>~><use href=#p transform=rotate(},cc|a10wx0w}c{}1qb1756,yc26,26) /x,1w.5q,-kb7417j5x5}1c0,b2.`;for(i of`bcjkqwxy{|}~`)with(_.split(i))_=b.innerHTML=join(pop())"id=b>

Haskell , 530 491 436 435 430 420 byte

f=fromIntegral
c(a,b)r(x,y)=(x-a)^2+(y-b)^2<r^2
(m#w)t(x,y)|c<-cos(-t),s<-sin(-t)=x*c-y*s>m&&abs(x*s+y*c)<w/2
u a p=any($p)a
i a p=all($p)a
v=(*(pi/6))<$>[9,5,1]
o=c(0,0)
h?r=[c(h*cos a,h*sin a)r|a<-v]
(h%y)x|u[i[u$11?15,(not.)$u$o 3:map(0#1)v++map(9#4)v++15?10.5],i[o 13.5,not.(o 10),u$15?9.5]](60*f x/h-30,60*f y/h-30)="0 "|0<1="1 "
g h|s<-show h,n<-[0..h-1]=writeFile"a.pbm"$unlines$"P1":(s++' ':s):[n>>=(f h%)y|y<-n]

Xuất ra một tệp PBM.

Điều này đã được rất nhiều niềm vui!

(Tôi đã phải chuyển đổi nó thành PNG để tải lên imgur)

Về cơ bản, chúng tôi tạo ra các chức năng đồ họa vector của riêng mình, hiển thị trên pixel hình ảnh bằng pixel bằng cách phát hiện xem pixel có phải là một phần của hình dạng hay không. Hình dạng được xây dựng như một bó các vòng tròn và đường (tỏa ra từ gốc) được tổ chức cùng với các thao tác thiết lập cơ bản: hợp, giao, và không. Các vòng tròn bao gồm tâm và bán kính của chúng, và các đường có bán kính tối thiểu, chiều rộng và góc theo thứ tự đó. Phát hiện thành viên trong một vòng tròn rất dễ dàng: Tôi chỉ cần trừ các cuộn dây trung tâm và so sánh độ lớn với bán kính. Đường này phức tạp hơn một chút: Tôi xoay điểm theo góc đối diện để đưa nó (để vô hiệu hóa phép quay) sau đó tôi chỉ kiểm tra xem tọa độ x và y có nằm trong phạm vi dự kiến ​​hay không. Bán kính tối thiểu là để đảm bảo khoảng cách lớn hơn ở đầu xa của các vòng tròn lớn không ghi đè lên các khoảng trống nhỏ gần trung tâm. Sau đó, đó là một vấn đề đơn giản về logic boolean để thực hiện toán học.

EDIT: Cảm ơn rất nhiều đến @flawr vì đã gỡ 39 byte!

EDIT2: Cảm ơn rất nhiều đến @Christian Sievers vì đã lấy đi 55 byte! Ý tưởng tốt làm cho chúng thành các chức năng

EDIT3: Một lần nữa xin cảm ơn @Christian Sievers vì đã loại bỏ một byte khác!

EDIT4: Giảm 7 byte nhờ @ H.PWiz và @Angs!

EDIT5: Chỉ cần nhận thấy một lỗi! Tôi đã vẽ các đường kẻ dày gấp đôi so với lẽ ra phải có! Chi phí cho tôi 2 byte để sửa nó (phải chia chiều rộng cho 2; có thể điều chỉnh các giá trị không đổi nhưng thay đổi 1 thành 0,5 cũng sẽ tốn 2).

EDIT6: Cảm ơn @Angs đã lấy thêm 10 byte!

Ruby , 278 byte

puts"<svg viewBox='-60-60 120 120'><circle cx='0'cy='0'r='23.5'stroke-width='7'fill='white'stroke='red'/>",(-3..5).map{|i|"<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(#{i/3},-1)rotate(#{i*120})'/>"}

Hãy thử trực tuyến!

Tạo mã SVG bên dưới, với ký hiệu là 200% tỷ lệ trong OP.

Nó bao gồm một vòng tròn ở phía sau và các ngạnh ở phía trước. Các ngạnh được thu nhỏ -1,0,1theo Xtrục và xoay qua bội số 120 độ. Các trường hợp Xtỷ lệ bằng không tạo ra đầu ra, trong khi -1và +1. cung cấp hai mặt của mỗi cặp ngạnh.

Sử dụng được làm bằng một đường viền trắng rộng 2 đơn vị xung quanh ngạnh để cắt vòng tròn phía sau, sử dụng các thuộc tính strokevà stroke-width. Để hình dạng bên trong được đặt trên OP, tọa độ được di chuyển 1 đơn vị (một nửa chiều rộng của đường viền.) Lưu ý rằng đường dẫn được cố tình không đóng, để chặn bản vẽ của đường viền cuối cùng. Điều này đảm bảo hai nửa của mỗi cặp ngạnh kết hợp với nhau.

90 độ của vòng tròn bên trong được vẽ thay vì 60 dự kiến, vì lý do chơi golf. Điều này có nghĩa là có một số chồng chéo giữa các cơ sở của từng cặp ngạnh, nhưng điều này không ảnh hưởng đến sự xuất hiện của hình dạng đầu ra.

<svg viewBox='-60-60 120 120'><circle cx='0'cy='0'r='23.5'stroke-width='7'fill='white'stroke='red'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(-1,-1)rotate(-360)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(-1,-1)rotate(-240)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(-1,-1)rotate(-120)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(0,-1)rotate(0)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(0,-1)rotate(120)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(0,-1)rotate(240)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(1,-1)rotate(360)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(1,-1)rotate(480)'/>
<path fill='red'stroke='white'stroke-width='2'd='M5 0A5 5 0 0 1 0 5v5A20 20 0 0 1 2 50v3A31 31 0 0 0 31 17'transform='scale(1,-1)rotate(600)'/>

PostScript , 367 359 328 271 byte

Mã (phiên bản nén):

5 5 scale 36 24 translate <</c{0 360 arc closepath}/r{120 rotate}/R{repeat}/L{setlinewidth}/g{setgray}/F{fill}>>begin 3{0 11 15 c F r}R 1 g 3{0 15 10.5 c F r}R 0 0 3 c F 3{[-.5 2 1 3 -2 25 4 3]rectfill r}R 0 g 4 L 0 0 11.5 c stroke 1 g 1 L 3{0 15 10 c stroke r}R showpage

Mã (phiên bản không nén):

5 5 scale                  % over-all scale
36 24 translate            % over-all shift

% define some short-named procedures for later use
<<
  /c { 0 360 arc closepath }  % append circle (x, y, radius are taken from stack)
  /r { 120 rotate }           % rotate by 120°
  /R { repeat }
  /L { setlinewidth }
  /g { setgray }
  /F { fill }
>> begin

3 {
    0 11 15 c F       % black circle
    r                 % rotate by 120°
} R
1 g                   % set white color
3 {
    0 15 10.5 c F     % white circle
    r                 % rotate by 120°
} R
0 0 3 c F             % small white circle
3 {
    [ -.5 2 1 3       % white gap near center
      -2 25 4 3       % white gap on edge
    ] rectfill
    r                 % rotate by 120°
} R
0 g                   % set black color
4 L                   % set linewidth 4
0 0 11.5 c stroke     % black ring
1 g                   % set white color
1 L                   % set linewidth 1
3 {
    0 15 10 c stroke  % white ring
    r                 % rotate by 120°
} R
showpage

Kết quả (dưới dạng hoạt hình để xem nó được vẽ như thế nào):

Python 3 với pygame, 327 314 287 278 byte

(Áp dụng hacks khó chịu khác nhau để tiết kiệm 13 byte; đáng chú ý nhất không còn lưu trữ các màu nhưng tính nó một cách nhanh chóng với -(r>25))
(refactored hoạt động, mất sys; hack ra mathủng hộ phối hợp hằng; chỉnh nhỏ; đã lưu 27 byte)
(Viết lại phối hợp Các hằng số cho các thủ thuật toán học phức tạp để có được (co) sin , tiết kiệm 9 byte)

Hàm lấy một đối số nguyên duy nhất biểu thị một nửa chiều rộng / chiều cao của hình ảnh kết quả. Ví dụ: f(500)sẽ tạo một cửa sổ 1000x1000 pixel và vẽ biểu tượng nguy hiểm về mặt sinh học ở đó.

from pygame import*;D=display
def f(S):
 u=D.set_mode([S*2]*2);b=S>>6
 for p,r,w in(22,30,0),(30,20,0),(0,27,7),(30,21,2),(0,6,0),(51,4,0):
  for l in 0,4/3,8/3:Z=1j**l*p*b;q=S+int(Z.imag),S-int(Z.real);draw.circle(u,-(r>25),q,r*b,w*b);r-20or draw.line(u,0,(S,S),q,b*2);D.flip()

Phiên bản không giới hạn:

import pygame
import math
import sys

size = int(sys.argv[1])
basic = size // 55

screen = pygame.display.set_mode((size * 2, size * 2))

circles = [
    (22, 30, 0, -1),  # basic shape
    (30, 20, 0, 0),   # large cutouts
    (0, 27, 7, -1),   # "background circle"
    (30, 21, 2, 0),   # "background circle" clearance
    (0, 6, 0, 0),     # center disc
    (51, 4, 0, 0),    # blunt the points
]

for pos, radius, width, color in circles:
    for lobe in [0, math.pi * 2 / 3, math.pi * 4 / 3]:
        x = int(math.sin(lobe) * pos * basic) + size
        y = size - int(pos * basic * math.cos(lobe))
        pygame.draw.circle(screen, color, (x, y), radius * basic, width * basic)
        # Hack to draw the small slots in the center
        if radius == 20:
            pygame.draw.line(screen, 0, (size, size), (x, y), basic * 2)

pygame.display.flip()

Chìa khóa của chương trình này chủ yếu là khai thác tính đối xứng điểm 3 chiều của biểu tượng và thể hiện các thao tác vẽ càng ít càng tốt. Trung tâm của tất cả là circles, đó là một danh sách các định nghĩa vòng tròn, chỉ bao gồm:

• position: bao xa so với nguồn gốc trong một nửa đơn vị cơ bản
• radius: bán kính của vòng tròn tính bằng một nửa đơn vị cơ bản
• width: chiều rộng đường viền của vòng tròn (vào trong từ vòng tròn bên ngoài, 0 = điền)
• color: khai thác thực tế là pygame diễn giải 0là đen và -1trắng

Mỗi thao tác vẽ được lặp lại ba lần, xoay 120 °. Sự cùn của "móng vuốt" được thực hiện với một vòng tròn khác. Các "đường cắt" bên trong được đặc biệt bởi vì tôi không thể nghĩ ra cách nào hiệu quả hơn để đưa chúng vào đó. Các "đơn vị cơ bản" được định nghĩa trong đặc tả được nhân đôi ở đây vì vậy tôi không cần phải sử dụng .5trong circlesvà int()khắp nơi để đáp ứng pygame.

Kết quả cho python3 -c 'from biohazard import *; f(500)':

Tcl / Tk - 557 byte

set F #000
set B #F50
pack [canvas .c -bg $B]
rename expr e
rename foreach f
rename proc p
p R r {list [e $r*cos($::a)] [e $r*sin($::a)]}
p D {d r} {lassign [R $d] x y;list [e $x-$r] [e $y-$r] [e $x+$r] [e $y+$r]}
p C {d r c} {.c cr o {*}[D $d $r] -f $c -outline $c}
p L {p q w} {.c cr l {*}[R $p] {*}[R $q] -w [e $w] -f $::B}
p A {d r w c} {.c cr a {*}[D $d $r] -w [e $w] -star 0 -ex 359.9 -sty arc -outline $c}
f x {{C 11 15 $F} {C 15 10.5 $B} {L 0 5 1} {L 20 40 4} {C 0 3 $B} {A 0 11.75 3.5 $F} {A 15 10 1 $B}} {f a {2.62 4.72 6.81} $x}
.c move all 99 99

Phiên bản đó, tuy nhiên, thật nhàm chán, vì bạn nhận được cùng một hình ảnh kích thước nhỏ bất kể điều gì. Tuy nhiên, nó đáp ứng các điều kiện OP để hiển thị trên màn hình. Đây là phiên bản không nén với chú thích và khả năng chỉ định kích thước được thêm vào:

# Input: command line argument is the pixel width (same as the height) of the window to create
# For example:
#   wish a.tcl 500
set window_size $argv

set foreground_color #000
set background_color #F50
pack [canvas .c -bg $background_color -width $window_size -height $window_size]

# Helper procs to generate x,y coordinates
proc radius->x,y r {
  list [expr {$r*cos($::angle)}] [expr {$r*sin($::angle)}]
}

proc center_offset,radius->rectangle {offset r} {
  lassign [radius->x,y $offset] x y
  list [expr {$x-$r}] [expr {$y-$r}] [expr {$x+$r}] [expr {$y+$r}]
}

# Tk's canvas does not scale line widths, so we have to do that manually
# The $scale is a global variable for compressing the code text above
set scale [expr {$window_size*.016}]

# These three procs draw items in the canvas
proc circle {offset r color} {
  .c create oval {*}[center_offset,radius->rectangle $offset $r] -fill $color -outline $color
}
proc line {p q w} {
  .c create line {*}[radius->x,y $p] {*}[radius->x,y $q] -width [expr {$::scale*$w}] -fill $::background_color
}
proc annulus {offset r w color} {
  .c create arc {*}[center_offset,radius->rectangle $offset $r] -width [expr {$::scale*$w}] -start 0 -extent 359.9 -style arc -outline $color
}

# Our list of shapes to draw
#  circle  center_offset, radius,                   color
#  line    end_offset_1,  end_offset_2, line_width
#  annulus center_offset, radius,       line_width, color
foreach command {
  {circle  11 15        $foreground_color}
  {circle  15 10.5      $background_color}
  {line     0  5    1}
  {line    20 40    4}
  {circle   0  3        $background_color}
  {annulus  0 11.75 3.5 $foreground_color}
  {annulus 15 10    1   $background_color}
} {
  # Each command gets applied thrice, rotated $angle radians each time
  foreach angle {2.62 4.72 6.81} $command
}

.c scale all 0 0 $scale $scale
.c move all [expr {$window_size/2}] [expr {$window_size/2}]

# Some random convenience stuff for playing with it
bind . <Escape> exit
after 500 {focus -force .}

Xin lỗi, không có hình ảnh (làm việc tắt điện thoại của tôi ngày hôm nay). Tạo một biểu tượng màu đen trên nền màu cam sinh học.