Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Features » Autovalues/!Grooves/!Help
Autovalues/!Grooves/!Help
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Features |
| Filename: | Autovalues/!Grooves/!Help |
| Read OK: | ✔ |
| File size: | 06F8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Program title : !Grooves Version : 1.00 Date : 26th April 1997 Author : G. Waterworth (RaspSoft) Status : Public Domain Email : raspsoft@argonet.co.uk Web : http://www.argonet.co.uk/users/s.dine/ The boring bit -------------- This program can be distributed freely but only in its complete state. It must not be modified and all files must be included. If it is to be distributed as part of a package acknowledgment must be given to the author. No charge for this software can be made but distribution charges may be covered. The good bit ------------ This small utility is for the easy calculation of grooves. The idea is to write the CNC code for you in a standard Fanuc format. 'D1' ---- The top diameter of the groove. 'D2' ---- The bottom diameter of the groove. 'L' --- The distance from the front of the work piece to the start of the groove or the distance to the bottom of the groove if the groove is in the face of the work. 'W' --- The width of the groove. 'R' --- The size of the radius to be formed on the outside edges to remove any burrs. 'Tip width' ---------- The width of the grooving tip to be used. An error will be given if the tip is too wide or too narrow to form the current groove. 'Spindle speed' --------------- As it sounds the speed the work will rotate. 'Tool number' ------------- The tool number of the tool to be used to form the groove. The filer icon can be dropped onto any application that can accept text. The CNC code will be saved in the standard Fanuc format for the groove type selected. Some example data ----------------- D1 = 50.00 D2 = 44.00 W = 4.00 L = 10.00 R = .40 Tip width = 2.15 Spindle = 500 Tool = 5
00000000 50 72 6f 67 72 61 6d 20 74 69 74 6c 65 20 20 3a |Program title :| 00000010 20 21 47 72 6f 6f 76 65 73 0a 56 65 72 73 69 6f | !Grooves.Versio| 00000020 6e 20 20 20 20 20 20 20 20 3a 20 31 2e 30 30 0a |n : 1.00.| 00000030 44 61 74 65 20 20 20 20 20 20 20 20 20 20 20 3a |Date :| 00000040 20 32 36 74 68 20 41 70 72 69 6c 20 31 39 39 37 | 26th April 1997| 00000050 0a 41 75 74 68 6f 72 20 20 20 20 20 20 20 20 20 |.Author | 00000060 3a 20 47 2e 20 57 61 74 65 72 77 6f 72 74 68 20 |: G. Waterworth | 00000070 28 52 61 73 70 53 6f 66 74 29 0a 53 74 61 74 75 |(RaspSoft).Statu| 00000080 73 20 20 20 20 20 20 20 20 20 3a 20 50 75 62 6c |s : Publ| 00000090 69 63 20 44 6f 6d 61 69 6e 0a 45 6d 61 69 6c 20 |ic Domain.Email | 000000a0 20 20 20 20 20 20 20 20 20 3a 20 72 61 73 70 73 | : rasps| 000000b0 6f 66 74 40 61 72 67 6f 6e 65 74 2e 63 6f 2e 75 |oft@argonet.co.u| 000000c0 6b 0a 57 65 62 20 20 20 20 20 20 20 20 20 20 20 |k.Web | 000000d0 20 3a 20 68 74 74 70 3a 2f 2f 77 77 77 2e 61 72 | : http://www.ar| 000000e0 67 6f 6e 65 74 2e 63 6f 2e 75 6b 2f 75 73 65 72 |gonet.co.uk/user| 000000f0 73 2f 73 2e 64 69 6e 65 2f 0a 0a 54 68 65 20 62 |s/s.dine/..The b| 00000100 6f 72 69 6e 67 20 62 69 74 0a 2d 2d 2d 2d 2d 2d |oring bit.------| 00000110 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 68 69 73 20 70 |--------..This p| 00000120 72 6f 67 72 61 6d 20 63 61 6e 20 62 65 20 64 69 |rogram can be di| 00000130 73 74 72 69 62 75 74 65 64 20 66 72 65 65 6c 79 |stributed freely| 00000140 20 62 75 74 20 6f 6e 6c 79 20 69 6e 20 69 74 73 | but only in its| 00000150 20 63 6f 6d 70 6c 65 74 65 20 73 74 61 74 65 2e | complete state.| 00000160 20 49 74 20 6d 75 73 74 0a 6e 6f 74 20 62 65 20 | It must.not be | 00000170 6d 6f 64 69 66 69 65 64 20 61 6e 64 20 61 6c 6c |modified and all| 00000180 20 66 69 6c 65 73 20 6d 75 73 74 20 62 65 20 69 | files must be i| 00000190 6e 63 6c 75 64 65 64 2e 20 49 66 20 69 74 20 69 |ncluded. If it i| 000001a0 73 20 74 6f 20 62 65 20 64 69 73 74 72 69 62 75 |s to be distribu| 000001b0 74 65 64 20 61 73 0a 70 61 72 74 20 6f 66 20 61 |ted as.part of a| 000001c0 20 70 61 63 6b 61 67 65 20 61 63 6b 6e 6f 77 6c | package acknowl| 000001d0 65 64 67 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 |edgment must be | 000001e0 67 69 76 65 6e 20 74 6f 20 74 68 65 20 61 75 74 |given to the aut| 000001f0 68 6f 72 2e 20 4e 6f 20 63 68 61 72 67 65 20 66 |hor. No charge f| 00000200 6f 72 20 74 68 69 73 0a 73 6f 66 74 77 61 72 65 |or this.software| 00000210 20 63 61 6e 20 62 65 20 6d 61 64 65 20 62 75 74 | can be made but| 00000220 20 64 69 73 74 72 69 62 75 74 69 6f 6e 20 63 68 | distribution ch| 00000230 61 72 67 65 73 20 6d 61 79 20 62 65 20 63 6f 76 |arges may be cov| 00000240 65 72 65 64 2e 0a 0a 0a 54 68 65 20 67 6f 6f 64 |ered....The good| 00000250 20 62 69 74 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | bit.-----------| 00000260 2d 0a 0a 54 68 69 73 20 73 6d 61 6c 6c 20 75 74 |-..This small ut| 00000270 69 6c 69 74 79 20 69 73 20 66 6f 72 20 74 68 65 |ility is for the| 00000280 20 65 61 73 79 20 63 61 6c 63 75 6c 61 74 69 6f | easy calculatio| 00000290 6e 20 6f 66 20 67 72 6f 6f 76 65 73 2e 20 54 68 |n of grooves. Th| 000002a0 65 20 69 64 65 61 20 69 73 20 74 6f 20 77 72 69 |e idea is to wri| 000002b0 74 65 0a 74 68 65 20 43 4e 43 20 63 6f 64 65 20 |te.the CNC code | 000002c0 66 6f 72 20 79 6f 75 20 69 6e 20 61 20 73 74 61 |for you in a sta| 000002d0 6e 64 61 72 64 20 46 61 6e 75 63 20 66 6f 72 6d |ndard Fanuc form| 000002e0 61 74 2e 0a 0a 27 44 31 27 0a 2d 2d 2d 2d 0a 54 |at...'D1'.----.T| 000002f0 68 65 20 74 6f 70 20 64 69 61 6d 65 74 65 72 20 |he top diameter | 00000300 6f 66 20 74 68 65 20 67 72 6f 6f 76 65 2e 0a 0a |of the groove...| 00000310 27 44 32 27 0a 2d 2d 2d 2d 0a 54 68 65 20 62 6f |'D2'.----.The bo| 00000320 74 74 6f 6d 20 64 69 61 6d 65 74 65 72 20 6f 66 |ttom diameter of| 00000330 20 74 68 65 20 67 72 6f 6f 76 65 2e 0a 0a 27 4c | the groove...'L| 00000340 27 0a 2d 2d 2d 0a 54 68 65 20 64 69 73 74 61 6e |'.---.The distan| 00000350 63 65 20 66 72 6f 6d 20 74 68 65 20 66 72 6f 6e |ce from the fron| 00000360 74 20 6f 66 20 74 68 65 20 77 6f 72 6b 20 70 69 |t of the work pi| 00000370 65 63 65 20 74 6f 20 74 68 65 20 73 74 61 72 74 |ece to the start| 00000380 20 6f 66 20 74 68 65 20 67 72 6f 6f 76 65 20 6f | of the groove o| 00000390 72 20 74 68 65 0a 64 69 73 74 61 6e 63 65 20 74 |r the.distance t| 000003a0 6f 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 |o the bottom of | 000003b0 74 68 65 20 67 72 6f 6f 76 65 20 69 66 20 74 68 |the groove if th| 000003c0 65 20 67 72 6f 6f 76 65 20 69 73 20 69 6e 20 74 |e groove is in t| 000003d0 68 65 20 66 61 63 65 20 6f 66 20 74 68 65 20 77 |he face of the w| 000003e0 6f 72 6b 2e 0a 0a 27 57 27 0a 2d 2d 2d 0a 54 68 |ork...'W'.---.Th| 000003f0 65 20 77 69 64 74 68 20 6f 66 20 74 68 65 20 67 |e width of the g| 00000400 72 6f 6f 76 65 2e 0a 0a 27 52 27 0a 2d 2d 2d 0a |roove...'R'.---.| 00000410 54 68 65 20 73 69 7a 65 20 6f 66 20 74 68 65 20 |The size of the | 00000420 72 61 64 69 75 73 20 74 6f 20 62 65 20 66 6f 72 |radius to be for| 00000430 6d 65 64 20 6f 6e 20 74 68 65 20 6f 75 74 73 69 |med on the outsi| 00000440 64 65 20 65 64 67 65 73 20 74 6f 20 72 65 6d 6f |de edges to remo| 00000450 76 65 20 61 6e 79 20 62 75 72 72 73 2e 0a 0a 27 |ve any burrs...'| 00000460 54 69 70 20 77 69 64 74 68 27 0a 2d 2d 2d 2d 2d |Tip width'.-----| 00000470 2d 2d 2d 2d 2d 0a 54 68 65 20 77 69 64 74 68 20 |-----.The width | 00000480 6f 66 20 74 68 65 20 67 72 6f 6f 76 69 6e 67 20 |of the grooving | 00000490 74 69 70 20 74 6f 20 62 65 20 75 73 65 64 2e 20 |tip to be used. | 000004a0 41 6e 20 65 72 72 6f 72 20 77 69 6c 6c 20 62 65 |An error will be| 000004b0 20 67 69 76 65 6e 20 69 66 20 74 68 65 20 74 69 | given if the ti| 000004c0 70 20 69 73 0a 74 6f 6f 20 77 69 64 65 20 6f 72 |p is.too wide or| 000004d0 20 74 6f 6f 20 6e 61 72 72 6f 77 20 74 6f 20 66 | too narrow to f| 000004e0 6f 72 6d 20 74 68 65 20 63 75 72 72 65 6e 74 20 |orm the current | 000004f0 67 72 6f 6f 76 65 2e 0a 0a 27 53 70 69 6e 64 6c |groove...'Spindl| 00000500 65 20 73 70 65 65 64 27 0a 2d 2d 2d 2d 2d 2d 2d |e speed'.-------| 00000510 2d 2d 2d 2d 2d 2d 2d 2d 0a 41 73 20 69 74 20 73 |--------.As it s| 00000520 6f 75 6e 64 73 20 74 68 65 20 73 70 65 65 64 20 |ounds the speed | 00000530 74 68 65 20 77 6f 72 6b 20 77 69 6c 6c 20 72 6f |the work will ro| 00000540 74 61 74 65 2e 0a 0a 27 54 6f 6f 6c 20 6e 75 6d |tate...'Tool num| 00000550 62 65 72 27 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ber'.-----------| 00000560 2d 2d 0a 54 68 65 20 74 6f 6f 6c 20 6e 75 6d 62 |--.The tool numb| 00000570 65 72 20 6f 66 20 74 68 65 20 74 6f 6f 6c 20 74 |er of the tool t| 00000580 6f 20 62 65 20 75 73 65 64 20 74 6f 20 66 6f 72 |o be used to for| 00000590 6d 20 74 68 65 20 67 72 6f 6f 76 65 2e 0a 0a 0a |m the groove....| 000005a0 54 68 65 20 66 69 6c 65 72 20 69 63 6f 6e 20 63 |The filer icon c| 000005b0 61 6e 20 62 65 20 64 72 6f 70 70 65 64 20 6f 6e |an be dropped on| 000005c0 74 6f 20 61 6e 79 20 61 70 70 6c 69 63 61 74 69 |to any applicati| 000005d0 6f 6e 20 74 68 61 74 20 63 61 6e 20 61 63 63 65 |on that can acce| 000005e0 70 74 20 74 65 78 74 2e 0a 0a 54 68 65 20 43 4e |pt text...The CN| 000005f0 43 20 63 6f 64 65 20 77 69 6c 6c 20 62 65 20 73 |C code will be s| 00000600 61 76 65 64 20 69 6e 20 74 68 65 20 73 74 61 6e |aved in the stan| 00000610 64 61 72 64 20 46 61 6e 75 63 20 66 6f 72 6d 61 |dard Fanuc forma| 00000620 74 20 66 6f 72 20 74 68 65 20 67 72 6f 6f 76 65 |t for the groove| 00000630 20 74 79 70 65 0a 73 65 6c 65 63 74 65 64 2e 0a | type.selected..| 00000640 0a 53 6f 6d 65 20 65 78 61 6d 70 6c 65 20 64 61 |.Some example da| 00000650 74 61 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ta.-------------| 00000660 2d 2d 2d 2d 0a 0a 44 31 20 20 20 20 20 20 20 20 |----..D1 | 00000670 3d 20 20 35 30 2e 30 30 0a 44 32 20 20 20 20 20 |= 50.00.D2 | 00000680 20 20 20 3d 20 20 34 34 2e 30 30 0a 57 20 20 20 | = 44.00.W | 00000690 20 20 20 20 20 20 3d 20 20 20 34 2e 30 30 0a 4c | = 4.00.L| 000006a0 20 20 20 20 20 20 20 20 20 3d 20 20 31 30 2e 30 | = 10.0| 000006b0 30 0a 52 20 20 20 20 20 20 20 20 20 3d 20 20 20 |0.R = | 000006c0 20 2e 34 30 0a 54 69 70 20 77 69 64 74 68 20 3d | .40.Tip width =| 000006d0 20 20 20 32 2e 31 35 0a 0a 53 70 69 6e 64 6c 65 | 2.15..Spindle| 000006e0 20 20 20 3d 20 35 30 30 0a 54 6f 6f 6c 20 20 20 | = 500.Tool | 000006f0 20 20 20 3d 20 20 20 35 | = 5| 000006f8
.