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

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

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?

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.

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