Commit 23436b9

Nick committed on
Prevent hUGEDriver folder from being polluted by maps and syms
commit 23436b9af9b145d126030c9d5734b9fefd9a4fcb parent 4d81bbd
2 changed files +74−69
Modifiedcodegen.pas +7−2
@@ -258,8 +258,8 @@ begin
258 if Proc.ExitCode <> 0 then goto AssemblyError; 258 if Proc.ExitCode <> 0 then goto AssemblyError;
259 end; 259 end;
260 260
261 if Mode <> emPreview then 261 if Mode <> emPreview then begin
262 if not CopyFile(Filename+IfThen(Mode = emGBS, '.gbs', '.gb'), FilePath) then begin 262 if not RenameFile(Filename+IfThen(Mode = emGBS, '.gbs', '.gb'), FilePath) then begin
263 MessageDlg('Error!', 263 MessageDlg('Error!',
264 'Couldn''t move the file to its new location. Make sure your path is correct!', 264 'Couldn''t move the file to its new location. Make sure your path is correct!',
265 mtError, 265 mtError,
@@ -269,6 +269,11 @@ begin
269 goto Cleanup; 269 goto Cleanup;
270 end; 270 end;
271 271
272 DeleteFile(Filename+'.obj');
273 DeleteFile(Filename+'.sym');
274 DeleteFile(Filename+'.map');
275 end;
276
272 Result := True; 277 Result := True;
273 goto Cleanup; 278 goto Cleanup;
274 279
Modifiedtracker.lfm +67−67
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1123 2 Left = 804
3 Height = 1200 3 Height = 1200
4 Top = 146 4 Top = 184
5 Width = 2040 5 Width = 2040
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1166 7 ClientHeight = 1166
@@ -58,10 +58,10 @@ object frmTracker: TfrmTracker
58 Height = 770 58 Height = 770
59 Top = 0 59 Top = 0
60 Width = 1693 60 Width = 1693
61 ActivePage = RoutinesTabSheet 61 ActivePage = GeneralTabSheet
62 Align = alClient 62 Align = alClient
63 ParentFont = False 63 ParentFont = False
64 TabIndex = 5 64 TabIndex = 0
65 TabOrder = 0 65 TabOrder = 0
66 object GeneralTabSheet: TTabSheet 66 object GeneralTabSheet: TTabSheet
67 Caption = 'General' 67 Caption = 'General'
@@ -284,18 +284,18 @@ object frmTracker: TfrmTracker
284 end 284 end
285 object InstrumentTabSheet: TTabSheet 285 object InstrumentTabSheet: TTabSheet
286 Caption = 'Instruments' 286 Caption = 'Instruments'
287 ClientHeight = 412 287 ClientHeight = 727
288 ClientWidth = 960 288 ClientWidth = 1685
289 ParentFont = False 289 ParentFont = False
290 object PaintBox1: TPaintBox 290 object PaintBox1: TPaintBox
291 AnchorSideTop.Control = FlowPanel1 291 AnchorSideTop.Control = FlowPanel1
292 AnchorSideTop.Side = asrBottom 292 AnchorSideTop.Side = asrBottom
293 AnchorSideBottom.Side = asrBottom 293 AnchorSideBottom.Side = asrBottom
294 Left = 0 294 Left = 0
295 Height = 7 295 Height = 19
296 Hint = 'Preview of how the resulting waveform will look with envelope applied' 296 Hint = 'Preview of how the resulting waveform will look with envelope applied'
297 Top = 405 297 Top = 708
298 Width = 960 298 Width = 1685
299 Align = alClient 299 Align = alClient
300 Color = clBlack 300 Color = clBlack
301 ParentColor = False 301 ParentColor = False
@@ -305,9 +305,9 @@ object frmTracker: TfrmTracker
305 end 305 end
306 object FlowPanel1: TFlowPanel 306 object FlowPanel1: TFlowPanel
307 Left = 0 307 Left = 0
308 Height = 405 308 Height = 708
309 Top = 0 309 Top = 0
310 Width = 960 310 Width = 1685
311 Align = alTop 311 Align = alTop
312 AutoSize = True 312 AutoSize = True
313 BevelOuter = bvNone 313 BevelOuter = bvNone
@@ -342,9 +342,9 @@ object frmTracker: TfrmTracker
342 ParentFont = False 342 ParentFont = False
343 TabOrder = 0 343 TabOrder = 0
344 object InstrumentGroupBox: TGroupBox 344 object InstrumentGroupBox: TGroupBox
345 Left = 7 345 Left = 12
346 Height = 364 346 Height = 364
347 Top = 7 347 Top = 12
348 Width = 474 348 Width = 474
349 Anchors = [] 349 Anchors = []
350 BorderSpacing.Left = 12 350 BorderSpacing.Left = 12
@@ -358,7 +358,7 @@ object frmTracker: TfrmTracker
358 TabOrder = 0 358 TabOrder = 0
359 object InstrumentNumberSpinner: TSpinEdit 359 object InstrumentNumberSpinner: TSpinEdit
360 Left = 140 360 Left = 140
361 Height = 23 361 Height = 38
362 Hint = 'What instrument to edit' 362 Hint = 'What instrument to edit'
363 Top = 2 363 Top = 2
364 Width = 308 364 Width = 308
@@ -371,25 +371,25 @@ object frmTracker: TfrmTracker
371 end 371 end
372 object Label1: TLabel 372 object Label1: TLabel
373 Left = 14 373 Left = 14
374 Height = 15 374 Height = 30
375 Top = 14 375 Top = 14
376 Width = 58 376 Width = 101
377 Caption = 'Instrument' 377 Caption = 'Instrument'
378 ParentColor = False 378 ParentColor = False
379 ParentFont = False 379 ParentFont = False
380 end 380 end
381 object Label2: TLabel 381 object Label2: TLabel
382 Left = 14 382 Left = 14
383 Height = 15 383 Height = 30
384 Top = 60 384 Top = 60
385 Width = 32 385 Width = 56
386 Caption = 'Name' 386 Caption = 'Name'
387 ParentColor = False 387 ParentColor = False
388 ParentFont = False 388 ParentFont = False
389 end 389 end
390 object InstrumentNameEdit: TEdit 390 object InstrumentNameEdit: TEdit
391 Left = 140 391 Left = 140
392 Height = 23 392 Height = 38
393 Hint = 'The name of the instrument' 393 Hint = 'The name of the instrument'
394 Top = 46 394 Top = 46
395 Width = 308 395 Width = 308
@@ -399,9 +399,9 @@ object frmTracker: TfrmTracker
399 end 399 end
400 object Label3: TLabel 400 object Label3: TLabel
401 Left = 14 401 Left = 14
402 Height = 15 402 Height = 30
403 Top = 107 403 Top = 107
404 Width = 24 404 Width = 43
405 Caption = 'Type' 405 Caption = 'Type'
406 ParentColor = False 406 ParentColor = False
407 ParentFont = False 407 ParentFont = False
@@ -427,10 +427,10 @@ object frmTracker: TfrmTracker
427 end 427 end
428 object LengthEnabledCheckbox: TCheckBox 428 object LengthEnabledCheckbox: TCheckBox
429 Left = 14 429 Left = 14
430 Height = 19 430 Height = 34
431 Hint = 'Cut the sound after a certain length of time' 431 Hint = 'Cut the sound after a certain length of time'
432 Top = 147 432 Top = 147
433 Width = 57 433 Width = 98
434 Caption = 'Length' 434 Caption = 'Length'
435 OnChange = LengthEnabledCheckboxChange 435 OnChange = LengthEnabledCheckboxChange
436 ParentFont = False 436 ParentFont = False
@@ -479,9 +479,9 @@ object frmTracker: TfrmTracker
479 end 479 end
480 end 480 end
481 object EnvelopeGroupBox: TGroupBox 481 object EnvelopeGroupBox: TGroupBox
482 Left = 292 482 Left = 510
483 Height = 238 483 Height = 238
484 Top = 7 484 Top = 12
485 Width = 1153 485 Width = 1153
486 Anchors = [] 486 Anchors = []
487 BorderSpacing.Left = 12 487 BorderSpacing.Left = 12
@@ -495,18 +495,18 @@ object frmTracker: TfrmTracker
495 TabOrder = 1 495 TabOrder = 1
496 object Label4: TLabel 496 object Label4: TLabel
497 Left = 14 497 Left = 14
498 Height = 15 498 Height = 30
499 Top = 16 499 Top = 16
500 Width = 46 500 Width = 80
501 Caption = 'Start vol.' 501 Caption = 'Start vol.'
502 ParentColor = False 502 ParentColor = False
503 ParentFont = False 503 ParentFont = False
504 end 504 end
505 object Label5: TLabel 505 object Label5: TLabel
506 Left = 14 506 Left = 14
507 Height = 15 507 Height = 30
508 Top = 84 508 Top = 84
509 Width = 48 509 Width = 84
510 Caption = 'Direction' 510 Caption = 'Direction'
511 ParentColor = False 511 ParentColor = False
512 ParentFont = False 512 ParentFont = False
@@ -531,9 +531,9 @@ object frmTracker: TfrmTracker
531 end 531 end
532 object Label6: TLabel 532 object Label6: TLabel
533 Left = 14 533 Left = 14
534 Height = 15 534 Height = 30
535 Top = 150 535 Top = 150
536 Width = 41 536 Width = 71
537 Caption = 'Change' 537 Caption = 'Change'
538 ParentColor = False 538 ParentColor = False
539 ParentFont = False 539 ParentFont = False
@@ -550,10 +550,10 @@ object frmTracker: TfrmTracker
550 TabOrder = 1 550 TabOrder = 1
551 object EnvelopePaintbox: TPaintBox 551 object EnvelopePaintbox: TPaintBox
552 Left = 1 552 Left = 1
553 Height = 103 553 Height = 182
554 Hint = 'Preview of the volume envelope' 554 Hint = 'Preview of the volume envelope'
555 Top = 1 555 Top = 1
556 Width = 344 556 Width = 604
557 Align = alClient 557 Align = alClient
558 ParentFont = False 558 ParentFont = False
559 OnPaint = EnvelopePaintboxPaint 559 OnPaint = EnvelopePaintboxPaint
@@ -583,9 +583,9 @@ object frmTracker: TfrmTracker
583 end 583 end
584 end 584 end
585 object SquareGroupBox: TGroupBox 585 object SquareGroupBox: TGroupBox
586 Left = 7 586 Left = 12
587 Height = 296 587 Height = 296
588 Top = 229 588 Top = 400
589 Width = 558 589 Width = 558
590 Anchors = [] 590 Anchors = []
591 BorderSpacing.Left = 12 591 BorderSpacing.Left = 12
@@ -599,9 +599,9 @@ object frmTracker: TfrmTracker
599 TabOrder = 2 599 TabOrder = 2
600 object Label7: TLabel 600 object Label7: TLabel
601 Left = 14 601 Left = 14
602 Height = 15 602 Height = 30
603 Top = 28 603 Top = 28
604 Width = 61 604 Width = 107
605 Caption = 'Sweep time' 605 Caption = 'Sweep time'
606 ParentColor = False 606 ParentColor = False
607 ParentFont = False 607 ParentFont = False
@@ -654,27 +654,27 @@ object frmTracker: TfrmTracker
654 end 654 end
655 object Label8: TLabel 655 object Label8: TLabel
656 Left = 14 656 Left = 14
657 Height = 15 657 Height = 30
658 Top = 84 658 Top = 84
659 Width = 84 659 Width = 147
660 Caption = 'Sweep direction' 660 Caption = 'Sweep direction'
661 ParentColor = False 661 ParentColor = False
662 ParentFont = False 662 ParentFont = False
663 end 663 end
664 object Label9: TLabel 664 object Label9: TLabel
665 Left = 14 665 Left = 14
666 Height = 15 666 Height = 30
667 Top = 147 667 Top = 147
668 Width = 56 668 Width = 101
669 Caption = 'Sweep size' 669 Caption = 'Sweep size'
670 ParentColor = False 670 ParentColor = False
671 ParentFont = False 671 ParentFont = False
672 end 672 end
673 object Label10: TLabel 673 object Label10: TLabel
674 Left = 14 674 Left = 14
675 Height = 15 675 Height = 30
676 Top = 210 676 Top = 210
677 Width = 25 677 Width = 44
678 Caption = 'Duty' 678 Caption = 'Duty'
679 ParentColor = False 679 ParentColor = False
680 ParentFont = False 680 ParentFont = False
@@ -714,9 +714,9 @@ object frmTracker: TfrmTracker
714 end 714 end
715 end 715 end
716 object WaveGroupBox: TGroupBox 716 object WaveGroupBox: TGroupBox
717 Left = 340 717 Left = 594
718 Height = 296 718 Height = 296
719 Top = 229 719 Top = 400
720 Width = 520 720 Width = 520
721 Anchors = [] 721 Anchors = []
722 BorderSpacing.Left = 12 722 BorderSpacing.Left = 12
@@ -731,18 +731,18 @@ object frmTracker: TfrmTracker
731 TabOrder = 3 731 TabOrder = 3
732 object Label11: TLabel 732 object Label11: TLabel
733 Left = 14 733 Left = 14
734 Height = 15 734 Height = 30
735 Top = 28 735 Top = 28
736 Width = 40 736 Width = 70
737 Caption = 'Volume' 737 Caption = 'Volume'
738 ParentColor = False 738 ParentColor = False
739 ParentFont = False 739 ParentFont = False
740 end 740 end
741 object Label12: TLabel 741 object Label12: TLabel
742 Left = 14 742 Left = 14
743 Height = 15 743 Height = 30
744 Top = 84 744 Top = 84
745 Width = 55 745 Width = 95
746 Caption = 'Waveform' 746 Caption = 'Waveform'
747 ParentColor = False 747 ParentColor = False
748 ParentFont = False 748 ParentFont = False
@@ -791,10 +791,10 @@ object frmTracker: TfrmTracker
791 TabOrder = 1 791 TabOrder = 1
792 object WavePaintbox: TPaintBox 792 object WavePaintbox: TPaintBox
793 Left = 1 793 Left = 1
794 Height = 57 794 Height = 101
795 Hint = 'Preview of the waveform associated with this instrument' 795 Hint = 'Preview of the waveform associated with this instrument'
796 Top = 1 796 Top = 1
797 Width = 270 797 Width = 474
798 Align = alClient 798 Align = alClient
799 Color = clBlack 799 Color = clBlack
800 ParentColor = False 800 ParentColor = False
@@ -824,9 +824,9 @@ object frmTracker: TfrmTracker
824 end 824 end
825 end 825 end
826 object NoiseGroupBox: TGroupBox 826 object NoiseGroupBox: TGroupBox
827 Left = 651 827 Left = 1138
828 Height = 296 828 Height = 296
829 Top = 229 829 Top = 400
830 Width = 462 830 Width = 462
831 Anchors = [] 831 Anchors = []
832 BorderSpacing.Left = 12 832 BorderSpacing.Left = 12
@@ -841,10 +841,10 @@ object frmTracker: TfrmTracker
841 TabOrder = 4 841 TabOrder = 4
842 object SevenBitCounterCheckbox: TCheckBox 842 object SevenBitCounterCheckbox: TCheckBox
843 Left = 14 843 Left = 14
844 Height = 19 844 Height = 34
845 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise' 845 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
846 Top = 140 846 Top = 140
847 Width = 215 847 Width = 373
848 Alignment = taLeftJustify 848 Alignment = taLeftJustify
849 Caption = '7 bit counter (more tone-like output)' 849 Caption = '7 bit counter (more tone-like output)'
850 OnChange = SevenBitCounterCheckboxChange 850 OnChange = SevenBitCounterCheckboxChange
@@ -853,9 +853,9 @@ object frmTracker: TfrmTracker
853 end 853 end
854 object Label14: TLabel 854 object Label14: TLabel
855 Left = 16 855 Left = 16
856 Height = 15 856 Height = 30
857 Top = 89 857 Top = 89
858 Width = 71 858 Width = 124
859 Caption = 'Dividing ratio' 859 Caption = 'Dividing ratio'
860 ParentColor = False 860 ParentColor = False
861 ParentFont = False 861 ParentFont = False
@@ -873,9 +873,9 @@ object frmTracker: TfrmTracker
873 end 873 end
874 object Label25: TLabel 874 object Label25: TLabel
875 Left = 16 875 Left = 16
876 Height = 15 876 Height = 30
877 Top = 28 877 Top = 28
878 Width = 86 878 Width = 149
879 Caption = 'Shift clock mask' 879 Caption = 'Shift clock mask'
880 ParentColor = False 880 ParentColor = False
881 ParentFont = False 881 ParentFont = False
@@ -907,16 +907,16 @@ object frmTracker: TfrmTracker
907 end 907 end
908 object WavesTabSheet: TTabSheet 908 object WavesTabSheet: TTabSheet
909 Caption = 'Waves' 909 Caption = 'Waves'
910 ClientHeight = 412 910 ClientHeight = 727
911 ClientWidth = 960 911 ClientWidth = 1685
912 ParentFont = False 912 ParentFont = False
913 object WaveEditPaintBox: TPaintBox 913 object WaveEditPaintBox: TPaintBox
914 AnchorSideTop.Control = WaveEditGroupBox 914 AnchorSideTop.Control = WaveEditGroupBox
915 AnchorSideTop.Side = asrBottom 915 AnchorSideTop.Side = asrBottom
916 Left = 0 916 Left = 0
917 Height = 252 917 Height = 447
918 Top = 160 918 Top = 280
919 Width = 960 919 Width = 1685
920 Align = alBottom 920 Align = alBottom
921 Anchors = [akTop, akLeft, akRight, akBottom] 921 Anchors = [akTop, akLeft, akRight, akBottom]
922 BorderSpacing.Top = 23 922 BorderSpacing.Top = 23
@@ -938,16 +938,16 @@ object frmTracker: TfrmTracker
938 TabOrder = 0 938 TabOrder = 0
939 object Label20: TLabel 939 object Label20: TLabel
940 Left = 28 940 Left = 28
941 Height = 15 941 Height = 30
942 Top = 28 942 Top = 28
943 Width = 29 943 Width = 51
944 Caption = 'Wave' 944 Caption = 'Wave'
945 ParentColor = False 945 ParentColor = False
946 ParentFont = False 946 ParentFont = False
947 end 947 end
948 object WaveEditNumberSpinner: TSpinEdit 948 object WaveEditNumberSpinner: TSpinEdit
949 Left = 112 949 Left = 112
950 Height = 23 950 Height = 38
951 Top = 14 951 Top = 14
952 Width = 140 952 Width = 140
953 MaxValue = 15 953 MaxValue = 15