EU 추정 표시 그리기


11

유럽 ​​연합 지침에서 사용하는 "추정 된"부호의 사양 (유니 코드로 U + 212e,이 문제에 대해 간단히 인쇄 할 수는 없음)은 매우 정확합니다.

EU 추정 부호의 사양

이 질문 에서 일부 제한을 복사하려면 : 벡터 또는 래스터 그래픽을 사용하여 심볼을 파일 또는 화면에 렌더링합니다. 출력이 래스터 화 된 경우 이미지의 크기는 264 픽셀 × 240 픽셀 이상이어야합니다. 다른 보 조선 또는 길이 표시기를 그려서는 안됩니다.


9
꽤 정확하지만 여전히 불분명합니다. 정확히 무엇 0,085, 0,013그리고 0,025측정은? 0,846중앙 의 대각선은 바깥 쪽 1과 바깥쪽에 의해 형성된 타원의 진원지를 통과하도록 의도되어 0,9있습니까?
AdmBorkBork

1
같은 기호는 아니지만 codegolf.stackexchange.com/questions/26689/… 으로 간주되기에 충분하다고 생각합니다 . 그래도 Dup Hammer를 사용하지 않습니다.
디지털 외상

@TimmyD 0,025는 크로스바의 두께로, 중심선 위에 앉아 있지 않고 타원 중심의 양쪽에서 +/- 0,0125 연장됩니다. (심볼을 뒤집어 확인했습니다.) 0,013은 모퉁이의 반경입니다 (모퉁이 원의 중심을 쉽게 찾을 수 있어야 함). 0,085는 모서리의 반경이기도합니다 (모퉁이 원의 y 좌표를 찾는 데 도움이 될 것입니다.)
Level River St

1
'E', 'n', 'g', 'l', 'a', 'd'문자를 사용하지 않으면 더욱 흥미로워집니다.
Comintern

답변:


15

VBA, 587560 바이트

Sub S(a,b,c,d,e,f)
Set v=ActiveSheet.Shapes.AddShape(a,b,c,d,e)
v.Fill.ForeColor.RGB=f
v.Line.Visible=0
If a=5 Then v.Adjustments(1)=.5
End Sub
Sub U():p=91.5:w=-1
S 1,0,0,500,450,w
S 9,0,0,500,450,0
S 9,38.5,13.5,423,423,w
S 1,36,120,29,210,0
S 1,65,80,26.5,290,0
S 1,435,120,29,105,0
S 1,408.5,80,26.5,145,0
q=212.25:S 1,9,q,480,19,0
S 5,p,205.75,317,13,w
S 1,405,231.25,95,131.5,w
r=14.5:S 1,p,70.5,r,30,0
q=85:S 9,p,59.6,q,q,w
S 1,p,349.5,r,30,0
S 9,p,305.4,q,q,w
S 1,395,70.5,r,30,0
S 9,323.5,59.6,q,q,w
q=231.25:S 1,p,q,6.5,6.5,0
S 9,p,q,13,13,w
End Sub

매크로 U를 호출하십시오. 기본적으로 많은 모양 그리기. 모양 1은 사각형, 5는 둥근 사각형, 9는 타원형입니다. 출력은 500 x 450 높이입니다.

여기에 이미지 설명을 입력하십시오

편집 : 둥근 사각형을 추가하여 (끝을 반원으로 바꾸는 조정으로) 하나의 모양 그리기로 막대 위에 반경 모서리를 생성합니다.


엑셀 빌려-당신은 확실히 그 일에 많은 작업을 넣었습니다! 당신은 삭제할 수 있습니다 2변경하여 바이트 Sub U()Sub U
테일러 스콧

Actuallly, 당신이 만드는 변경하여 535 바이트이 아래를 얻을 수 fOptional f=0하고, 0 f를 호출을 제거의 공간을 제거 a=5 Then, 워크 시트 codepane에 서브 루틴을 이동하고 제거하는 ActiveSheet.전화를 (U는 다음과 같이 호출된다는이 수단 Sheet1.U)와 제거 ()Sub U()
테일러 스콧

3

Haml + Sass, 20 + 722 = 742 바이트

나는 이것이 훨씬 더 골프를 칠 수 있다고 확신하지만, 그것에 만족합니다. CodePen 데모 .

참고 : 기본 여백으로 인해 너비가 1000 픽셀 이상인 브라우저 창이 필요합니다.

하멜

#u
#v
 #w
 #x
 #y
#z

사스

$w: 1000px
$h: 900px
$a: 183px
$b: 25px
$p: 85px
$q: 13px
$d: 846px
$e: $w - 2*$a
$f: 143px
$s: 50%
$t: $p/5.5
=d($w:$w,$h:$h)
 width: $w
 height: $h
=m($c)
 background-color: $c
=k
 +m(#000)
 position: absolute
 content: ''
=l
 +k
 +m(#fff)
=o($o:$p)
 +d($o,$p)
=r($a)
 border-radius: $a
*
 +k
html,body
 +l
 position: relative
#u
 +d
 clip-path: ellipse($s $s)
#v
 +d($e)
 left: $a
 clip-path: circle(($d/2) at $s $s)
#v::before,#v::after
 +l
 +d($e,($h -$b)/2)
 +r($q)
#v::after
 bottom: 0
#w,#x
 +o($t)
 top: $f
#w::before,#x::before,#y::before
 +l
 +o
 +r($s 0)
#x,#x::before
 right: 0
#x::before
 +r(0 $s 0 0)
#y
 +o($t)
 bottom: $f
 z-index: 9
#y::before
 +r(0 0 0 $s)
#z
 +l
 +d($s,267px)
 top: ($h+$b)/2
 right: 0

3

GLSL shadertoy.com +, 349 (345) 344 바이트

#define F float
void mainImage(out vec4 R,vec2 C){F S=min(iResolution.x,iResolution.y/0.9);vec2 p=C/vec2(0.5,0.45)/S-1.;F A=0.94-length(p*vec2(1.22,1));F H=min(min(-p.y-0.025,p.y+0.551),p.x);F B=max(length(p)-1.,min(abs(p.y)-0.025,max(A,H)));F D=max(min(p.x,-p.y),max(-A,0.634-abs(p.x)));R=vec4(vec3(max(H,min(B*D*64.-0.01,min(B,D)))*S/3.),1);}

이 페이지에 코드를 붙여 넣어 테스트 할 수 있습니다 : https://www.shadertoy.com/new

출력 (화면 크기가 1440 * 900 인 경우) :

여기에 이미지 설명을 입력하십시오


중앙 막대 끝의 모퉁이에 대해 잘 모르면 제대로 보이지 않습니다.
Joffan

어쩌면 그들은 약간 다른 "크기"를 가져야 할 것입니다. 나는 그들이 어떤 크기 여야하는지 이해하지 못했습니다. 눈으로 근사치입니다.
표시 이름

1
반지름은 0.013 (x 그림의 전체 너비) 인 원호 여야합니다.
Joffan
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.