Wait, wait wait....,
I will not insert Lee's code in my program. I want to take an idea how to to make custom Grtext (the engine). Now I understood (in my way) how to do the engine and I will post my code for FREE OF USE, NO LIMITS. About the Author's rights I never break it. I have read lee-mac's tutorials - it is good, but from now - stop.
So in the end - when I post my code of GrText, I want from You to excuse.
; for free use; Read closely the comments to understand the logic of works of code(defun c:go () ; ver 1.0(setq vl nil)(setq i 0)(repeat 2 ; we can put (strlen... ) to repeat for evry character in string(setq vlist ; making list ONLY with vectors without color(cons(mapcar; i is step by X. 0 is for Step by Y'(lambda (x) (list (+ (car x) i) (+ (cadr x) 0)))'((2 10) (2 10) (6 10) (6 10) (3 5) (3 10) (6 5) (6 5) (4 4) (5 4) (7 4) (7 10) (8 4) (8 4)) ; this u character describe (point by point by point); If We make a list (point by point by point) with all alphabet will receive every message on screen.Now is just "u" char)vlist))(setq i (+ 10 i)) ; Next interval (step by X));repeat(setq vl1 (cons 2 (apply 'append vlist))) ; Here put color 2 / yellow / in vector list(while(setq drag (grread t 4 0))(if (= (type (nth 1 drag)) 'LIST)(progn(redraw)(setq s (/ (getvar "viewsize") (cadr (getvar "SCREENSIZE")))) ; this scale factor to receive constant high of character on screen(grvecs vl1((lambda ( Scale PosX PosY ) ; define anonymous function(list(list Scale 0. 0. PosX ) ; Matrix for scaling(list 0. Scale 0. PosY )(list 0. 0. Scale 0.)(list 0. 0. 0. 1.)))s ; Scale(+ (car (nth 1 drag)) (* 15 s)) ;PosX(- (cadr (nth 1 drag)) (* 31 s)) ;PosY)) ))(princ drag););while)
Next step is to make list (point by point by point) (0 0) (2 2) (15 2) ...... and so on, with all alphabetic characters.
Next step is to write code for joint all lists of characters in one list. May be I have to use mapcar and append. But I am beginner and need time to do it.
Thank you for your attention!
If you have questions please....
