Görev: İsviçre bayrağını çıkar.

İsviçre Ulusal Günü kutlu olsun / Schweizer Bundesfeiertag / Fête nationale suisse / Festa nazionale svizzera / Fiasta naziunala svizra!

Ayrıntılar: Bayrak, #FFFFFFkırmızı ( #FF0000) zeminindeki beyaz ( ) çarpıdan oluşur . Haç, her bir tarafa yapıştırılmış 6x7 boyutunda kollu 6x6'lık bir kareden oluşur. Haç, her bir tarafa 6 birim mesafeli 32x32 kare arka planın merkezindedir. ( Kaynak )

Çıktı boyutu katılımcı tarafından seçilebilir, ancak resim bu oranlarla tam olarak eşleşmelidir, bu, boyutunun 32 katı olması gerektiği anlamına gelir.

Minimal bir versiyon şöyle görünür:

SVG (HTML5), 94 83 82 64 bayt

<svg><path d=M0,0V32H32V0M6,13h7V6h6v7h7v6H19v6H13V19H6 fill=red

@ThePirateBay sayesinde 2 bayt kaydedildi. @ATaco sayesinde 1 bayt kaydedildi. @CraigAyre sayesinde 32 baytlık 32 x 32 görüntünün kabul edilebilir olduğuna işaret ederek 18 bayt kaydedildi. @Shaggy tarafından belirtildiği gibi, bu varsayılan arka planınızın beyaz olduğunu varsayar; Herhangi bir arka plan üzerinde çalışan bir bayrak için 22 bayt ekleyin:

<svg><path d=M0,0V32H32V0 fill=red /><path d=M6,13h7V6h6v7h7v6H19v6H13V19H6 fill=#FFF

x86-16 DOS için Makine Kodu, 43 bayt

               ; Draw 32x32 red square
B8 0C 28          mov  ax, 0x0C28   ; AL == color red, AH == set pixel function
B9 00 1F          mov  cx, 31
               DrawBox:
BA 00 1F          mov  dx, 31
               DrawRow:
CD 10             int  0x10
4A                dec  dx
75 FB             jnz  DrawRow
E2 F6             loop DrawBox

               ; Draw the interior white cross
B0 0F             mov  al, 0x0F    ; high byte already set
B1 06             mov  cl, 6       ; high byte already 0
               DrawCross:
B2 0D             mov  dl, 13      ; high byte already 0
               DrawCrossInner:
CD 10             int  0x10        ; plot CX, DX
87 D1             xchg dx, cx
CD 10             int  0x10        ; plot DX, CX
87 D1             xchg dx, cx
42                inc  dx
80 FA 12          cmp  dl, 13+6
75 F2             jne  DrawCrossInner
41                inc  cx
80 F9 19          cmp  cl, 6+(32-6-6)
75 EA             jne  DrawCross

C3                ret

Yukarıdaki kod, bir COM dosyası olarak birleştirilerek DOS altında çalıştırılmak üzere tasarlanmıştır. Bayrağın münferit piksellerini çizmek için ROM BIOS video servislerini çağırır ve ekranın sol üst köşesinde İsviçre bayrağının 32 × 32 gösterimini oluşturur.

Kod, video modunun zaten 0x13 moduna ayarlandığını varsayar; bu, VGA ekranı gerektirdiği anlamına gelir. Diğer video modları kullanılabilir, ancak VGA gerektiren size iki şey verir: (1) kare pikseller ve (2) gerçek% 100 kırmızı içeren bir varsayılan palet ( 0xFF0000) (paleti değiştirmek için bayt harcamak zorunda değilsiniz) renkler). Bu programı çalıştırmadan önce, ekranınızı 0x13 moduna getirmeniz gerekecektir; aşağıdaki kodu yapmanız gereken tek şey:

mov  ax, 0x13
int  0x10

Kod başka bir varsayımda bulunmaz ve DOS uyumlu bir işletim sistemi altında x86 uyumlu herhangi bir donanımda çalışmalıdır.

