2
#name : #DrGArcRotationItem,
3
#superclass : #DrGArcItem,
4
#category : #'DrGeoII-Core-Item'
7
{ #category : #updating }
8
DrGArcRotationItem >> moveParent: aPoint [
12
{ #category : #'xml writing' }
13
DrGArcRotationItem >> nodeType [
17
{ #category : #updating }
18
DrGArcRotationItem >> update [
20
self doParentsExist ifTrue:
21
[arcItem := parents first.
22
center := arcItem center
23
rotateBy: parents third valueItem negated
24
about: parents second point.
25
origin := arcItem origin + parents third valueItem.
26
length := arcItem length.
27
radius := arcItem radius].