---
title: "Glisp Help: スタイルの応用"
date: 2022-09-19T05:39:17.000Z
updated: 2026-01-08T14:50:48.546Z
tags:
  - Glisp_Help
url: https://baku89.com/ja/Glisp_Help%EF%BC%9A_%E3%82%B9%E3%82%BF%E3%82%A4%E3%83%AB%E3%81%AE%E5%BF%9C%E7%94%A8
---

# Glisp Help: スタイルの応用

[Glisp Help： はじめてのスケッチ](/Glisp_Help%EF%BC%9A_%E3%81%AF%E3%81%98%E3%82%81%E3%81%A6%E3%81%AE%E3%82%B9%E3%82%B1%E3%83%83%E3%83%81)でも解説したとおり、エレメントはスタイルを適用することに初めて描画されます。スタイルは色や線幅など様々なプロパティからなりますが、それらはあるルールに基づいて継承、描画され、また参照することができます。

## プロパティの参照

`style`関数の内側では、適用されているスタイルのプロパティにアクセスすることができます。

```
(style (fill "pink")
 (text *fill-color* [50 50] :size 24))
```

[Open in Editor](https://glisp.app/?code=%28style+%28fill+%22pink%22%29%0A+%28text+*fill-color*+%5B50+50%5D+%3Asize+24%29%29)

ここでは、外側の `fill`関数で設定された `"pink"`を、シンボル `*fill-color*` によって参照しています。（`*`で挟まれた変数名は、グローバル変数のようなシンボルを表しています）同様に`*stroke-color*`や、 `*stroke-width*`、`*stroke-cap*` で線のプロパティにアクセスすることもできます。これはフローチャートなど、縁取りと同じ色でテキストを塗るときにも便利です。

```
(style (stroke "royalblue" 2)
 (ngon [50 50] 40 4)

 (style [(no-stroke) (fill *stroke-color*)]
  (text "Hello" [50 50])))
```

[Open in Editor](https://glisp.app/?code=%28style+%28stroke+%22royalblue%22+2%29%0A+%28ngon+%5B50+50%5D+40+4%29%0A%0A+%28style+%5B%28no-stroke%29+%28fill+*stroke-color*%29%5D%0A++%28text+%22Hello%22+%5B50+50%5D%29%29%29)

ここで `no-stroke` 関数が登場していますが、これによって、それ以前に適用された塗りを無効にすることができます。以下のようなイメージです。

```
(stroke "royalblue" 2) -> (no-stroke) -> (fill *stroke-color*)
;^^^^^^^^^^^^^^^^^^^^                   ^^^^^^^^^^^^^^^^^^^^^
;no-stroke によって打ち消される     打ち消されてもなお *stroke-color* は "royalblue" に設定されている
```

こうすることで、Hello というテキストに線が適用され、太くなってしまうのを防ぎます。これは矢印を描くときにも使えます。

## スタイルの実体

`fill` や `stroke`は、 CSS のようなプロパティ名をキーに持つ連想配列を返すただの関数です。

```
(fill "pink") -> {:fill true :fill-color "pink"}

(stroke "skyblue" 10) -> {:stroke true :stroke-color "skyblue" :stroke-width 10}
```

CSS と違うのは、「スタイルを有効にするかどうか」と、そのスタイルへの色指定とが別のプロパティになっている点です。CSSにおける`fill: "pink";` という指定は、塗りを有効にすると同時に塗りの色も設定しています。しかしGlispでは、塗りを有功にするには `{:fill true}`、塗りの色の指定には `{:fill-color: "color-name"}`のように、プロパティとして独立しています。この仕組みによって、`style`関数の内側のパス全てを塗ることなく、塗り色のデフォルトを設定することが可能です。

```
(style {:stroke-dash [15 4]}
 (style (stroke "crimson" 2)
  (circle [50 50] 40))

 (style (stroke "plum" 2 :dash [4 4])
  (ngon [50 50] 40 5)))
```

CSSのようにスタイルは内側のエレメントへと継承されていきます。同じプロパティが設定された場合は、子要素に近い箇所で設定されたスタイルが優先されます。

```
(style {:stroke-dash [15 4]}
 (style (stroke "crimson" 2)
  (circle [50 50] 40))

 (style (stroke "plum" 2 :dash [4 4])
  (ngon [50 50] 40 5)))
```

[Open in Editor](https://glisp.app/?code=%28style+%7B%3Astroke-dash+%5B15+4%5D%7D%0A+%28style+%28stroke+%22crimson%22+2%29%0A++%28circle+%5B50+50%5D+40%29%29%0A%0A+%28style+%28stroke+%22plum%22+2+%3Adash+%5B4+4%5D%29%0A++%28ngon+%5B50+50%5D+40+5%29%29%29)

## スタイルのプリセット化

スタイルは単なる値なので、変数として定義することでプリセットのように随所で使い回すことができます。もちろん、他のスタイルと組み合わせて適用することも可能です。

```
(def fill-skyblue (fill "skyblue"))

(style fill-skyblue
 (rect [10 10 40 40]))

(style [fill-skyblue (stroke "crimson" 5)]
 (circle [70 70] 20))
```

[Open in Editor](https://glisp.app/?code=%28def+fill-skyblue+%28fill+%22skyblue%22%29%29%0A%0A%28style+fill-skyblue%0A+%28rect+%5B10+10+40+40%5D%29%29%0A%0A%28style+%5Bfill-skyblue+%28stroke+%22crimson%22+5%29%5D%0A+%28circle+%5B70+70%5D+20%29%29%0A)

[#Glisp\_Help](Glisp_Help)