Computer Generated Art - My Gallery Display

Electric Heart

//omh

startshape heart
 
background{b -1}
 
size{ s 3}
 
rule heart{
    heart_half{}
    heart_half{flip 90}
}
 
rule heart_half{
    base{}
    heart_half{s .95 r 10 x .1}
}
 
rule bead1{
    bd1{}
    whisker{b 1 s .02}
}
 
rule bead2{
    bd2{}
    whisker{b 1 s .02}
}
 
rule bead3{
    bd3{}
    whisker{b 1 s .02}
}
 
rule bd1{
    CIRCLE{h 355 sat 1 s .3 }
    bd1{s .98  b .01  }
}
 
rule bd2{
    CIRCLE{ sat 0  s .3 }
    bd2{s .98 1.005 b .02  }
}
 
rule bd3{
    CIRCLE{h 355 sat 1 s .3  }
    bd3{s .98  b .01  }
}
 
rule whisker{
    SQUARE{h 200}
    whisker{s .99 y 1 r 10 sat .01 }
}
 
rule whisker{
    SQUARE{h 200 }
    whisker{s .99 y 1 r -10 sat .01}
}
 
rule base{
bead1{x 0.0050000004 y -0.8733047 z -0.0010   }
bead2{x 0.010000001 y -0.5063722 z -0.0020 }
bead3{x 0.015000001 y -0.63901603 z -0.0030  }
bead1{x 0.020000001 y -0.26237854 z -0.0040   }
bead2{x 0.025000002 y 0.7451157 z -0.0050000004 }
bead3{x 0.030000003 y 0.9405313 z -0.0060000005  }
bead1{x 0.035000004 y -0.2927395 z -0.0070000007   }
bead2{x 0.040000003 y -0.13235363 z -0.0080 }
bead3{x 0.045 y -0.22902194 z -0.009000001  }
bead1{x 0.050000004 y 0.9129445 z -0.010000001   }
bead2{x 0.055000003 y -0.6192128 z -0.011000001 }
bead3{x 0.060000006 y -0.8184458 z -0.012000001  }
bead1{x 0.065000005 y 0.31774405 z -0.013000001   }
bead2{x 0.07000001 y 0.98898745 z -0.014000001 }
bead3{x 0.07500001 y 0.69394994 z -0.0150000015  }
bead1{x 0.080000006 y -0.06632285 z -0.016   }
bead2{x 0.08500001 y -0.71851575 z -0.017 }
bead3{x 0.09 y -0.9933331 z -0.018000001  }
bead1{x 0.095000006 y -0.8919034 z -0.019000001   }
bead2{x 0.10000001 y -0.5440203 z -0.020000001 }
bead3{x 0.105000004 y -0.09886968 z -0.021000002  }
bead1{x 0.11000001 y 0.3277017 z -0.022000002   }
bead2{x 0.11500001 y 0.66621876 z -0.023000002 }
bead3{x 0.12000001 y 0.8872947 z -0.024000002  }
bead1{x 0.12500001 y 0.98935837 z -0.025000002   }
bead2{x 0.13000001 y 0.9869591 z -0.026000002 }
bead3{x 0.13500002 y 0.90193146 z -0.027000003  }
bead1{x 0.14000002 y 0.7576277 z -0.028000003   }
bead2{x 0.14500001 y 0.575623 z -0.029000003 }
bead3{x 0.15000002 y 0.3741502 z -0.030000003  }
bead1{x 0.15500002 y 0.1676315 z -0.031000003   }
bead2{x 0.16000001 y -0.033179693 z -0.032 }
bead3{x 0.16499999 y -0.22074556 z -0.033  }
bead1{x 0.16999999 y -0.39018452 z -0.033999998   }
bead2{x 0.17499998 y -0.53870475 z -0.034999996 }
bead3{x 0.17999998 y -0.66510093 z -0.035999995  }
bead1{x 0.18499997 y -0.76932204 z -0.036999993   }
bead2{x 0.18999995 y -0.85212165 z -0.03799999 }
bead3{x 0.19499995 y -0.9147863 z -0.03899999  }
bead1{x 0.19999994 y -0.9589239 z -0.039999988   }
bead2{x 0.20499992 y -0.9863094 z -0.040999986 }
bead3{x 0.20999992 y -0.99877423 z -0.041999985  }
bead1{x 0.21499991 y -0.9981264 z -0.042999983   }
bead2{x 0.21999991 y -0.98609906 z -0.04399998 }
bead3{x 0.2249999 y -0.9643177 z -0.04499998  }
bead1{x 0.22999988 y -0.9342805 z -0.045999978   }
bead2{x 0.23499988 y -0.89735055 z -0.046999976 }
bead3{x 0.23999988 y -0.85475373 z -0.047999974  }
bead1{x 0.24499986 y -0.8075831 z -0.048999973   }
bead2{x 0.24999985 y -0.75680405 z -0.04999997 }
bead3{x 0.25499985 y -0.70326406 z -0.05099997  }
bead1{x 0.25999984 y -0.6477013 z -0.051999968   }
bead2{x 0.26499984 y -0.5907553 z -0.052999966 }
bead3{x 0.26999983 y -0.53297555 z -0.053999964  }
bead1{x 0.2749998 y -0.4748325 z -0.054999962   }
bead2{x 0.2799998 y -0.416724 z -0.05599996 }
bead3{x 0.2849998 y -0.3589866 z -0.05699996  }
bead1{x 0.28999978 y -0.3019007 z -0.057999957   }
bead2{x 0.29499978 y -0.2456986 z -0.058999956 }
bead3{x 0.29999977 y -0.19057046 z -0.059999954  }
bead1{x 0.30499977 y -0.13666932 z -0.060999952   }
bead2{x 0.30999976 y -0.08411669 z -0.06199995 }
bead3{x 0.31499976 y -0.03300696 z -0.06299995  }
bead1{x 0.31999975 y 0.016589507 z -0.06399995   }
bead2{x 0.32499975 y 0.064622074 z -0.06499995 }
bead3{x 0.32999977 y 0.11105794 z -0.065999955  }
bead1{x 0.3349998 y 0.15587798 z -0.06699996   }
bead2{x 0.3399998 y 0.19907539 z -0.06799996 }
bead3{x 0.3449998 y 0.24065462 z -0.06899996  }
bead1{x 0.34999982 y 0.28062797 z -0.06999996   }
bead2{x 0.35499984 y 0.31901503 z -0.070999965 }
bead3{x 0.35999984 y 0.35584074 z -0.07199997  }
bead1{x 0.36499983 y 0.3911358 z -0.07299997   }
bead2{x 0.36999986 y 0.42493397 z -0.07399997 }
bead3{x 0.37499988 y 0.45727193 z -0.07499997  }
bead1{x 0.37999988 y 0.4881884 z -0.075999975   }
bead2{x 0.38499987 y 0.5177245 z -0.07699998 }
bead3{x 0.3899999 y 0.5459221 z -0.07799998  }
bead1{x 0.39499992 y 0.5728237 z -0.07899998   }
bead2{x 0.39999992 y 0.59847176 z -0.07999998 }
bead3{x 0.4049999 y 0.6229095 z -0.080999985  }
bead1{x 0.40999994 y 0.6461797 z -0.08199999   }
bead2{x 0.41499996 y 0.6683243 z -0.08299999 }
bead3{x 0.41999996 y 0.68938524 z -0.08399999  }
bead1{x 0.42499995 y 0.7094032 z -0.08499999   }
bead2{x 0.42999998 y 0.7284187 z -0.085999995 }
bead3{x 0.435 y 0.7464706 z -0.087  }
bead1{x 0.44 y 0.76359683 z -0.088   }
bead2{x 0.445 y 0.7798347 z -0.089 }
bead3{x 0.45000002 y 0.79522014 z -0.09  }
bead1{x 0.45500004 y 0.8097879 z -0.091000006   }
bead2{x 0.46000004 y 0.8235719 z -0.09200001 }
bead3{x 0.46500003 y 0.8366045 z -0.09300001  }
bead1{x 0.47000006 y 0.84891725 z -0.09400001   }
bead2{x 0.47500008 y 0.86054057 z -0.09500001 }
bead3{x 0.48000008 y 0.87150335 z -0.096000016  }
bead1{x 0.48500007 y 0.881834 z -0.09700002   }
bead2{x 0.4900001 y 0.8915595 z -0.09800002 }
bead3{x 0.49500012 y 0.9007057 z -0.09900002  }
}