fork download
copy 
  1. Object subclass: #Polygon
  2. 	instanceVariableNames: 'apex name originX originY left top right bottom'
  3. 	classVariableNames: ''
  4. 	poolDictionaries: ''
  5. 	category: 'ProgrammingLanguages'!
  6.  
  7. !Polygon methodsFor: 'initialize-release'!
  8.  
  9. initialize: numberApex name: newName oX: x oY: y
  10.  
  11. 	name:=newName.
  12. 	apex:=Array new: numberApex.
  13. 	originX:= x. 
  14. 	originY:= y. 
  15. 	apex at: 1 put: originX@originY ! !
  16.  
  17. !Polygon methodsFor: 'accessing'!
  18.  
  19. name
  20. 	^name!
  21.  
  22. name: new_name
  23. 	name:=new_name!
  24.  
  25. left
  26. 	^left!
  27.  
  28. right
  29. 	^right!
  30.  
  31. top
  32. 	^top!
  33.  
  34. bottom
  35. 	^bottom! !
  36.  
  37.  
  38. Polygon subclass: #Hexagon
  39. 	instanceVariableNames: 'sideLength'
  40. 	classVariableNames: ''
  41. 	poolDictionaries: ''
  42. 	category: 'ProgrammingLanguages'!
  43.  
  44. !Hexagon methodsFor: 'initialize-release'!
  45.  
  46. initialize: side oX: x oY: y
  47.  
  48. 	super initialize: 6 name: 'Hexagon' oX: x oY: y.
  49. 	sideLength:= side.
  50. 	apex at: 2 put: (x + ((side squared * (3 sqrt))/2))@(y + (0.5 * side)).
  51. 	apex at: 3 put: (x + ((side squared * (3 sqrt))/2))@(y + (1.5 * side)).
  52. 	apex at: 4 put: x@(y + (2* side)).
  53. 	apex at: 5 put: (x - ((side squared * (3 sqrt))/2))@(y + (1.5 * side)).
  54. 	apex at: 6 put: (x - ((side squared * (3 sqrt))/2))@(y + (0.5 * side)).
  55. 	left:= (x - ((side squared * (3 sqrt))/2)).
  56. 	top:= y.
  57. 	bottom:= (y + (2* side)).
  58. 	right:= (x + ((side squared * (3 sqrt))/2)).
  59. ! !
  60.  
  61. !Hexagon methodsFor: 'arithmetic'!
  62.  
  63. + figure
  64.  
  65.  
  66. 	| p newSide |
  67. 	p:=self area + figure area.
  68. 	newSide:= (2 * p /((3 * 3 sqrt) sqrt)).
  69.  
  70. 	^(Hexagon new) initialize: newSide oX: originX oY: originY! 
  71. !
  72.  
  73. !Hexagon methodsFor: 'actions'!
  74.  
  75. getPoints
  76.  
  77. 	Transcript cr.
  78. 	Transcript show: ('Dlugosc boku '). 
  79. 	Transcript show: sideLength printString; cr.
  80. 	Transcript show: ('Pierwszy wierzcholek '). 
  81. 	Transcript show: (apex at: 1) printString; cr.
  82. 	Transcript show: ('Drugi wierzcholek ').
  83. 	Transcript show: (apex at: 2) printString; cr.
  84. 	Transcript show: ('Trzeci wierzcholek ').
  85. 	Transcript show: (apex at: 3) printString; cr.
  86. 	Transcript show: ('Czwarty wierzcholek ').
  87. 	Transcript show: (apex at: 4) printString; cr.
  88. 	Transcript show: ('Piaty wierzcholek ').
  89. 	Transcript show: (apex at: 5) printString; cr.
  90. 	Transcript show: ('Szosty wierzcholek ').
  91. 	Transcript show: (apex at: 6) printString; cr.
  92. 	Transcript show: ('Pole pieciokata ').
  93. 	Transcript show: (self area) printString; cr. ! 
  94.  
  95. area
  96.  
  97. 	^((3 * sideLength squared * 3 sqrt)/2)!
  98.  
  99. move: aa i: bb
  100. 	self initialize: sideLength oX: (originX + aa) oY: (originY + bb)!
  101. !
  102.  
  103. setOfHexagons := Set new.
  104.  
  105. r1:= (Hexagon new) initialize: 6 oX: 5 oY: 5.
  106. setOfHexagons add: r1.
  107. r2:= (Hexagon new) initialize: 5 oX: 5 oY: 5.
  108. setOfHexagons add: r2.
  109. r3:= (Hexagon new) initialize: 4 oX: 5 oY: 5.
  110. setOfHexagons add: r3.
  111. r4:= (Hexagon new) initialize: 2 oX: 5 oY: 5.
  112. setOfHexagons add: r4.
  113. r5:= (Hexagon new) initialize: 1 oX: 5 oY: 5.
  114. setOfHexagons add: r5.
  115. r6:= (Hexagon new) initialize: 1 oX: 5 oY: 5.
  116. r6 move: 1 i: 1.
  117. setOfHexagons add: r6.
  118. r7:= (Hexagon new).
  119. r7:= r1 + r2.
  120.  
  121.  
  122. setOfHexagons do: [:x|
  123. 	x getPoints
  124. ].
Success #stdin #stdout 0.02s 12000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Dlugosc boku 5
Pierwszy wierzcholek 5@5
Drugi wierzcholek Object: 1 error: The program attempted to divide a number by zero
ZeroDivide(Exception)>>signal (ExcHandling.st:254)
SmallInteger(Number)>>zeroDivide (SysExcept.st:1426)
Fraction>>setNumerator:setDenominator: (Fraction.st:485)
Fraction class>>numerator:denominator: (Fraction.st:66)
Fraction>>- (Fraction.st:151)
FloatD(Float)>>printOn:special: (Float.st:533)
FloatD(Float)>>printOn: (Float.st:436)
WriteStream(Stream)>>print: (Stream.st:501)
Point>>printOn: (Point.st:63)
Point(Object)>>printString (Object.st:534)
Hexagon>>getPoints (prog:83)
optimized [] in UndefinedObject>>executeStatements (prog:123)
Set(HashedCollection)>>do: (HashedColl.st:201)
UndefinedObject>>executeStatements (prog:122)
https://ideone.com/7d3s11
language:
Smalltalk (gst 3.2.5)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!