home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fanivb / fani.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-08  |  23.7 KB  |  838 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Fani...Fractint18 Animator Ver.1.0"
  4.    ClientHeight    =   5610
  5.    ClientLeft      =   1965
  6.    ClientTop       =   1800
  7.    ClientWidth     =   9390
  8.    Height          =   6300
  9.    Icon            =   FANI.FRX:0000
  10.    Left            =   1905
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   FANI.FRX:0302
  13.    ScaleHeight     =   5610
  14.    ScaleWidth      =   9390
  15.    Top             =   1170
  16.    Width           =   9510
  17.    Begin ComboBox Kombi14 
  18.       Height          =   300
  19.       Left            =   6420
  20.       TabIndex        =   50
  21.       Text            =   "cos"
  22.       Top             =   1020
  23.       Width           =   1515
  24.    End
  25.    Begin ComboBox Kombi13 
  26.       Height          =   300
  27.       Left            =   6420
  28.       TabIndex        =   49
  29.       Text            =   "sin"
  30.       Top             =   360
  31.       Width           =   1515
  32.    End
  33.    Begin CommandButton Befehl4 
  34.       Caption         =   "line"
  35.       Height          =   375
  36.       Left            =   60
  37.       TabIndex        =   48
  38.       Top             =   3540
  39.       Width           =   1035
  40.    End
  41.    Begin TextBox Text16 
  42.       BackColor       =   &H00E0E0E0&
  43.       Height          =   375
  44.       Left            =   1860
  45.       TabIndex        =   46
  46.       Text            =   "2000"
  47.       Top             =   3900
  48.       Width           =   1035
  49.    End
  50.    Begin CommandButton Befehl1 
  51.       Caption         =   "nP"
  52.       Height          =   375
  53.       Left            =   1140
  54.       TabIndex        =   45
  55.       Top             =   3480
  56.       Width           =   555
  57.    End
  58.    Begin CommandButton Befehl3 
  59.       Caption         =   "Parameter"
  60.       Height          =   375
  61.       Left            =   60
  62.       TabIndex        =   44
  63.       Top             =   2820
  64.       Width           =   1035
  65.    End
  66.    Begin CommandButton Befehl2 
  67.       Caption         =   "Point"
  68.       Height          =   375
  69.       Left            =   60
  70.       TabIndex        =   43
  71.       Top             =   3180
  72.       Width           =   1035
  73.    End
  74.    Begin TextBox Text15 
  75.       Height          =   435
  76.       Left            =   6660
  77.       TabIndex        =   41
  78.       Text            =   "0"
  79.       Top             =   2700
  80.       Width           =   2175
  81.    End
  82.    Begin TextBox Text14 
  83.       Height          =   435
  84.       Left            =   4320
  85.       TabIndex        =   40
  86.       Text            =   "0"
  87.       Top             =   2700
  88.       Width           =   2355
  89.    End
  90.    Begin ComboBox Kombi12 
  91.       Height          =   300
  92.       Left            =   1140
  93.       TabIndex        =   38
  94.       Text            =   "no"
  95.       Top             =   2340
  96.       Width           =   855
  97.    End
  98.    Begin ComboBox Kombi11 
  99.       Height          =   300
  100.       Left            =   2940
  101.       TabIndex        =   7
  102.       Text            =   "0/71"
  103.       Top             =   1560
  104.       Width           =   1575
  105.    End
  106.    Begin ComboBox Kombi10 
  107.       Height          =   300
  108.       Left            =   2940
  109.       TabIndex        =   8
  110.       Text            =   "0/0/0"
  111.       Top             =   1200
  112.       Width           =   1935
  113.    End
  114.    Begin ComboBox Kombi9 
  115.       Height          =   300
  116.       Left            =   2940
  117.       TabIndex        =   9
  118.       Text            =   "0"
  119.       Top             =   840
  120.       Width           =   1575
  121.    End
  122.    Begin ComboBox Kombi8 
  123.       Height          =   300
  124.       Left            =   2940
  125.       TabIndex        =   10
  126.       Text            =   "0"
  127.       Top             =   480
  128.       Width           =   1575
  129.    End
  130.    Begin ComboBox Kombi7 
  131.       Height          =   300
  132.       Left            =   2940
  133.       TabIndex        =   11
  134.       Text            =   "-1"
  135.       Top             =   120
  136.       Width           =   1575
  137.    End
  138.    Begin TextBox Text13 
  139.       Height          =   375
  140.       Left            =   1860
  141.       TabIndex        =   31
  142.       Text            =   "1.06"
  143.       Top             =   3540
  144.       Width           =   1035
  145.    End
  146.    Begin TextBox Text12 
  147.       Height          =   975
  148.       Left            =   4800
  149.       MultiLine       =   -1  'True
  150.       ScrollBars      =   3  'Both
  151.       TabIndex        =   30
  152.       Text            =   "batch file"
  153.       Top             =   4680
  154.       Width           =   4575
  155.    End
  156.    Begin TextBox Text11 
  157.       Height          =   375
  158.       Left            =   1140
  159.       TabIndex        =   28
  160.       Text            =   "10"
  161.       Top             =   3900
  162.       Width           =   735
  163.    End
  164.    Begin TextBox Text10 
  165.       Height          =   975
  166.       Left            =   0
  167.       MultiLine       =   -1  'True
  168.       ScrollBars      =   3  'Both
  169.       TabIndex        =   27
  170.       Text            =   "parameter file"
  171.       Top             =   4680
  172.       Width           =   4815
  173.    End
  174.    Begin TextBox Text9 
  175.       Height          =   375
  176.       Left            =   6720
  177.       TabIndex        =   24
  178.       Text            =   "0"
  179.       Top             =   3960
  180.       Width           =   2175
  181.    End
  182.    Begin TextBox Text8 
  183.       Height          =   375
  184.       Left            =   4320
  185.       TabIndex        =   23
  186.       Text            =   "-0.3"
  187.       Top             =   3960
  188.       Width           =   2415
  189.    End
  190.    Begin TextBox Text7 
  191.       Height          =   375
  192.       Left            =   2100
  193.       TabIndex        =   22
  194.       Text            =   "4"
  195.       Top             =   2280
  196.       Width           =   615
  197.    End
  198.    Begin TextBox Text6 
  199.       Height          =   375
  200.       Left            =   8280
  201.       TabIndex        =   20
  202.       Text            =   "fani"
  203.       Top             =   300
  204.       Width           =   1095
  205.    End
  206.    Begin ComboBox Kombi6 
  207.       Height          =   300
  208.       Left            =   180
  209.       TabIndex        =   18
  210.       Text            =   "F3"
  211.       Top             =   2340
  212.       Width           =   855
  213.    End
  214.    Begin TextBox Text5 
  215.       Height          =   375
  216.       Left            =   6720
  217.       TabIndex        =   16
  218.       Text            =   "0.3"
  219.       Top             =   3600
  220.       Width           =   2175
  221.    End
  222.    Begin TextBox Text4 
  223.       Height          =   375
  224.       Left            =   4320
  225.       TabIndex        =   15
  226.       Text            =   "0.6"
  227.       Top             =   3600
  228.       Width           =   2415
  229.    End
  230.    Begin TextBox Text3 
  231.       Height          =   375
  232.       Left            =   2880
  233.       TabIndex        =   14
  234.       Text            =   "0.666667"
  235.       Top             =   3900
  236.       Width           =   1335
  237.    End
  238.    Begin TextBox Text2 
  239.       Height          =   375
  240.       Left            =   6660
  241.       TabIndex        =   6
  242.       Text            =   "0"
  243.       Top             =   2340
  244.       Width           =   2175
  245.    End
  246.    Begin TextBox Text1 
  247.       Height          =   375
  248.       Left            =   4320
  249.       TabIndex        =   5
  250.       Text            =   "0"
  251.       Top             =   2340
  252.       Width           =   2355
  253.    End
  254.    Begin ComboBox Kombi5 
  255.       Height          =   300
  256.       Left            =   60
  257.       TabIndex        =   4
  258.       Text            =   "iter"
  259.       Top             =   1560
  260.       Width           =   1935
  261.    End
  262.    Begin ComboBox Kombi4 
  263.       Height          =   300
  264.       Left            =   60
  265.       TabIndex        =   3
  266.       Text            =   "bof60"
  267.       Top             =   1200
  268.       Width           =   1935
  269.    End
  270.    Begin ComboBox Kombi3 
  271.       Height          =   300
  272.       Left            =   60
  273.       TabIndex        =   2
  274.       Text            =   "neon.map"
  275.       Top             =   840
  276.       Width           =   1935
  277.    End
  278.    Begin ComboBox Kombi2 
  279.       Height          =   300
  280.       Left            =   60
  281.       TabIndex        =   1
  282.       Text            =   "150"
  283.       Top             =   480
  284.       Width           =   1935
  285.    End
  286.    Begin ComboBox Kombi1 
  287.       Height          =   300
  288.       Left            =   60
  289.       TabIndex        =   0
  290.       Text            =   "julia"
  291.       Top             =   120
  292.       Width           =   1935
  293.    End
  294.    Begin Label Bezeichnung24 
  295.       Caption         =   "Map"
  296.       Height          =   255
  297.       Left            =   2100
  298.       TabIndex        =   57
  299.       Top             =   900
  300.       Width           =   675
  301.    End
  302.    Begin Label Bezeichnung23 
  303.       Caption         =   "Type"
  304.       Height          =   255
  305.       Left            =   2100
  306.       TabIndex        =   56
  307.       Top             =   180
  308.       Width           =   735
  309.    End
  310.    Begin Label Bezeichnung22 
  311.       Caption         =   "outside"
  312.       Height          =   255
  313.       Left            =   2100
  314.       TabIndex        =   55
  315.       Top             =   1620
  316.       Width           =   675
  317.    End
  318.    Begin Label Bezeichnung21 
  319.       Caption         =   "inside"
  320.       Height          =   315
  321.       Left            =   2100
  322.       TabIndex        =   54
  323.       Top             =   1200
  324.       Width           =   555
  325.    End
  326.    Begin Label Bezeichnung20 
  327.       Caption         =   "Iteration"
  328.       Height          =   315
  329.       Left            =   2100
  330.       TabIndex        =   53
  331.       Top             =   480
  332.       Width           =   735
  333.    End
  334.    Begin Label Bezeichnung19 
  335.       Caption         =   "Second Function"
  336.       Height          =   255
  337.       Left            =   6420
  338.       TabIndex        =   52
  339.       Top             =   780
  340.       Width           =   1515
  341.    End
  342.    Begin Label Bezeichnung18 
  343.       Caption         =   "First Function"
  344.       Height          =   195
  345.       Left            =   6420
  346.       TabIndex        =   51
  347.       Top             =   120
  348.       Width           =   1275
  349.    End
  350.    Begin Line Linie1 
  351.       X1              =   4320
  352.       X2              =   8820
  353.       Y1              =   3360
  354.       Y2              =   3360
  355.    End
  356.    Begin Label Bezeichnung17 
  357.       Caption         =   "end mag"
  358.       Height          =   315
  359.       Left            =   1980
  360.       TabIndex        =   47
  361.       Top             =   4320
  362.       Width           =   855
  363.    End
  364.    Begin Label Bezeichnung16 
  365.       Caption         =   "Center2"
  366.       Height          =   255
  367.       Left            =   6240
  368.       TabIndex        =   42
  369.       Top             =   3120
  370.       Width           =   735
  371.    End
  372.    Begin Label Bezeichnung15 
  373.       Caption         =   "Floating Point"
  374.       Height          =   375
  375.       Left            =   1140
  376.       TabIndex        =   39
  377.       Top             =   1920
  378.       Width           =   855
  379.    End
  380.    Begin Label Bezeichnung14 
  381.       Caption         =   " Distance Est."
  382.       Height          =   315
  383.       Left            =   4740
  384.       TabIndex        =   37
  385.       Top             =   1680
  386.       Width           =   1215
  387.    End
  388.    Begin Label Bezeichnung4 
  389.       Caption         =   "Potential"
  390.       Height          =   315
  391.       Left            =   4980
  392.       TabIndex        =   36
  393.       Top             =   1320
  394.       Width           =   795
  395.    End
  396.    Begin Label Bezeichnung3 
  397.       Caption         =   "      Decomp"
  398.       Height          =   315
  399.       Left            =   4380
  400.       TabIndex        =   35
  401.       Top             =   900
  402.       Width           =   1275
  403.    End
  404.    Begin Label Bezeichnung2 
  405.       Caption         =   "  Log Palette"
  406.       Height          =   375
  407.       Left            =   4620
  408.       TabIndex        =   34
  409.       Top             =   540
  410.       Width           =   1155
  411.    End
  412.    Begin Label Bezeichnung1 
  413.       Caption         =   "     Biomorph"
  414.       Height          =   375
  415.       Left            =   4440
  416.       TabIndex        =   33
  417.       Top             =   180
  418.       Width           =   1155
  419.    End
  420.    Begin Label Bezeichnung13 
  421.       Caption         =   "zoomfactor"
  422.       Height          =   255
  423.       Left            =   1860
  424.       TabIndex        =   32
  425.       Top             =   3300
  426.       Width           =   1215
  427.    End
  428.    Begin Label Bezeichnung12 
  429.       Caption         =   "No. of Pictures"
  430.       Height          =   375
  431.       Left            =   1140
  432.       TabIndex        =   29
  433.       Top             =   4260
  434.       Width           =   735
  435.    End
  436.    Begin Label Bezeichnung11 
  437.       Caption         =   "video"
  438.       Height          =   255
  439.       Left            =   120
  440.       TabIndex        =   26
  441.       Top             =   1980
  442.       Width           =   735
  443.    End
  444.    Begin Label Bezeichnung10 
  445.       Caption         =   "params end"
  446.       Height          =   255
  447.       Left            =   6180
  448.       TabIndex        =   25
  449.       Top             =   4320
  450.       Width           =   1575
  451.    End
  452.    Begin Label Bezeichnung9 
  453.       Caption         =   "bailout"
  454.       Height          =   255
  455.       Left            =   2100
  456.       TabIndex        =   21
  457.       Top             =   2040
  458.       Width           =   675
  459.    End
  460.    Begin Label Bezeichnung8 
  461.       Caption         =   "savename"
  462.       Height          =   315
  463.       Left            =   8280
  464.       TabIndex        =   19
  465.       Top             =   0
  466.       Width           =   915
  467.    End
  468.    Begin Label Bezeichnung7 
  469.       Caption         =   "params begin"
  470.       Height          =   255
  471.       Left            =   5880
  472.       TabIndex        =   17
  473.       Top             =   3360
  474.       Width           =   1335
  475.    End
  476.    Begin Label Bezeichnung6 
  477.       Caption         =   "mag"
  478.       Height          =   255
  479.       Left            =   3240
  480.       TabIndex        =   13
  481.       Top             =   4320
  482.       Width           =   495
  483.    End
  484.    Begin Label Bezeichnung5 
  485.       Caption         =   "Center1"
  486.       Height          =   195
  487.       Left            =   6240
  488.       TabIndex        =   12
  489.       Top             =   2100
  490.       Width           =   795
  491.    End
  492.    Begin Menu datei 
  493.       Caption         =   "fani"
  494.       Begin Menu Quit 
  495.          Caption         =   "Quit"
  496.       End
  497.    End
  498.    Begin Menu Animation 
  499.       Caption         =   "Animation"
  500.       Begin Menu parazoom 
  501.          Caption         =   "parazoom"
  502.       End
  503.       Begin Menu pointzoom 
  504.          Caption         =   "pointzoom"
  505.       End
  506.       Begin Menu linezoom 
  507.          Caption         =   "linezoom"
  508.       End
  509.    End
  510. Sub Befehl1_Click ()
  511. mz1 = Val(text13.Text): ma1 = Val(text3.Text)
  512. gt = Val(text16.Text)
  513. For kk = 0 To 100000
  514. dummy = DoEvents()
  515. ma1 = mz1 * ma1
  516. If ma1 > gt Then GoTo ddd
  517. kkk = kkk + 1
  518. text11.Text = Format$(kkk)
  519. End Sub
  520. Sub Befehl2_Click ()
  521. pointzoom.Visible = 1
  522. parazoom.Visible = 0
  523. linezoom.Visible = 0
  524. text14.Visible = 0
  525. bezeichnung16.Visible = 0
  526. text15.Visible = 0
  527. text13.Visible = 1
  528. text16.Visible = 1
  529. bezeichnung17.Visible = 1
  530. bezeichnung13.Visible = 1
  531. befehl1.Visible = 1
  532. text8.Visible = 0
  533. text9.Visible = 0
  534. bezeichnung10.Visible = 0
  535. End Sub
  536. Sub Befehl3_Click ()
  537. On Error Resume Next
  538. parazoom.Visible = 1
  539. pointzoom.Visible = 0
  540. linezoom.Visible = 0
  541. text14.Visible = 0
  542. bezeichnung16.Visible = 0
  543. text15.Visible = 0
  544. text13.Visible = 0
  545. text16.Visible = 0
  546. bezeichnung17.Visible = 0
  547. bezeichnung13.Visible = 0
  548. befehl1.Visible = 0
  549. text8.Visible = 1
  550. text9.Visible = 1
  551. bezeichnung10.Visible = 1
  552. End Sub
  553. Sub Befehl4_Click ()
  554. On Error Resume Next
  555. linezoom.Visible = 1
  556. parazoom.Visible = 0
  557. pointzoom.Visible = 0
  558. text14.Visible = 1
  559. bezeichnung16.Visible = 1
  560. text15.Visible = 1
  561. text13.Visible = 0
  562. text16.Visible = 0
  563. bezeichnung17.Visible = 0
  564. bezeichnung13.Visible = 0
  565. befehl1.Visible = 0
  566. text8.Visible = 0
  567. text9.Visible = 0
  568. bezeichnung10.Visible = 0
  569. End Sub
  570. Sub Form_Load ()
  571.     Const MB_OK = 0, MB_OKCANCEL = 1
  572.     Msg13 = "Freeware by NoSa"
  573.     MsgBox Msg13  ' Meldung anzeigen.
  574.   Top = screen.Height / 2 - Height / 2
  575.   Left = screen.Width / 2 - Width / 2
  576. parazoom.Visible = 1
  577. pointzoom.Visible = 0
  578. linezoom.Visible = 0
  579. text14.Visible = 0
  580. bezeichnung16.Visible = 0
  581. text15.Visible = 0
  582. text13.Visible = 0
  583. text16.Visible = 0
  584. bezeichnung17.Visible = 0
  585. bezeichnung13.Visible = 0
  586. befehl1.Visible = 0
  587. text8.Visible = 1
  588. text9.Visible = 1
  589. bezeichnung10.Visible = 1
  590. kombi13.AddItem "cosxx"
  591. kombi13.AddItem "sqr"
  592. kombi13.AddItem "sin"
  593. kombi13.AddItem "zero"
  594. kombi13.AddItem "conj"
  595. kombi13.AddItem "flip"
  596. kombi13.AddItem "cotanh"
  597. kombi13.AddItem "cotan"
  598. kombi13.AddItem "tanh"
  599. kombi13.AddItem "tan"
  600. kombi13.AddItem "cos"
  601. kombi13.AddItem "ident"
  602. kombi13.AddItem "recip"
  603. kombi13.AddItem "log"
  604. kombi13.AddItem "exp"
  605. kombi13.AddItem "cosh"
  606. kombi13.AddItem "sinh"
  607. kombi14.AddItem "cosxx"
  608. kombi14.AddItem "sqr"
  609. kombi14.AddItem "sin"
  610. kombi14.AddItem "zero"
  611. kombi14.AddItem "conj"
  612. kombi14.AddItem "flip"
  613. kombi14.AddItem "cotanh"
  614. kombi14.AddItem "cotan"
  615. kombi14.AddItem "tanh"
  616. kombi14.AddItem "tan"
  617. kombi14.AddItem "cos"
  618. kombi13.AddItem "ident"
  619. kombi13.AddItem "recip"
  620. kombi13.AddItem "log"
  621. kombi13.AddItem "exp"
  622. kombi13.AddItem "cosh"
  623. kombi13.AddItem "sinh"
  624. KOMBI1.AddItem "mandel"
  625. KOMBI1.AddItem "Julia"
  626. KOMBI1.AddItem "manowar"
  627. KOMBI1.AddItem "tim's_error"
  628. KOMBI1.AddItem "spider"
  629. KOMBI1.AddItem "Julia4"
  630. KOMBI1.AddItem "marksjulia"
  631. KOMBI1.AddItem "mandel4"
  632. KOMBI1.AddItem "julzzpwr"
  633. KOMBI1.AddItem "julibrot"
  634. KOMBI1.AddItem "bransleyj1"
  635. KOMBI1.AddItem "bransleyj3"
  636. KOMBI1.AddItem "bransleym1"
  637. KOMBI1.AddItem "bransleym3"
  638. kombi2.AddItem "150"
  639. kombi2.AddItem "500"
  640. kombi2.AddItem "1000"
  641. kombi2.AddItem "2000"
  642. kombi2.AddItem "3500"
  643. kombi2.AddItem "10000"
  644. kombi3.AddItem "firestrm.map"
  645. kombi3.AddItem "green.map"
  646. kombi3.AddItem "topo.map"
  647. kombi3.AddItem "landscap.map"
  648. kombi3.AddItem "royal.map"
  649. kombi3.AddItem "chroma.map"
  650. kombi3.AddItem "neon.map"
  651. kombi3.AddItem "default.map"
  652. kombi3.AddItem "altern.map"
  653. kombi3.AddItem "blues.map"
  654. kombi6.AddItem "SF5"
  655. kombi6.AddItem "F3"
  656. kombi6.AddItem "SF1"
  657. kombi6.AddItem "SF4"
  658. kombi6.AddItem "SF7"
  659. kombi6.AddItem "SF6"
  660.  kombi5.AddItem "iter"
  661.  kombi5.AddItem "real"
  662.  kombi5.AddItem "imag"
  663.  kombi5.AddItem "summ"
  664.  kombi5.AddItem "mult"
  665.  kombi5.AddItem "0"
  666. kombi4.AddItem "bof61"
  667. kombi4.AddItem "bof60"
  668. kombi4.AddItem "zmag"
  669. kombi4.AddItem "attractor"
  670. kombi4.AddItem "epscross"
  671. kombi4.AddItem "1"
  672. kombi4.AddItem "0"
  673. kombi7.AddItem "-1"
  674. kombi7.AddItem "0"
  675. kombi8.AddItem "0"
  676. kombi8.AddItem "1"
  677. kombi8.AddItem "-1"
  678. kombi9.AddItem "2"
  679. kombi9.AddItem "4"
  680. kombi9.AddItem "8"
  681. kombi9.AddItem "16"
  682. kombi9.AddItem "32"
  683. kombi9.AddItem "64"
  684. kombi9.AddItem "128"
  685. kombi9.AddItem "256"
  686. kombi10.AddItem "255/2000/1000/16bit"
  687. kombi10.AddItem "255/2000/1000/16bit"
  688. kombi10.AddItem "255/1000/2000/16bit"
  689. kombi10.AddItem "0/0/0"
  690. kombi10.AddItem "255/500/200"
  691. kombi11.AddItem "0/71"
  692. kombi11.AddItem "1000/100"
  693. kombi11.AddItem "3000/400"
  694. kombi11.AddItem "-100/71"
  695. kombi12.AddItem "yes"
  696. kombi12.AddItem "no"
  697. End Sub
  698. Sub kopieren_Click ()
  699. Clipboard.SetText text10.Text
  700. End Sub
  701. Sub lese ()
  702. On Error Resume Next
  703. screen.MousePointer = 11
  704. maxzoom1 = Val(text13.Text)
  705. type1 = KOMBI1.Text
  706. maxiter1 = kombi2.Text
  707. savename1 = text6.Text
  708. map1 = kombi3.Text
  709. inside1 = kombi4.Text
  710. outside1 = kombi5.Text
  711. video1 = kombi6.Text
  712. savename1 = text6.Text
  713. bailout1 = Val(text7.Text)
  714. center1 = Val(text1.Text)
  715. center2 = Val(text2.Text)
  716. center21 = Val(text14.Text)
  717. center22 = Val(text15.Text)
  718. mag1 = Val(text3.Text)
  719. paramsax = Val(text4.Text)
  720. paramsay = Val(text5.Text)
  721. paramsex = Val(text8.Text)
  722. paramsey = Val(text9.Text)
  723. bilder = Val(text11.Text)
  724. biomorph1 = Val(kombi7.Text)
  725. logpalette1 = Val(kombi8.Text)
  726. decomp1 = Val(kombi9.Text)
  727. potential1 = kombi10.Text
  728. distanceest1 = kombi11.Text
  729. floatingpoint1 = kombi12.Text
  730. fn1 = kombi13.Text
  731. fn2 = kombi14.Text
  732. End Sub
  733. Sub linezoom_Click ()
  734. On Error Resume Next
  735. Call lese
  736. Rem parameter interpolieren
  737. stepx = (center21 - center1) / bilder
  738. stepy = (center22 - center2) / bilder
  739. m = bilder
  740. For k = 0 To m
  741. If k = 0 Then GoTo uunten
  742.  parax = parax + stepx
  743.  paray = paray + stepy
  744. uunten:
  745.  cen1 = center1 + parax
  746.  cen2 = center2 + paray
  747. Msg1 = savename1 & Format$(k, "000") & " {" & Chr$(13) & Chr$(10)
  748. Msg2 = "reset" & " type=" & type1 & " params=" & Format$(paramsax, "0.0##############") & "/" & Format$(paramsay, "0.0#############") & Chr$(13) & Chr$(10)
  749. Msg3 = "center-mag=" & Format$(cen1, "0.0############") & "/" & Format$(cen2, "0.0##############") & "/" & Format$(mag1, "0.0#############") & Chr$(13) & Chr$(10)
  750. Msg4 = "maxiter=" & maxiter1 & " bailout=" & bailout1 & " inside=" & inside1 & " outside=" & outside1 & " map=" & map1 & Chr$(13) & Chr$(10)
  751. Msg5 = "distest=" & distanceest1 & " decomp=" & decomp1 & " biomorph=" & biomorph1 & " logmap=" & logpalette1 & " Float=" & floatingpoint1 & Chr$(13) & Chr$(10)
  752. Msg6 = "function=" & fn1 & "/" & fn2 & " potential=" & potential1 & " }" & Chr$(13) & Chr$(10)
  753.    ms = ms & Msg1 & Msg2 & Msg3 & Msg4 & Msg5 & Msg6
  754.  text10.Text = ms
  755. Msg11 = "fractint " & "@" & savename1 & ".par/" & savename1 & Format$(k, "000 ") & " batch=y savename=fani" & Format$(k, "000 ") & "gif87a=yes" & " video=" & video1 & " overwrite=yes sound=no " & Chr$(13) & Chr$(10)
  756. mss = mss & Msg11 & Msg21
  757. text12.Text = mss
  758.   Rem   Msg = Msg & "."
  759.   Rem  MsgBox Msg  ' Formatierung anzeigen.
  760.     dummy3 = DoEvents()
  761.   Next
  762.   Call speichernpar
  763.  screen.MousePointer = 1
  764. End Sub
  765. Sub parazoom_Click ()
  766. On Error Resume Next
  767. text10.Text = "           ": text12.Text = "          "
  768. Call lese
  769. Rem parameter interpolieren
  770. stepx = (paramsex - paramsax) / bilder
  771. stepy = (paramsey - paramsay) / bilder
  772. m = bilder
  773. For k = 0 To m
  774. If k = 0 Then GoTo unten
  775.  parax = parax + stepx
  776.  paray = paray + stepy
  777. unten:
  778.  parx = paramsax + parax
  779.  pary = paramsay + paray
  780.  Call textdruck
  781.   Next
  782.   Call speichernpar
  783.  screen.MousePointer = 1
  784. End Sub
  785. Sub pointzoom_Click ()
  786. On Error Resume Next
  787. Call lese
  788.  parx = paramsax
  789.  pary = paramsay
  790.  Rem zoomfakt = maxzoom1 / bilder
  791. m = bilder
  792. For k = 0 To m
  793. If k = 0 Then GoTo unten1
  794. mag1 = mag1 * maxzoom1
  795. unten1:
  796. Call textdruck
  797.  Next
  798. Call speichernpar
  799. screen.MousePointer = 1
  800. End Sub
  801. Sub Quit_Click ()
  802.     Const MB_OK = 0, MB_OKCANCEL = 1
  803.     Msg13 = "thank you for using Fani"
  804.     MsgBox Msg13  ' Meldung anzeigen.
  805. Unload form1
  806. End Sub
  807.   Sub speichernpar ()
  808.   On Error Resume Next
  809.   dat1$ = savename1 & ".par"
  810.   Open dat1$ For Output As 1
  811.   Print #1, text10.Text
  812.   Close #1
  813.    dat2$ = savename1 & ".bat"
  814.   Open dat2$ For Output As 2
  815.   Print #2, text12.Text
  816.   Close #2
  817.   mss = " ": ms = "  "
  818. End Sub
  819.  Sub t ()
  820. End Sub
  821. Sub textdruck ()
  822. On Error Resume Next
  823. Msg1 = savename1 & Format$(k, "000") & " {" & Chr$(13) & Chr$(10)
  824. Msg2 = "reset" & " type=" & type1 & " params=" & Format$(parx, "0.0##############") & "/" & Format$(pary, "0.0#############") & Chr$(13) & Chr$(10)
  825. Msg3 = "center-mag=" & Format$(center1, "0.0############") & "/" & Format$(center2, "0.0##############") & "/" & Format$(mag1, "0.0#############") & Chr$(13) & Chr$(10)
  826. Msg4 = "maxiter=" & maxiter1 & " bailout=" & bailout1 & " inside=" & inside1 & " outside=" & outside1 & " map=" & map1 & Chr$(13) & Chr$(10)
  827. Msg5 = "distest=" & distanceest1 & " decomp=" & decomp1 & " biomorph=" & biomorph1 & " logmap=" & logpalette1 & " Float=" & floatingpoint1 & " }" & Chr$(13) & Chr$(10)
  828. Msg6 = "function=" & fn1 & "/" & fn2 & " potential=" & potential1 & " }" & Chr$(13) & Chr$(10)
  829.    ms = ms & Msg1 & Msg2 & Msg3 & Msg4 & Msg5 & Msg6
  830.  text10.Text = ms
  831. Msg11 = "fractint " & "@" & savename1 & ".par/" & savename1 & Format$(k, "000 ") & " batch=y savename=fani" & Format$(k, "000 ") & "gif87a=yes" & " video=" & video1 & " overwrite=yes sound=no " & Chr$(13) & Chr$(10)
  832. mss = mss & Msg11 & Msg21
  833. text12.Text = mss
  834.   Rem   Msg = Msg & "."
  835.   Rem  MsgBox Msg  ' Formatierung anzeigen.
  836.     dummy3 = DoEvents()
  837. End Sub
  838.