Dialog 4 lettering program
Close
Login to Your Account
Results 1 to 5 of 5
  1. #1
    Join Date
    Dec 2002
    Location
    Benicia California USA
    Posts
    8,750
    Post Thanks / Like
    Likes (Given)
    2288
    Likes (Received)
    3136

    Default Dialog 4 lettering program

    So i spent some time over the weekend transcribing a program i had in hard copy.
    Had it on a disc, but that is gone years back.
    Works using peramiters to size and space the lettering.
    Each letter is a sub routien.

    Sorry no numbers.
    All was entered MDI , so could be errors, be sure to test all programs before you run it!!!!!!!!!!!!!!!!!!!

    DECKEL DIALOG4 LETTERING PROGRAM

    P1 =2.31 This is the size setting for the letters...bigger value= larger letters...all capitols.
    P2 =4*P1
    P3 =3*P1
    P4 =P3:2
    P5 =1*P1
    P6 =(COS(ATAN(P2:P4))*P5)
    P7 =P3-P6
    P8 =1.5*P1
    P9 =P2:2
    P10 =P3+P5
    P11 =(2.5+1)*P1
    P12 =2.33137085*P1
    P13 =1.2*P1
    P14 =2.8*P1
    P15 = .8*P1
    P16 =3.2*P1
    P17 =1.13137085*P1
    P18 =.4*P1
    P19 =(2.33137085+1)*P1
    P20 =1.6*P1
    P21 =2.6*P1
    P22 =3.6*P1
    P23 =1.8*P1
    P24 =1.3*P1
    P25 =2.492307692*P1
    P26 =2*P1
    P27 =4.2*P1
    P28 =1.3*P1
    P29 =2.7*P1
    P30 =1.1*P1
    P31 =2.2*P1
    P32 =3.3*P1
    P33 =4.4*P1
    P34 =5.4*P1
    P9999 =.6 DEPTH CALL, alter the value to change lettering depth, .6 is just an example.


    %1111*1("A)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=-P9999
    N4 X= P4 Y=P2
    N5 X= P3 Y0
    N6 G0 Z2
    N7 G0 X= P7 Y= P5
    N8 Z=- P9999
    N9 X= P6
    N10 G0 Z2
    N11 G55 X= P10



    %1111*2("B)
    N1 G0 Z2
    N2 G0 X= P8 Y= P9
    N3 Z=- P9999
    N4 X0
    N5 Y= P2
    N6 X= P8
    N7 G2 X= P8 Y= P9 I0 J=- P5
    N8 G2 X= P8 Y0 I0 J=- P5
    N9 X0
    N10 Y= P9
    N11 G0 Z2
    N12 G55 X= P11



    %1111*3("C)
    N1 G0 Z2
    N2 G0 X= P12 Y= P15
    N3 Z=- P9999
    N4 G2 X0 Y= P13 I=- P17 J= P18
    N5 Y= P14
    N6 G2 X= P12 Y= P16 I= P13 J0
    N7 G0 Z2
    N8 G55 X= P19



    %1111*4("D)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 X= P20
    N6 G2 X= P21 Y= P3 I0 J=- P5
    N7 Y= P5
    N8 G2 X= P20 Y0 I=-P5 J0
    N9 X0
    N10 G0 Z2
    N11 G55 X=P22



    %1111*5("E)
    N1 G0 Z2
    N2 G0 X=P21 Y0
    N3 Z=- P9999
    N4 X0
    N5 Y=P2
    N6 X= P21
    N7 G0 Z2
    N8 G0 X= P23 Y= P9
    N9 Z=-P9999
    N10 X0
    N11 G0 Z2
    N12 G55 X= P22



    %1111*6("F)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 X=P21
    N6 G0 Z2
    N7 G0 Y= P9
    N8 Z=- P9999
    N9 X= P23
    N10 G0 Z2
    N11 G55 X= P22



    %1111*7("G)
    N1 G0 Z2
    N2 G0 X= P24 Y= P9
    N3 Z=- P9999
    N4 X= P21
    N5 Y= P24
    N6 G2 X0 Y= P24 I=- P24 J0
    N7 Y= P14
    N8 G2 X= P12 Y= P16 I= P13 J0
    N9 G0 Z2
    N10 G55 X= P22



    %1111*8("H)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 G0 Z2
    N6 G0 X0 Y= P9
    N7 Z=-P9999
    N8 X= P21
    N9 G0 Z2
    N10 G0 Y0
    N11 Z=- P9999
    N12 Y= P2
    N13 G0 Z2
    N14 G55 X= P22



    %1111*9("I)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 G0 Z2
    N6 G55 X= P5



    %1111*10("J)
    N1 G0 Z2
    N2 G0 X0 Y= P15
    N3 Z=- P9999
    N4 G3 X= P12 Y= P13 I= P17 J= P18
    M5 Y= P2
    N6 G0 Z2
    N7 G55 X= P19



    %1111*11("K)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 G0 Z2
    N6 G0 X0 Y= P13
    N7 Z=- P9999
    N8 X= P21 Y= P2
    N9 G0 Z2
    N10 G0 X= P13 Y= P25
    N11 Z=-P9999
    N12 X= P21 Y0
    N13 G0 Z2
    N14 G55 X= P22



    %1111*12("L)
    N1 G0 Z2
    N2 G0 X= P26 Y0
    N3 Z=- P9999
    N4 X0
    N5 Y= P2
    N6 G0 Z2
    N7 G55 X= P3



    %1111*13("M)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 X= P20 Y= P5
    N6 X= P16 Y= P2
    N7 Y0
    N8 G0 Z2
    N9 G55 X= P27



    %1111*14("N)
    N2 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 X= P21 Y0
    N6 Y=P2
    N7 G0 Z2
    N8 G55 X= P22



    %1111*15("O)
    N1 G0 Z2
    N2 G0 X0 Y= P28
    N3Z=- P9999
    N4 Y= P29
    N5 G2 X=P21 Y= P29 I= P28 J0
    N6 Y= P28
    N7 G2 X0 Y= P28 I=- P28 J0
    N8 G0 Z2
    N9 G55 X= P22



    %1111*16("P)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=-P9999
    N4 Y= P2
    N5 X= P20
    N6 G2 X= P20 Y= P9 I0 J=- P5
    N7 X0
    N8 G0 Z2
    N9 G55 X- P22



    %1111*17("Q)
    N1 G0 Z2
    N2 G0 X0 Y= P28
    N3 Z=- P9999
    N4 Y= P29
    N5 G2 X= P21 Y= P29 I= P28 J0
    N6 Y= P28
    N7 G2 X0 Y= P28 I=- P28 J0
    N8 G0 Z2
    N9 G0 X= P14 Y0
    N10 Z=- P9999
    N11 W= P23 Y= P15
    N12 G0 Z2
    N13 G55 X= P22



    %1111*18("R)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 X= P20
    N6 G2 X= P20 Y= P9 I0 J=-P5
    N7 X0
    N8 G0 Z2
    N9 G0 X= P20 Y= P9
    N10 Z=- P9999
    N11 X= P21 Y0
    N12 G0 Z2
    N13 G55 X= P22



    %1111*19("S)
    N1 G0 Z2
    N2 G0 X0 Y= P5
    N3 G64 Z=- P9999
    N4 G3 X= P5 Y0 I= P5 J0
    N5 X= P20
    N6 G3 X= P20 Y= P9 I0 J= P5
    N7 X= P5
    N8 G2 X= P5 Y= P2 I0 J= P5
    N9 X= P20
    N10 G2 X= P21 Y= P3 I0 J=- P5
    N11 G0 Z2
    N12 G60
    N13 G55 X= P22



    %1111*20("T)
    N1 G0 Z2
    N2 G0 X= P5 Y0
    N3 Z=- P9999
    N4 Y= P2
    N5 G0 Z2
    N6 G0 X0 Y= P2
    N7 Z=- P9999
    N8 X= P26
    N9 G0 Z2
    N10 G55 X= P3



    %1111*21("U)
    N1 G0 Z2
    N2 G0 X0 Y= P2
    N3 Z=- P9999
    N4 Y= P28
    N5 G3 X= P21 Y= P28 I= P28 J0
    N6 Y= P2
    N7 G0 Z2
    N8 G55 X= P22



    %1111*22("V)
    N1 G0 Z2
    N2 G0 X0 Y= P2
    N3 Z=- P9999
    N4 Z= P28 Y0
    N5 X= P21 Y= P2
    N6 G0 Z2
    N7 G55 X= P22



    %1111*23("W)
    N1 G0 Z2
    N2 G0 X0 Y= P2
    N3 Z=- P9999
    N4 X= P30 Y0
    N5 X= P31 Y= P2
    N6 X= P32 Y0
    N7 X= P33 Y= P2
    N8 G0 Z2
    N9 G55 X= P34



    %1111*24("X)
    N1 G0 Z2
    N2 G0 X0 Y0
    N3 Z=- P9999
    N4 X= P21 Y= P2
    N5 G0 Z2
    N6 G0 X0
    N7 Z=- P9999
    N8 X= P21 Y0
    N9 G0 Z2
    N10 G55 X= P22



    %1111*25("Y)
    N1 G0 Z2
    N2 G0 X= P28 Y0
    N3 Z=- P9999
    N4 Y= P9
    N5 X0 Y= P2
    N6 G0 Z2
    N7 G0 X= P21
    N8 Z=- P9999
    N9 X= P28 Y= P9
    N10 G0 Z2
    N11 G55 X= P22



    %1111*26("Z)
    N1 G0 Z2
    N2 G0 X0 Y= P2
    N3 Z=- P9999
    N4 X= P21
    N5 X0 Y0
    N6 X= P21
    N7 G0 Z2
    N8 G55 X= P22



    51111*98(POINT)
    N1 G0 Z2
    N2 G0 X-0.2 Y0
    N3 Z=- P9999
    N4 G2 I0.2 J0
    N5 G0 Z2
    N6 G55 X= P22



    51111*99("EX)
    N1 G0 Z2
    N2 G0 X0.2 Y0
    N3 Z=- P9999
    N4 G2 I0.2 J0
    N5 G0 Z2
    N6 G0 X0 Y= P20
    N7 Z=- P9999
    N8 Y= P2
    N9 G0 Z2
    N10 G55 X= P22



    %1111*100("SPACE)
    N1 G55 X= P22


    ?
    0000


    Cheers Ross

  2. Likes Mud, Colt45 liked this post
  3. #2
    Join Date
    Dec 2002
    Location
    Benicia California USA
    Posts
    8,750
    Post Thanks / Like
    Likes (Given)
    2288
    Likes (Received)
    3136

    Default

    Here is a sample of how the program works:

    This program writes the name "JASE"

    %
    (&%1111/0012A0"JASE)
    N2000 G0 X-100 Y-100 Z100
    N2001 G17 T2
    N2002 G0 X0 Y0 Z2 F125 S+2000
    N2003 %*10
    N2004 %*1
    N2005 %*19
    N2006 %*5
    N2007 G0 X-200 Y-200 Z200
    N2008 M30

    Cheers Ross

  4. #3
    Join Date
    Sep 2002
    Location
    Salinas, CA USA
    Posts
    4,715
    Post Thanks / Like
    Likes (Given)
    487
    Likes (Received)
    394

    Default

    Nice Ross! Wish I had D4 so I could take advantage of it. I like seeing that D4 has trig functions and parameters.

    Do you have a photo of what the engraving looks like?

  5. #4
    Join Date
    Feb 2001
    Location
    Redwood City, CA USA
    Posts
    5,296
    Post Thanks / Like
    Likes (Given)
    236
    Likes (Received)
    1160

    Default

    Way cool! Is the control able to keep up and not pause? When I engrave, I just use Fusion 360 CAM to "Trace" sketched lettering. The control pauses and stutters for sure, but it does not matter since I use a spring-loaded drag engraver "turning" at S+0.

  6. #5
    Join Date
    Dec 2002
    Location
    Benicia California USA
    Posts
    8,750
    Post Thanks / Like
    Likes (Given)
    2288
    Likes (Received)
    3136

    Default

    As i recall the cutting action is pretty smooth...Don't recall too much cut-n-pause...think its better than a lot of CAM generated code since it is all done with real linear and circular interpolation not a point to [point cloud.
    Letters are pretty generic...nothing fancy, single stroke block letters,all caps. .Got the program from the guy (Volker) that installed my FP4NC back in 93'

    Like you Rich i use SurfCam to do any lettering...more choices there, but have used this program BC. (before cam)
    Parameter programming is actually pretty slick....Don't use it all that much but it has potential. Wrote a program that cut a hex for bolts...Used the parameters to vary the size of the hex...change a couple of
    "P" values and the height of the hex and its size were changed...

    Cheers Ross


Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •