diff options
Diffstat (limited to 'lib/percept/src/egd_primitives.erl')
| -rw-r--r-- | lib/percept/src/egd_primitives.erl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/percept/src/egd_primitives.erl b/lib/percept/src/egd_primitives.erl index 388446cc15..b64189c552 100644 --- a/lib/percept/src/egd_primitives.erl +++ b/lib/percept/src/egd_primitives.erl @@ -71,15 +71,11 @@ object_info(O) -> %% interface functions line(#image{objects=Os}=I, Sp, Ep, Color) -> - I#image{objects=[#image_object{ - type = line, - points = [Sp, Ep], - span = span([Sp, Ep]), - color = Color}|Os]}. + line(#image{objects=Os}=I, Sp, Ep, 1, Color). -line(#image{objects=Os}=I, Sp, Ep, Stroke, Color) -> +line(#image{objects=Os}=I, Sp, Ep, Wd, Color) -> I#image{objects=[#image_object{ - internals = Stroke, + internals = Wd, type = line, points = [Sp, Ep], span = span([Sp, Ep]), |