How do I get smaller dots in a dashed curve

classic Classic list List threaded Threaded
6 messages Options
HJH
Reply | Threaded
Open this post in threaded view
|

How do I get smaller dots in a dashed curve

HJH
Hello Hilaire

I get the circles below with the command

     circleA dashed.
     circleB dashed.

How can I control the size of the dashed. I'd like to have them smaller. Just like dots with less space.

| c ptA ptB ptC ptD ptE
circleA circleB
segAB segCE  |

 c := DrGeoCanvas new.

 "Given is a segment AB"
 ptA := c point: -1@0.
 ptA name: 'A'.

 ptB := c point: 1@0.
 ptB name: 'B'.

 segAB := c segment: ptA to: ptB.

 "Use two circles to get points C and E"
 circleA := c circleCenter: ptA to: ptB.
 circleA dashed.
 circleB := c circleCenter: ptB to: ptA.
 circleB dashed.

 ptC := c intersectionOf: circleB and: circleA.
 ptC name: 'C'.

 ptE := c altIntersectionOf: circleB and: circleA.
 ptE name: 'E'.

 segCE := c segment: ptC to: ptE.
 ptD := c intersectionOf: segAB  and: segCE.
 ptD name: 'D'.

dashed lines
Reply | Threaded
Open this post in threaded view
|

Re: How do I get smaller dots in a dashed curve

Hilaire Fernandes
Administrator
Le 10/10/2018 à 21:34, HJH [via Dr. Geo Forum] a écrit :
I get the circles below with the command

     circleA dashed.
     circleB dashed.

How can I control the size of the dashed. I'd like to have them smaller. Just like dots with less space.


Use the #dotted message

https://www.gnu.org/software/dr-geo/doc/en/Smalltalk-sketch.html#index-Smalltalk-sketch_002c-object-attributes

Hilaire

Was this message helpful?
Tell us!
Reply | Threaded
Open this post in threaded view
|

Re: How do I get smaller dots in a dashed curve

Hliaire Fernandes
Administrator
In reply to this post by HJH
I am wondering if we can make the Smalltalk sketch script shorter.

Hilaire
HJH
Reply | Threaded
Open this post in threaded view
|

Re: How do I get smaller dots in a dashed curve

HJH
There could be a new method


Instead of

    ptE := c altIntersectionOf: circleB and: circleA.
    ptE name: 'E'.

use

    ptE := c name: 'E' altIntersectionOf: circleB and: circleA

HJH
Reply | Threaded
Open this post in threaded view
|

Re: How do I get smaller dots in a dashed curve

HJH
Thinking about it again I do not consider it all that necessary.

The current script is easy to read.

Not sure if it gets much out with an additional message which combines identifying the intersection point and nameing it.

--Hannes
Reply | Threaded
Open this post in threaded view
|

Re: How do I get smaller dots in a dashed curve

Hliaire Fernandes
Administrator
Fine then :)

Hilaire