diff --git a/src/Roassal3-Shapes/RSAbstractLine.class.st b/src/Roassal3-Shapes/RSAbstractLine.class.st
index 2d65c5c92..0ad005d26 100644
--- a/src/Roassal3-Shapes/RSAbstractLine.class.st
+++ b/src/Roassal3-Shapes/RSAbstractLine.class.st
@@ -167,6 +167,12 @@ RSAbstractLine >> dashed [
 	self dashArray: #(4)
 ]
 
+{ #category : 'style - dashes' }
+RSAbstractLine >> dotted [
+
+	self dashArray: { Float goldenRatio }
+]
+
 { #category : 'accessing' }
 RSAbstractLine >> endPoint [
 	^ self subclassResponsibility
diff --git a/src/Roassal3-Shapes/RSTLine.trait.st b/src/Roassal3-Shapes/RSTLine.trait.st
index 3bb8be2e7..f7e890d7f 100644
--- a/src/Roassal3-Shapes/RSTLine.trait.st
+++ b/src/Roassal3-Shapes/RSTLine.trait.st
@@ -76,6 +76,12 @@ RSTLine >> dashed [
 	self shape dashed
 ]
 
+{ #category : 'public - shape' }
+RSTLine >> dotted [
+
+	self dashArray: { Float goldenRatio }
+]
+
 { #category : 'public - shape' }
 RSTLine >> format [
 	^ formatString