Bununla birlikte, program bayrağın çizilmesinden hemen sonra sona erer, bu nedenle DOS istemi normal olarak ekranın sol üst köşesine yeniden basılarak bayrağın ilk birkaç satırını kaplar. Bu nedenle, gerçek çıkışa şaşırtmak istiyorsanız, sistemi çalıştırmadan önce RETkapatmanız / duraklatmanız gerekir . İşte bir FreeDOS sanal makinesinde çalışan, nasıl göründüğünü gösteren bir ekran görüntüsü:

Piksel verilerini doğrudan video arabelleğine yazarak bunu daha da golf oynamak mümkün olabilir, özellikle de zaten 0x13 modunu kabul ediyorum. Bunu henüz denemedim. INT 0x10zaten çok kısa bir talimat, ancak bir baytlık dize komutlarını doğrudan veri belleğine piksel veri yazmak için kullanabilirsem, bu önemli bir kod tasarrufuna neden olabilir.

MATL , 29 bayt

2Y66t&Y"OJQht3$)6thYaQK7hBoYG

MATL Online'da deneyin !

açıklama

2Y6     % Push predefined literal: 3×3 matrix [0 1 0; 1 1 1; 0 1 0]
6t&Y"   % Repeat each entry 6 times in the two dimensions. Gives an 18×18 matrix
OJQh    % Push [0 1j+1]. Used as an index, this means [0 1 ... end+1]. Indexing
        % is 1-based and modular, so 0 is the same as end
t3$)    % Apply that index in the two dimensions. This extends by 1 entry in 
        % each dimension, so that the arms have length 7. Gives a 20×20 matrix
6thYa   % Pad with 6 zeros in the two dimensions. Gives a 32×32 matrix
Q       % Add 1. The matrix now contains values 1 (will become red) and 2 (white)
K7hBo   % Convert array [4 7] to binary. Gives [1 0 0; 1 1 1], to be used as
        % colormap. First row is red, second is white
YG      % Show image using colormap

Java 8, 246 + 42 = 288 bayt

-64 baytlık @Aaron'a teşekkürler. Uzantı olmadan
dosya çıktısı ile -4 bayt a.

import java.awt.*;import java.awt.image.*;
x->{BufferedImage i=new BufferedImage(32,32,1);Graphics g=i.getGraphics();g.setColor(Color.RED);g.fillRect(0,0,32,32);g.setColor(Color.WHITE);g.fillRect(13,6,6,20);g.fillRect(6,13,20,6);javax.imageio.ImageIO.write(i,"png",new java.io.File("a"));}

Bir istisna atan işlevsel bir arayüz yöntemine atanabilecek bir lamba ifadesi. aBu dosyayı çalıştıran dizinde (resim dosyası) adlı bir resim dosyası oluşturur .

Çalıştırmak için kullanılan çevreleyen kod: Çevrimiçi deneyin!

Ungolfed

x->{
    BufferedImage i=new BufferedImage(32,32,1);
    Graphics g=i.getGraphics();
    g.setColor(Color.RED);
    g.fillRect(0,0,32,32);
    g.setColor(Color.WHITE);
    g.fillRect(13,6,6,20);
    g.fillRect(6,13,20,6);
    javax.imageio.ImageIO.write(i,"png",new java.io.File("a"));
}

Sonuç

IntelliJ IDEA görüntü önizlemesi tarafından sağlanan ızgara (görünüşte).

Excel VBA, _{86 85} 79 Bayt

kod

Anonim vbe bir girdi alır ve dizi üzerine İsviçre bayrağı üretir hemen pencere fonksiyonu [A1:F32]bir ActiveSheetnesne. Bu, önce hücreleri kare yaparak, sonra kırmızı bölgeyi çizerek ve son olarak beyaz haçta çizerek çalışır.

Cells.RowHeight=48:[A1:AF32].Interior.Color=255:[G14:Z19,N7:S26].Interior.Color=-1

