Category : Printer + Display Graphics
Archive   : 1988LISP.ZIP
Filename : RIDGE.LSP

 
Output of file : RIDGE.LSP contained in archive : 1988LISP.ZIP
;locate the ridge line
(vmon)
(defun locate ()
(setq p1 (getpoint "\nFirst point")
p2 (getpoint p1 "\nSecond point")
p3 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2))
)
)
;set the text height
(defun textht ()
(setq t1 "Text Height: t2 " >: "
t3 (getvar "textsize")
)
(terpri)
(setq ht (getreal (strcat t1 (rtos t3 2 2) t2)))
(if (= ht nil)
(setq ht t3)
)
)
;insert the letter "R"
(defun insrtr ()
(command "line" p1 p2 ""
"circle" p3 ht
"trim" "last" "" p3 ""
"erase" "previous" ""
"text" "m" p3 ht (/ (* (angle p1 p2) 180.0) pi) "R"
)
)
(defun C:RIDGE ()
(setq ok T)
(setvar "cmdecho" 0)
(textht)
(while ok
(locate)
(insrtr)
(setq ans (getstring "\nDo another? "))
(if (or (= ans "Y") (= ans ""))
(setq ok T)
(setq ok nil)
)
)
)

  3 Responses to “Category : Printer + Display Graphics
Archive   : 1988LISP.ZIP
Filename : RIDGE.LSP
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/