Author Topic: New Lisp any suggestions are welcomed  (Read 19760 times)

0 Members and 1 Guest are viewing this topic.

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: New Lisp any suggestions are welcomed
« Reply #30 on: October 22, 2010, 02:18:51 PM »
what does it matter what side hes on?

BTW, i just did a search for that line in my "junk file" and i found something very similar... So, i would appreciate credit for that little bit every time you use it from now on. Thank you.
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: New Lisp any suggestions are welcomed
« Reply #31 on: October 22, 2010, 02:22:14 PM »
Seriously, there is a limit to how far things can be taken... are we all to credit the first guy to end with (princ)?

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: New Lisp any suggestions are welcomed
« Reply #32 on: October 22, 2010, 02:23:51 PM »
So where do we draw the line (you brought it up didnt you...you tell us)?
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: New Lisp any suggestions are welcomed
« Reply #33 on: October 22, 2010, 02:25:45 PM »
So where do we draw the line (you brought it up didnt you...you tell us)?

Ah yes, I figured that would be the next post. pass.

alanjt

  • Needs a day job
  • Posts: 5352
  • Standby for witty remark...
Re: New Lisp any suggestions are welcomed
« Reply #34 on: October 22, 2010, 02:29:15 PM »
Consider: Did you come up with this or did you 'copy' it from someone else?

Code: [Select]
(wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")

I knew you'd bring that up sooner or later as you were involved in the thread in which we were first discussing it. But you also use that code, so which side are you arguing from?


It's a gray area.
Sure, it's wrong and completely unethical to take an entire program and just slap a new author name on it, but do we really have to denote every little snippet because we 'got' that particular method from another user. I mean, isn't that why we're here in the first place and why we post code as open-source?

Hell, right now people are taking open-source code, slapping their name on it and taking full credit. This will not stop. The only thing you can do is suck it up, compile your code or stop posting it.

Civil 3D 2019 ~ Windohz 7 64bit
Dropbox

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: New Lisp any suggestions are welcomed
« Reply #35 on: October 22, 2010, 02:33:52 PM »
So where do we draw the line (you brought it up didnt you...you tell us)?

Ah yes, I figured that would be the next post. pass.

*lol* no, you cant do that. No feelings, angst, or whatever involved.

Where do YOU draw the line (is it in your favor--are you playing fair-)? Or what?

I wasnt at one time, and when i realized it, it helped me.
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: New Lisp any suggestions are welcomed
« Reply #36 on: October 22, 2010, 02:39:39 PM »
Where I stand, if I copy a chunk of code from someone, then I'll mark it to say where I've copied it from. Else if I see an idea/way of approaching a problem, I might elaborate on it, but I would always be constructing the code myself from scratch, and hence would not deem it necessary to mark it. That said, for each of these there are fuzzy boundaries - and so, no, I won't be drawing any lines.

ronjonp

  • Needs a day job
  • Posts: 7526
Re: New Lisp any suggestions are welcomed
« Reply #37 on: October 22, 2010, 02:48:37 PM »
Consider: Did you come up with this or did you 'copy' it from someone else?

Code: [Select]
(wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")

I knew you'd bring that up sooner or later as you were involved in the thread in which we were first discussing it. But you also use that code, so which side are you arguing from?



I use it as well  :-P

Code: [Select]
Copyright© me 2010 to infinity
(wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")[/code

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

David Bethel

  • Swamp Rat
  • Posts: 656
Re: New Lisp any suggestions are welcomed
« Reply #38 on: October 22, 2010, 02:51:30 PM »
Here's the oldest .lsp file I have in my library.  Somethings from 1988 still look familiar.  

Who gets to claim
Code: [Select]
(defun rtd (r)
 (* 180 (/ r pi))
)
?
-David
R12 Dos - A2K

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: New Lisp any suggestions are welcomed
« Reply #39 on: October 22, 2010, 02:55:10 PM »
They had SETQ back in '88?!


EDIT:
Awesome!
Code: [Select]
;----- Mode Save -- Saves designated system variables in a list ---

(defun MODES (a)
   (setq MLST '())
   (repeat (length a)
      (setq MLST (append MLST (list (list (car a) (getvar (car a))))))
      (setq a (cdr a)))
)
;----- Mode Reset -- Resets previously saves system variables ---

(defun MODER ()
   (repeat (length MLST)
      (setvar (caar MLST) (cadar MLST))
      (setq MLST (cdr MLST))
   )
)
« Last Edit: October 22, 2010, 02:58:39 PM by Se7en »
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: New Lisp any suggestions are welcomed
« Reply #40 on: October 22, 2010, 03:00:22 PM »
Who gets to claim
Code: [Select]
(defun rtd (r)
 (* 180 (/ r pi))
)
?
-David

Euclid
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com • http://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

David Bethel

  • Swamp Rat
  • Posts: 656
Re: New Lisp any suggestions are welcomed
« Reply #41 on: October 22, 2010, 03:06:17 PM »
Who gets to claim
Code: [Select]
(defun rtd (r)
 (* 180 (/ r pi))
)
?
-David

Euclid

He should have some major royalties built up by now !   lol!  -David
R12 Dos - A2K

alanjt

  • Needs a day job
  • Posts: 5352
  • Standby for witty remark...
Re: New Lisp any suggestions are welcomed
« Reply #42 on: October 22, 2010, 03:13:11 PM »
I was studying your matrix rotation routine a while back and for some reason, this stuck in my mind. Probably because I remembered when I was studying some of gile's work on a similar subject.
Here, you post it as such: http://www.theswamp.org/index.php?topic=34955.0
Code: [Select]
(defun mxv ( m v )
  (mapcar '(lambda ( r ) (apply '+ (mapcar '* r v))) m)
)
No, you are not taking credit for it, but you have to stuck in a group of codes you are claiming credit on and without any mention of where from this came.

and with a search, I found this: http://www.theswamp.org/index.php?topic=33700.msg390752#msg390752
Code: [Select]
;; Matrix x Vector  ~  Vladimir Nesterovsky
(defun mxv ( mat vec )
  (mapcar '(lambda ( row ) (apply '+ (mapcar '* row vec))) mat))
Civil 3D 2019 ~ Windohz 7 64bit
Dropbox

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: New Lisp any suggestions are welcomed
« Reply #43 on: October 22, 2010, 03:19:26 PM »
That was part of my library of math/vector functions -

alanjt

  • Needs a day job
  • Posts: 5352
  • Standby for witty remark...
Re: New Lisp any suggestions are welcomed
« Reply #44 on: October 22, 2010, 03:24:15 PM »
That was part of my library of math/vector functions -
You are missing my point; both functions are exactly the same and both were posted by you (as I linked).
Civil 3D 2019 ~ Windohz 7 64bit
Dropbox