^{İsviçre bayrağının "haçını" kırmızı arka plana koyduktan sonra renklendirme adımını kaldıran düzenlemelerin aslında yukarıdaki konfigürasyondan daha uzun olduğuna dikkat edin; bayrak}

-1 bayt sayesinde Greedo en için @ RowHeight=48üzerindeColumnWidth=2

-6 Bayt -1yerine @ Greedo için teşekkürlerrgbWhite

Çıktı

C ++, SFML, 406 399 394 bayt

Pdpi sayesinde -2 bayt - Zacharý
sayesinde -10 bayt sayesinde

SFML (Basit ve Hızlı Multimedya Kütüphanesi) , video oyunları ve multimedya programlarının geliştirilmesini kolaylaştırmak için yazılmış bir C ++ kütüphanesidir.

Kod:

#include<SFML\Graphics.hpp>
using namespace sf;int main(){for(RenderWindow t(VideoMode(128,128),"");t.isOpen();){t.clear();RectangleShape r({128.f,128.f});r.setFillColor(Color::Red);t.draw(r);r.setFillColor(Color::White);r.setPosition({24.f,52.f});r.setSize({80.f,24.f});t.draw(r);r.rotate(90);r.setPosition({76.f,24.f});t.draw(r);t.display();for(Event e;t.pollEvent(e);)if(!e.type)t.close();}}

