langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Bitmap-Bresenhams-line-algorithm/TI-89-BASIC/bitmap-bresenhams-line-algorithm.ti-89
+++ b/Task/Bitmap-Bresenhams-line-algorithm/TI-89-BASIC/bitmap-bresenhams-line-algorithm.ti-89
@ -0,0 +1,34 @@
+(lx0, ly0, lx1, ly1)
+Prgm
+  Local steep, x, y, dx, dy, ystep, error, tmp
+  abs(ly1 - ly0) > abs(lx1 - lx0) → steep
+  If steep Then
+    lx0 → tmp
+    ly0 → lx0
+    tmp → ly0
+    lx1 → tmp
+    ly1 → lx1
+    tmp → ly1
+  EndIf
+  If lx0 > lx1 Then
+    lx0 → tmp
+    lx1 → lx0
+    tmp → lx1
+    ly0 → tmp
+    ly1 → ly0
+    tmp → ly1
+  EndIf
+  lx1 - lx0 → dx
+  abs(ly1 - ly0) → dy
+  when(ly0 < ly1, 1, –1) → ystep
+  intDiv(dx, 2) → error
+  ly0 → y
+  For x,lx0,lx1
+    If steep Then: PxlChg x, y :Else: PxlChg y, x :EndIf
+    error - dy → error
+    If error < 0 Then
+      y + ystep → y
+      error + dx → error
+    EndIf
+  EndFor
+EndPrgm