/home/lively/LivelyKernel/users/robertkrahn/test.html
save
load
remove
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
.char {
margin: 0px;
padding: 0px;
display: inline;
}
class="char" id="1"B
class="char" id="2"i
class="char" id="3"s
class="char" id="4"h
class="char" id="5"o
class="char" id="6"p
/home/lively/LivelyKernel/users/robertkrahn/test.html
X
–
Menu
-
+
⟳
*all*
*latest*
*search*
Alexia
Art
Astrid
Babelsberg
Backgrounds
Basic
Bert
Bert-Local
blahblah
BYOIE
Changesets
Charlie
Charting
ChartingDemo
Chris
Clojure
Code
codefrau
CodeSnippets
Collaboration
enter search term
AnotherPen
Cloud
DemoRectangle
every milliseconds do
1000
DropToLoop
3 + 4
Editor
Ellipse
help
HelpButton
Image
Line
LineWithArrow
LineWithArrowOr...
LineWithArrows
Marker
Notebook
Notebook
Stroke Width:
Opacity
0
Fill Color:
Stroke Color:
Fill:
100%
PathMaker
Pen
Stroke Width:
Opacity
3
Fill Color:
Stroke Color:
Fill:
50%
PolygonMaker
text
PrimitiveShapes
Rectangle
RotatingRectangle
Stroke Width:
Opacity
0
Fill Color:
Stroke Color:
Fill:
100%
SPM1
SVGPathMorph
Stroke Width:
Opacity
Fill Color:
Fill:
100%
0
Stroke Color:
SimplePathMaker
Star
The Smalltalk-76 Programming System - My original paper on Smalltalk-76. Describes the syntax. object model,
and design of the byte-coded virtual machine. Includes a sketch of the vm written in Smalltalk-76 itself.
Back to the Future: the Story of Squeak - Describes the design of Squeak, a commercial-grade Smalltalk written
in itself and made practical by compiling a subset of the language ("Slang") to C.
The Evolution of Smalltalk from Smalltalk-72 through Squeak - A long paper (100 pages!) that I wrote for HOPL-2020.
This version includes corrections, and is a mixture of stories, technical details, and links to simulations and related work.
Text
About This
Title
TransparentRect...
Triangle
NotetakerSources
X
–
Menu
Class new title: ↪Point
subclassof: Object
fields: 'x y'
declare: ''
≤ t1
[⇑x ≤ t1 x and⦂ y ≤ t1 y]
≥ t1
[⇑x ≥ t1 x and⦂ y ≥ t1 y]
* t1
[⇑Point new x: x * t1 asPtX y: y * t1 asPtY]
+ t1
[⇑Point new x: x + t1 asPtX y: y + t1 asPtY]
- t1
[⇑Point new x: x - t1 asPtX y: y - t1 asPtY]
/ t1
[⇑Point new x: x / t1 asPtX y: y / t1 asPtY]
< t1
[⇑x < t1 x and⦂ y < t1 y]
= t1
[⇑x = t1 x and⦂ y = t1 y]
> t1
[⇑x > t1 x and⦂ y > t1 y]
abs
[⇑Point new x: x abs y: y abs]
asPoint
asPtX [⇑x]
asPtY [⇑y]
asRectCorner
asRectOrigin
asRectangle
[⇑self rect: self]
copy
[⇑x ⌾ y]
corner
[⇑self + (1 ⌾ 1)]
dist: t1 | t2
[t2 ← (t1 - self) abs.
⇑t2 x + t2 y]
extent
[⇑1 ⌾ 1]
extent: t1
[⇑Rectangle new origin: self extent: t1]
fromPress: t1 value: t2
[x ← t2 nextword.
y ← t2 nextword]
height
[⇑1]
hideData: t1 | t2 t3
[t2 ← String new: 4.
t3 ← Stream new.
t3 of: t2.
t3 nextPoint← self.
⇑t2]
hidePress: t1 complete: t2
[t1 skipcode: self pressCode data: (self hideData: t2)]
length
[⇑(x asFloat * x asFloat + (y asFloat * y asFloat)) sqrt]
max: t1
[⇑Point new x: (x max: t1 x) y: (y max: t1 y)]
min: t1
[⇑Point new x: (x min: t1 x) y: (y min: t1 y)]
normal | t1
[t1 ← y asFloat neg ⌾ x asFloat.
⇑t1 / t1 length]
normalize
[self x← 0.
self y← 0]
origin
pressCode
[⇑7]
printon: t1
[t1 print: x.
t1 append: '⌾'.
t1 print: y]
rect: t1
[⇑Rectangle new origin: self corner: t1]
theta | t1 t2
[x = 0 ⇒
[y ≥ 0 ⇒ [⇑90.0]
⇑270.0]
t1 ← y asFloat / x asFloat.
t2 ← t1 arctan.
x ≥ 0 ⇒
[y ≥ 0 ⇒ [⇑t2]
⇑360.0 + t2]
⇑180.0 + t2]
translate: t1
[x ← x + t1 x.
y ← y + t1 y]
width
[⇑1]
x [⇑x]
x: t1 y: t2
[x ← t1.
y ← t2]
x← t1
[x ← t1]
y [⇑y]
y← t1
[y ← t1]
| t1
[⇑Point new x: x | t1 y: y | t1]
Notetaker sources
keytaker
more
Ellipse
Share Link
inspect
PartsBin/Basic/
This is a "Ellipse"
remove
move
copy
2012-04-03 09:08 undefined
reverted changes - was there any description of this morph?
2013-02-15 20:22 robertkrahn
no comment
2013-07-12 21:14 null
no comment
2015-06-30 04:42 unknown (version 0)
no comment
load
revert
PartsBinBrowser
X
–
Menu