Bayrak 128x128 pencerede gösteriliyor. İşletim sisteminizin 128x128 bir pencere görüntüleyebilmesi gerekir (Win8.1'im daha küçük genişlikte görüntülenemiyor)

UYARI : Bu 2 kod satırını eklemek isteyebilirsiniz: bu t.setFramerateLimit(60);t.setVerticalSyncEnabled(true);nedenle, kodu çalıştırdığınızda CPU'nuz ısınmaz. Onları golf nedeniyle orjinal koda koymadım.

Braindraw, 227 bytes (Yarışmıyor) (Çalışması için güncellendi)

Ungolfed versiyonu (241 bayt)

r<<^++++++++[-^++++v]^[->>[>]>++++++++[-<++++>]<[<]<]>>[[-vv[v]-[^]^]>]vv<[<]>>>>>>>>>>>>>>vvvvvvg<<^^++++++[->>[>]>+++++[-<++++>]<[<]<]>>[[-vv[v]b-g-[^]^]>]<vv[<]><<<<<<<vvvvvvv<<^^++++++[-vv[v]++++++++++++++[^]^]vv[[->>[>]b[+]-g[+]-[<]<]v]

Hafif golf versiyonu (227 bayt)

r<<^++++++++[-^++++v]^[->>[>]>++++++++[-<++++>]<[<]<]>>[[-vv[v]-[^]^]>]vv<[<]g>>>>>>>>>>>>vvvv++++++[->>[>]>+++++[-<++++>]<[<]<]>>[[-vv[v]b-g-[^]^]>]<vv[<]<<<<<<vvvvv<<++++++[-vv[v]++++++++++++++[^]^]vv[[->>[>]b[+]-g[+]-[<]<]v]

Braindraw kendi tasarımımın programlama dilidir. Bugün öğleden sonra 3.10'dan itibaren çalışan bir tercümanım var ve programın düzgün çalıştığını kontrol ettim. Ancak, tercüman bu yarışma başlamadan önce yoktu, bu yüzden rekabet etmiyorum.

Braindraw, Brainf *** ile aynıdır, ancak tek boyutlu bir diziden ziyade üç boyutlu bir dizide çalışır. Bu dizilere r, g ve b denir ve kırmızı yeşil ve mavi renk kanalları olarak işlev görür. Operatör r, imleci kırmızı kanala vs. yönlendirir. Yukarı ^, aşağı v.

TI-BASIC (yalnızca TI-84 Plus C (S) E), 58 bayt

:For(A,0,31
:For(B,0,31
:Pxl-On(A,B,RED
:End
:End
:For(A,6,25
:For(B,13,18
:Pxl-Off(A,B
:Pxl-Off(B,A
:End
:End

Mathematica, 83 bayt

R=Rectangle;Graphics[{Red,{0,0}~R~{32,32},White,{6,13}~R~{26,19},{13,6}~R~{19,26}}]

bir sonraki @ @ ASCII'den (Şaka olduğunu düşündüm ama işe yarıyor!)

Mathematica, 23 bayt

"CH"~CountryData~"Flag"

-10 bayt @Jonathan Frech tarafından

HTML + CSS, 15 + 117 bayt = 132 bayt

İle bir flexbox sarıcı kullanma inset box-shadow.

b{display:flex;box-shadow:red 0 0 0 6px inset;padding:2px;width:28px;flex-wrap:wrap}a{border:solid red 4px;margin:3px

<b><a><a><a><a>

HTML + CSS, 18 + 139 137 122 bayt = 140 bayt

Kullanarak önceki cevap borderve negatif ile bir ara flexbox sarıcı margin.

i,b,a{display:inline-flex}i{border:solid red 6px}b{margin:-4px;width:28px;flex-wrap:wrap}a{border:solid red 4px;margin:3px

<i><b><a><a><a><a>

GraphicsMagick (?), 96 bayt

gm convert -size 32x32 xc:red -fill #fff -draw "rectangle 13,6 18,25 rectangle 6,13 25,18" 1.bmp

GM ile nasıl golf oynayacağınızdan emin değil (bu bir dil olarak mı düşünülmeli?). Ayrıca burada baytları nasıl sayacağımdan da emin değilim.

GM yüklüyken, verilen kodu windows cmd'ye yazın, adında bir görüntü elde edin 1.bmp. Bash kullanıyorsanız çift alıntıyı tek bir alıntıya çevirmek isteyebilirsiniz (çalışması gerekir, ancak bunu test etmedim).

Dijital Travma sayesinde. yalnızca bir tane -drawkaydet 8 bayt kullan

JavaScript + HTML, 99 + 13 = 112 bayt

User2428118 sayesinde 2 bayt
kaydedildi Matheus Avellar ile 2 bayt kaydedildi

JSFiddle

with(c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),clearRect(6,13,20,6),clearRect(13,6,6,20)

<canvas id=c>

Saf JavaScript, 194 129 bayt

JSFiddle

with(document.write`<canvas id=c>`,c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),clearRect(6,13,20,6),clearRect(13,6,6,20)

HTML4’te (?) JavaScript (ES6), 178 176 bayt

document.write('<table cellspacing=0>'+[...Array(32)].map((_,y,p)=>p.map((_,x)=>`<td bgcolor=${x>5&&x<26&&y>12&&y<19||y>5&&y<26&&x>12&&x<19?'#fff':'red'}>`).join``).join`<tr>`)

Evet! Biz gerek yok <canvas>ne de <svg>hatta <img>!

Justin Mariner sayesinde, 2 bayt tasarruf edin.

Löve2D , 139 138 Bayt

l=love g=l.graphics c=g.setColor r=g.rectangle f="fill"w=255 l.draw=loadstring"c(w,0,0)r(f,0,0,32,32)c(w,w,w)r(f,13,6,6,20)r(f,6,13,20,6)"

ThePirateBay sayesinde bir bayt kurtarıldı

Ungolfed

function love.draw()
    love.graphics.setColor(255,0,0)
    love.graphics.rectangle("fill",0,0,32,32)
    love.graphics.setColor(255,255,255)
    love.graphics.rectangle("fill",13,6,6,20)
    love.graphics.rectangle("fill",6,13,20,6)
end

Python 3 , 190 bayt

Çıktıyı farklı kaydet image.xpmve favori metin editörünle aç.

r=range;print('! XPM2\n32 32 2 1\nr c #FF0000\nw c #FFFFFF\n');d=[bytearray(b'r'*32)for _ in r(32)]
for i in r(20):
 for j in r(6):d[i+6][j+13]=d[j+13][i+6]=119
print(b'\n'.join(d).decode())

Çevrimiçi deneyin!

Çıktı:

! XPM2
32 32 2 1
r c #FF0000
w c #FFFFFF

rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrwwwwwwwwwwwwwwwwwwwwrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrwwwwwwrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

Perl 5 , 184 bayt

İçin 176 bayt kodu + 8 -Mutf8 -p.

Gerektiğinden tam olarak emin değilim, bu meta post'a göre sağlanan boş girişe güveniyor , bu da TIO'da çalışmıyor, böylece yeni bir hat sağlıyor (kullanılmıyor). Çıktı terminale ve şöyle görünür:

Oranlar, iki dikey 'piksel' olan bir karakter alanını temel alarak ölçeklendirilmelidir.

%a=qw(R 101 W 107 A 101;97 B 91;107);$_=R.($a="32 
"x3).($b="13 W6 R13 
"x3)."6 A7▄W6 A7▄"."R6 
6 W20 "x2 ."R6 
6 B7▄W6 B7▄R6 
$b$a";s/\d+(.)/$1x$&/ge;s/\pL/[$a{$&}m/g

Çevrimiçi deneyin!

Çıktıyı TIO'dan kopyalayıp buraya yapıştırarak önizleyebilirsiniz (bu, öğenin üzerine getirildiğinde kontrol karakterlerini gösterir) .

GFA BASIC (Atari ST), 62 bayt

.LST biçiminde el ile düzenlenmiş bir liste. Tüm satırlar CR, sonuncusu da dahil olmak üzere biter .

DEFFILL2
PBOX0,0,31,31
DEFFILL0
PBOX13,6,18,25
PBOX6,13,25,18

Genişletildi ve yorumlandı:

DEFFILL 2         ! set fill color: default system color #2 is red (&H700)
PBOX 0,0,31,31    ! draw the red square
DEFFILL 0         ! set fill color: default system color #0 is white (&H777)
PBOX 13,6,18,25   ! draw a vertical white rectangle
PBOX 6,13,25,18   ! draw a horizontal white rectangle

Çıktı

Çıkış 32x32.

Not: Bu gerçekten de 'beyaz' renk kullanıyor, ancak öykünücüye (ve parlaklığı oldukça yüksek hale getirmediğiniz sürece gerçek olana) gri bakıyor.

R, 171 140 bayt.

x = rep(c(6,13,19,26,19,13),e=2)
l=c(0,32)
par(bg="red",mar=0*1:4)
plot(0,0,'n',l,l,xaxs="i",yaxs="i")
polygon(x,c(x,x)[4:15],c="white",b=0)

(biraz) ungolfed:

x <- rep(c(6,13,19,26,19,13),each=2)
y <- c(x,x)[4:15] # index by 3 positions
par(bg="red",mar=c(0,0,0,0)) # prepare the plot space
plot(0,type='n', xaxs="i",yaxs="i",xlim=c(0,32),ylim=c(0,32))
polygon(x,y,col="white",border=0)

Bazı baytları kaydettiği için @gregor'a teşekkürler

Koş!

Octave, 105 bayt 73 bayt

_{Not: Satır sayımı, bayt sayısına dahil edilmeyen netlik için eklendi}

x(32,32,3)=0;
x(:,:,1)=1;
x(7:26,14:19,:)=1;
x(14:19,7:26,:)=1;
imshow(x*255)

EDIT: oldukça fazla bayt tasarrufu için kusur teşekkürler !

İşte octave-online.net üzerinde sonuç, sayesinde sanchises

GIF, 97 Bayt

GIF87a    ð  ÿ  ÿÿÿ,         @„©Ëí£œ´Ú;ƒÞXmÞ!ŸŠcyŒj¨,àZê<Cô
:8nïtï‹é‚BJ1tì$1ËKSvb=_ÔªõŠe  ;

Ucuz ve bayt ağır, ama buna değer.

EDIT: Bazı karakterler yukarıdaki kodda değil, işte GIF'in hexdumpı için bir pastebin var.

EDIT: çevrimiçi araçla 97 byte'a kadar sıkıştırılmış.

HTML + JavaScript (ES6), 13 + 112 = 125 bayt

C=c.getContext`2d`
C[s='fillStyle']='red'
C[r='fillRect'](0,0,32,32)
C[s]='#fff'
C[r](6,13,20,6)
C[r](13,6,6,20)

<canvas id=c>

HTML + JavaScript (ES6), 13 + 114 = 127 bayt

with(c.getContext`2d`)fillStyle='red',fillRect(0,0,32,32),fillStyle='#fff',fillRect(6,13,20,6),fillRect(13,6,6,20)

<canvas id=c>

C # 265/266 209 bayt

 using System;using c=System.Console;class P{static void Main(){for(int i=0,j;i<32;i++){for(j=0;j<32;j++){if((6<i&&i<26&&j>13&&j<19)||(6<j&&j<26&&i>13&&i<19))c.BackgroundColor=ConsoleColor.White;else c.BackgroundColor=ConsoleColor.Red;c.Write(" ");}c.WriteLine();}}}     

Arka Plan Rengini değiştirirken konsola "boşluk" karakterleri yazdım. Ancak çok uzun olduğunu düşünüyorsanız ve tek karakteri 8 x 16 piksel olarak sayıyorsanız, "j" yakınında değerleri iki katına çıkarırsınız (+ 1 bayt ve + c.ReadKey();böylece durur):

  using System;using c=System.Console;class P{static void Main(){for(int i=0,j;i<32;i++){for(j=0;j<64;j++){if((6<i&&i<26&&j>26&&j<38)||(12<j&&j<52&&i>13&&i<19))c.BackgroundColor=ConsoleColor.White;else c.BackgroundColor=ConsoleColor.Red;c.Write(" ");}c.WriteLine();} c.ReadKey(); }}     

TheLethalCoder sayesinde 56 bayt kaydedildi

 namespace System{using static Console;class P{static void Main(){for(int i=0,j;i<32;i++,WriteLine())for(j=0;j<32;Write(""))BackgroundColor=(ConsoleColor)((6<i&i<26&j>13&j<19)|(j++<26&i>13&i<19&6<j​)?15:12);}}}

Tikz, 145 143 bayt

\documentclass[tikz]{standalone}\begin{document}\tikz{\def~{)rectangle(}\fill[red](,~33,33);\fill[white](7,14~27,20)(14,7~20,27)}\end{document}

İşte "ungolfed"

\documentclass[tikz]{standalone}
\begin{document}
\tikz{
\def~{)rectangle(}
  \fill[red](,~33,33);
  \fill[white](7,14~27,20)(14,7~20,27)
}\end{document}

İşte biraz daha ungolfed

\documentclass[tikz]{standalone}
\begin{document}
\tikz{
  \fill[red](1,1)rectangle(33,33);
  \fill[white](7,14)rectangle(27,20)(14,7)rectangle(20,27)
}\end{document}

Bu, 3 dikdörtgeni büyük, kırmızı, iki küçük beyazı artı yapar.

İşte göründüğü gibi. Gerçekten diğerlerinden farklı görünmüyor.

R, 109 bayt

par(mar=0*1:4,bg=2,xaxs="i",yaxs="i")
frame()
rect(a<-c(6,13)/32,rev(a),b<-c(26,19)/32,rev(b),c="white",b=NA)

Kullanımları framebir arsa ön ayar önlemek için, ancak varsayılan komplo bölge [0,1] aralığı yerine [0,32] arasında açıktır. Ayrıca rectvectorized gerçeğini kullanır . Çizim penceresinin varsayılan boyutu 7in x 7in'dir. Aşağıdakileri çıkarır:

R, 125 bayt

png()
par(mar=0*1:4,bg=2,xaxs="i",yaxs="i")
frame()
rect(a<-c(6,13)/32,rev(a),b<-c(26,19)/32,rev(b),c="white",b=NA)
dev.off()

Varsayılan pngdeğeri, 480x480 piksel karedir. Çıktı aşağıdaki png dosyasıdır:

R, 112 bayt

par(bg=2,mar=0*1:4)
plot(0:32,0:32,'n',xaxs="i",yaxs="i")
rect(c(6,13),c(13,6),c(26,19),c(19,26),c="white",b=NA)

En boy oranını garanti etmek için toplam 117 için 5 bayta ihtiyacımız var:

par(bg=2,mar=0*1:4)
plot(0:32,0:32,'n',xaxs="i",yaxs="i",as=1)
rect(c(6,13),c(13,6),c(26,19),c(19,26),c="white",b=NA)

Alex Axthelm'in cevabından ilham alan ve birkaç bayttan tasarruf için Rift'e teşekkürler.

Postscript, 301 286 187 bayt

/m{moveto}def
/s{setrgbcolor}def
/r{rlineto}def
/c{closepath fill}def
1 0 0 s
0 0 m
0 320 r
320 0 r
0 -320 r
c
1 1 1 s
130 60 m
60 0 r
0 200 r
-60 0 r
c
60 130 m
0 60 r
200 0 r
0 -60 r c

99 byte indirim öneren isimsiz editöre teşekkür ederiz !

Kırmızı , 79 Bayt

Kod:

view[base 32x32 red draw[fill-pen white pen off box 6x13 26x19 box 13x6 19x26]]

Sonuç:

Açıklama:

view [              ; activate view engine
base 32x32 red      ; draw a 32 by 32 red box as base
 draw [             ; draw on top of the base
  fill-pen white    ; fill color is white
  pen off           ; turn off outline, alternatively could use white
  box 6x13 26x19    ; draw a horizontal rectangle, specified as 2 corners XxY
  box 13x6 19x26    ; draw vertical rectangle
]]

Bit eşlem, 160 bayt

İşte 24 bit renk tanımı kullanarak 1 bit renk derinliğine sahip bir bitmap. İkinci satırın son altı baytı palettir ve ardından piksel dizisidir. Her dört bayt bir tam piksel satırı içerir.

42 4D A0 00 00 00 00 00 00 00 20 00 00 00 0C 00
00 00 20 00 20 00 01 00 01 00 00 00 FF FF FF FF
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 03 FF FF C0 03 FF FF C0 03 FF FF C0
03 FF FF C0 03 FF FF C0 03 FF FF C0 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 07 E0 00 00 07 E0 00
00 07 E0 00 00 07 E0 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

İzleyen sıfırları kesmeye çalıştım, ancak resim izleyiciler tuvalin tamamı için tanımlanmış yeterli piksel bulunmasını gerektiriyor.

Python 2, 92 91 89 bayt

r,w=' \0\0',' '*3
A,B=192*r,(13*r+6*w+13*r)*7
print"P6 "+"32 "*3+A+B+(6*r+20*w+6*r)*6+B+A

İkili ppm olarak çıktı, kullanım:

python golf_swiss.py > swiss.ppm

Renk derinliğini arttırmak, maksimum değer için boşluk kullanmamı sağladı

Tcl / Tk, 94

Etkileşimli kabuk üzerinde çalışıyorsa, bir kısaltabilirsiniz canvasiçin canve gridhiçgri

gri [can .c -bg red -w 32 -he 32]
lmap R {{8 15 28 21} {15 8 21 28}} {.c cr r $R -f #FFF -w 0}

Etkileşimli kabukta çalışıyorsa, kişi kısaltılabilir canvas.can

grid [can .c -bg red -w 32 -he 32]
.c cr r 8 15 28 21 -f #FFF -w 0
.c cr r 15 8 21 28 -f #FFF -w 0

pack [canvas .c -bg red -w 32 -he 32]
.c cr r 8 15 28 21 -f #FFF -w 0
.c cr r 15 8 21 28 -f #FFF -w 0