# Wolfram Language™

## Linhas de referência em anotações

Determine uma curva de referência.

In[1]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[name], Automatic, 0, Appearance -> name, LeaderSize -> {{24, 60 \[Degree], 3}, {40, 0 \[Degree]}}], Sinc[x]}, {x, -1 Pi, 4 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 180], {name, {"Leader", "CurvedLeader"}}]}]```
Out[1]=

Especifique o comprimento da linha de referência.

In[2]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[leaderLength], Automatic, 0, LeaderSize -> {{leaderLength, 45 \[Degree], 0}, {20, 0 \[Degree]}}], Sinc[x]}, {x, -3 Pi, 3 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {leaderLength, {10, 20, 40}}]}]```
Out[2]=

Especifique o comprimento da linha que encosta na curva.

In[3]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[neckLength], Automatic, 0, LeaderSize -> {{10, 45 \[Degree], 3}, {neckLength, 0 \[Degree]}}], Sinc[x]}, {x, -3 Pi, 3 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {neckLength, {0, 20, 40}}]}]```
Out[3]=

Especifique o ângulo da linha de referência.

In[4]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[StandardForm[leaderAngle]], Automatic, 0, LeaderSize -> {{20, leaderAngle, 3}, {10, 0 \[Degree]}}], Sinc[x]}, {x, -3 Pi, 3 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {leaderAngle, {45 \[Degree], 130 \[Degree], 270 \[Degree]}}]}]```
Out[4]=

Especifique o ângulo da linha que encosta da curva.

In[5]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[StandardForm[neckAngle]], Automatic, 0, LeaderSize -> {{10, 60 \[Degree], 3}, {25, neckAngle}}], Sinc[x]}, {x, -3 Pi, 3 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {neckAngle, {0 \[Degree], 30 \[Degree], 180 \[Degree]}}]}]```
Out[5]=

Escolhe o estilo da linha de referência.

In[6]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], ToString[StandardForm[style]], Automatic, 0, LeaderSize -> {{30, 45 \[Degree], 3}, {10, 0 \[Degree]}}, CalloutStyle -> style], Sinc[x]}, {x, -1 Pi, 5 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {style, {RGBColor[0.34398, 0.49112, 0.89936], AbsoluteThickness[2], AbsoluteDashing[{1, 3}]}}]}]```
Out[6]=

Escolha o estilo da vizinhança do ponto de interseção da linha de referência com o gráfico.

In[7]:=
```Grid[{Table[ Plot[{Callout[.5 Sinc[.5 x], Column[koStyle], Automatic, 0, LeaderSize -> {{25, 45 \[Degree], 3}, {20, 0 \[Degree]}}, CalloutStyle -> {Black, Directive[koStyle]}], Sinc[x]}, {x, -1 Pi, 5 Pi}, PlotTheme -> {"Business"}, PlotRange -> All, FrameTicks -> None, ImageSize -> 150], {koStyle, {{GrayLevel[1], Opacity[1], Thickness[.05]}, {GrayLevel[1, .6], Thickness[.05]}, {Opacity[0]}}}]}]```
Out[7]=