View difference between Paste ID: ujkcT7zJ and CvgKP92s

 -- cxi's Element Creator
 -- Version 1.0 August 12 2016
 -- This code is released under the MIT license
 
 function round(num, dp)
     local mult = 10^(dp or 0)
     return math.floor(num * mult + 0.5) / mult
 end
 
 local element = elem.allocate("CXI", "ELEM")
 
 elem.element(element, elem.element(elem.DEFAULT_PT_DMND))
 elem.property(element, "Name", "ELEM")
 elem.property(element, "Colour", 0xFFFFFF)
 elem.property(element, "Description", "Element created using cxi's element creator. Press N to open.")
 elem.property(element, "MenuSection", elem.SC_SPECIAL)
 
 local width = 600
 local height = 342
 
 local exportwidth = 570
 local exportheight = 88
 
 local window = Window:new(14, 38, width, height)
 local exportwindow = Window:new(29, 165, exportwidth, exportheight)
 
 local clrlabel = Label:new(270, 316, 32, 16, "Color:")
 window:addComponent(clrlabel)
 local colortext = Textbox:new(306, 316, 50, 16, "ffffff", "")
 window:addComponent(colortext)
 
 local y = 30
 
 local advlabel = Label:new(10, y, width / 2 - 20, 16, "Advection - how much air movement affects a particle.")
 window:addComponent(advlabel)
 local advectiontext = Textbox:new(10, y + 20, width / 2 - 20, 16, "0.4", "")
 window:addComponent(advectiontext)
 y = y + 40
 
 local adrlabel = Label:new(10, y, width / 2 - 20, 16, "AirDrag - how much air a particle moves when moving.")
 window:addComponent(adrlabel)
 local airdragtext = Textbox:new(10, y + 20, width / 2 - 20, 16, "0.01", "")
 window:addComponent(airdragtext)
 y = y + 40
 
 local allabel = Label:new(10, y, width / 2 - 20, 16, "AirLoss - how much a particle slows down moving air.")
 window:addComponent(allabel)
 local airlosstext = Textbox:new(10, y + 20, width / 2 - 20, 16, "0.94", "")
 window:addComponent(airlosstext)
 y = y + 40
 
 local llabel = Label:new(10, y, width / 2 - 20, 16, "Loss - how much the speed a particle retains each frame.")
 window:addComponent(llabel)
 local losstext = Textbox:new(10, y + 20, width / 2 - 20, 16, "0.95", "")
 window:addComponent(losstext)
 y = y + 40
 
 local collabel = Label:new(10, y, width / 2 - 20, 16, "Collision - how a particle moves when it collides.")
 window:addComponent(collabel)
 local collisiontext = Textbox:new(10, y + 20, width / 2 - 20, 16, "-0.1", "")
 window:addComponent(collisiontext)
 y = y + 40
 
 local grvlabel = Label:new(10, y, width / 2 - 20, 16, "Gravity - how fast a particle falls.")
 window:addComponent(grvlabel)
 local gravitytext = Textbox:new(10, y + 20, width / 2 - 20, 16, "-0.1", "")
 window:addComponent(gravitytext)
 y = y + 40
 
 local diflabel = Label:new(10, y, width / 2 - 20, 16, "Diffusion - how much a particle wiggles.")
 window:addComponent(diflabel)
 local diffusiontext = Textbox:new(10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(diffusiontext)
 y = 30
 
 local htalabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "HotAir - how much a particle increases the pressure by.")
 window:addComponent(htalabel)
 local hotairtext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(hotairtext)
 y = y + 40
 
 local explabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Explosive - 0: none, 1: fire, 2: pressure > 2.5 or fire.")
 window:addComponent(explabel)
 local explosivetext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(explosivetext)
 y = y + 40
 
 local fllabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Flammable - how well the element burns.")
 window:addComponent(fllabel)
 local flammabletext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(flammabletext)
 y = y + 40
 
 local hdlabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Hardness - how quickly ACID dissolves the element.")
 window:addComponent(hdlabel)
 local hardnesstext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(hardnesstext)
 y = y + 40
 
 local wtlabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Weight - how heavy the element is.")
 window:addComponent(wtlabel)
 local weighttext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(weighttext)
 y = y + 40
 
 local hclabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Heat conductivity - 0 to 255.")
 window:addComponent(hclabel)
 local heatconducttext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(heatconducttext)
 y = y + 40
 
 local itlabel = Label:new(width / 2 + 10, y, width / 2 - 20, 16, "Initial temperature in Kelvin.")
 window:addComponent(itlabel)
 local temperaturetext = Textbox:new(width / 2 + 10, y + 20, width / 2 - 20, 16, "0", "")
 window:addComponent(temperaturetext)
 
 local function updateproperties(sender)
     elem.property(element, "Color", tonumber(colortext:text():lower(), 16))
     elem.property(element, "Advection", tonumber(advectiontext:text()))
     elem.property(element, "AirDrag", tonumber(airdragtext:text()))
     elem.property(element, "AirLoss", tonumber(airlosstext:text()))
     elem.property(element, "Loss", tonumber(losstext:text()))
     elem.property(element, "Collision", tonumber(collisiontext:text()))
     elem.property(element, "Gravity", tonumber(gravitytext:text()))
     elem.property(element, "Diffusion", tonumber(diffusiontext:text()))
     elem.property(element, "HotAir", tonumber(hotairtext:text()))
     elem.property(element, "Explosive", tonumber(explosivetext:text()))
     elem.property(element, "Flammable", tonumber(flammabletext:text()))
     elem.property(element, "Hardness", tonumber(hardnesstext:text()))
     elem.property(element, "Weight", tonumber(weighttext:text()))
     elem.property(element, "HeatConduct", tonumber(heatconducttext:text()))
     elem.property(element, "Temperature", tonumber(temperaturetext:text()))
 end
 
 colortext:onTextChanged(updateproperties)
 advectiontext:onTextChanged(updateproperties)
 airdragtext:onTextChanged(updateproperties)
 airlosstext:onTextChanged(updateproperties)
 losstext:onTextChanged(updateproperties)
 collisiontext:onTextChanged(updateproperties)
 gravitytext:onTextChanged(updateproperties)
 diffusiontext:onTextChanged(updateproperties)
 hotairtext:onTextChanged(updateproperties)
 explosivetext:onTextChanged(updateproperties)
 flammabletext:onTextChanged(updateproperties)
 hardnesstext:onTextChanged(updateproperties)
 weighttext:onTextChanged(updateproperties)
 heatconducttext:onTextChanged(updateproperties)
 temperaturetext:onTextChanged(updateproperties)
 
 local x = 10
 local w = 48
 local buttons = {}
 
 local solidbutton = Button:new(x, 316, w, 16, "Solid")
 window:addComponent(solidbutton)
 x = x + w - 1
 buttons["Solid"] = solidbutton
 
 local powderbutton = Button:new(x, 316, w, 16, "Powder")
 window:addComponent(powderbutton)
 x = x + w - 1
 buttons["Powder"] = powderbutton
 
 local liquidbutton = Button:new(x, 316, w, 16, "Liquid")
 window:addComponent(liquidbutton)
 x = x + w - 1
 buttons["Liquid"] = liquidbutton
 
 local gasbutton = Button:new(x, 316, w, 16, "Gas")
 window:addComponent(gasbutton)
 x = x + w - 1
 buttons["Gas"] = gasbutton
 
 local energybutton = Button:new(x, 316, w, 16, "Energy")
 window:addComponent(energybutton)
 x = x + w - 1
 buttons["Energy"] = energybutton
 
 local function settype(sender)
     if sender:text() == solidbutton:text() then
         elem.property(element, "Properties", elem.TYPE_SOLID)
         elem.property(element, "Falldown", 0)
     end
     if sender:text() == powderbutton:text() then
         elem.property(element, "Properties", elem.TYPE_PART)
         elem.property(element, "Falldown", 1)
     end
     if sender:text() == liquidbutton:text() then
         elem.property(element, "Properties", elem.TYPE_LIQUID)
         elem.property(element, "Falldown", 2)
     end
     if sender:text() == gasbutton:text() then
         elem.property(element, "Properties", elem.TYPE_GAS)
         elem.property(element, "Falldown", 0)
     end
     if sender:text() == energybutton:text() then
         elem.property(element, "Properties", elem.TYPE_ENERGY)
         elem.property(element, "Falldown", 0)
     end
     for i, button in pairs(buttons) do
         if string.find(sender:text(), i) then
             button:text("[" .. i .. "]")
         else
             button:text(i)
         end
     end
 end
 
 solidbutton:action(settype)
 powderbutton:action(settype)
 liquidbutton:action(settype)
 gasbutton:action(settype)
 energybutton:action(settype)
 
 local function loadelement(sender)
     local e = assert(loadstring("return elem.DEFAULT_PT_" .. sender:text():upper()), nil)()
     if e ~= nil then
         local type = bit.band(elem.property(e, "Properties"), 31)
         elem.property(element, "Properties", type)
         if type == elem.TYPE_SOLID then
             settype(solidbutton)
         elseif type == elem.TYPE_PART then
             settype(powderbutton)
         elseif type == elem.TYPE_LIQUID then
             settype(liquidbutton)
         elseif type == elem.TYPE_GAS then
             settype(gasbutton)
         elseif type == elem.TYPE_ENERGY then
             settype(energybutton)
         end
         elem.property(element, "Falldown", elem.property(e, "Falldown"))
         colortext:text(string.format("%x", elem.property(e, "Color")))
         advectiontext:text(round(elem.property(e, "Advection"), 7))
         airdragtext:text(round(elem.property(e, "AirDrag"), 7))
         airlosstext:text(round(elem.property(e, "AirLoss"), 7))
         losstext:text(round(elem.property(e, "Loss"), 7))
         collisiontext:text(round(elem.property(e, "Collision"), 7))
         gravitytext:text(round(elem.property(e, "Gravity"), 7))
         diffusiontext:text(round(elem.property(e, "Diffusion"), 7))
         hotairtext:text(round(elem.property(e, "HotAir"), 7))
         explosivetext:text(round(elem.property(e, "Explosive"), 0))
         flammabletext:text(round(elem.property(e, "Flammable"), 0))
         hardnesstext:text(round(elem.property(e, "Hardness"), 0))
         weighttext:text(round(elem.property(e, "Weight"), 0))
         heatconducttext:text(round(elem.property(e, "HeatConduct"), 0))
         temperaturetext:text(round(elem.property(e, "Temperature"), 2))
         updateproperties()
     end
 end
 
 local loadlabel = Label:new(10, 10, 180, 16, "Load properties from existing element:")
 window:addComponent(loadlabel)
 local loadtext = Textbox:new(196, 10, 64, 16, "DUST", "")
 loadtext:onTextChanged(loadelement)
 window:addComponent(loadtext)
 
 local function export(sender)
     ui.showWindow(exportwindow)
 end
 
 local exportbutton = Button:new(width - 110, height - 26, 100, 16, "Export code...")
 exportbutton:action(export)
 window:addComponent(exportbutton)
 
 window:onTryExit(function()
     tpt.active_menu(elem.SC_SPECIAL)
     ui.closeWindow(window)
 end)
 
 local namespace = Textbox:new(10, 10, 120, 16, "", "Namespace")
 exportwindow:addComponent(namespace)
 local name = Textbox:new(130, 10, 120, 16, "", "1-4 character name")
 exportwindow:addComponent(name)
 local description = Textbox:new(10, 36, exportwidth - 20, 16, "", "Description")
 exportwindow:addComponent(description)
 local addtemplates = Checkbox:new(10, 62, exportwidth / 2 - 20, 16, "Include templates for update and graphics functions")
 exportwindow:addComponent(addtemplates)
 
 local function exportlua(sender)
     local namespacestr = namespace:text():upper()
     local namestr = name:text():upper()
 
     if namespacestr:gsub("%s+", "") == "" or namestr:gsub("%s+", "") == "" or description:text():gsub("%s+", "") == "" then
         tpt.message_box("Error", "Missing required fields.")
         return
     end
 
     local elementconstant = "elem." .. namespacestr .. "_PT_" .. namestr
     local state = ""
     local properties = ""
 
     local type = bit.band(elem.property(element, "Properties"), 31)
     if type == elem.TYPE_SOLID then
         state = "elem.ST_SOLID"
         properties = "elem.TYPE_SOLID"
     elseif type == elem.TYPE_PART then
         state = "elem.ST_SOLID"
         properties = "elem.TYPE_PART"
     elseif type == elem.TYPE_LIQUID then
         state = "elem.ST_LIQUID"
         properties = "elem.TYPE_LIQUID"
     elseif type == elem.TYPE_GAS then
         state = "elem.ST_GAS"
         properties = "elem.TYPE_GAS"
     elseif type == elem.TYPE_ENERGY then
         state = "elem.ST_NONE"
         properties = "elem.TYPE_ENERGY"
     end
 
     local code = string.format([[elem.allocate("%s", "%s")
 elem.element(%s, elem.element(elem.DEFAULT_PT_DMND))
 
 elem.property(%s, "Name", "%s")
 elem.property(%s, "Description", "%s")
 elem.property(%s, "Colour", 0x%x)
 elem.property(%s, "MenuVisible", 1)
 elem.property(%s, "MenuSection", SC_SPECIAL)
 
 elem.property(%s, "Advection", %s)
 elem.property(%s, "AirDrag", %s)
 elem.property(%s, "AirLoss", %s)
 elem.property(%s, "Loss", %s)
 elem.property(%s, "Collision", %s)
 elem.property(%s, "Gravity", %s)
 elem.property(%s, "Diffusion", %s)
 elem.property(%s, "HotAir", %s)
 
 elem.property(%s, "Explosive", %s)
 elem.property(%s, "Flammable", %s)
 elem.property(%s, "Hardness", %s)
 elem.property(%s, "Meltable", 0)
 elem.property(%s, "Weight", %s)
 
 elem.property(%s, "HeatConduct", %s)
 elem.property(%s, "Temperature", %s)
 
 elem.property(%s, "Falldown", %s)
 elem.property(%s, "State", %s)
 elem.property(%s, "Properties", %s)
 
 elem.property(%s, "LowPressure", IPL)
 elem.property(%s, "LowPressureTransition", NT)
 elem.property(%s, "HighPressure", IPH)
 elem.property(%s, "HighPressureTransition", NT)
 elem.property(%s, "LowTemperature", ITL)
 elem.property(%s, "LowTemperatureTransition", NT)
 elem.property(%s, "HighTemperature", ITH)
 elem.property(%s, "HighTemperatureTransition", NT)]], namespacestr, namestr, elementconstant, elementconstant, namestr, elementconstant, description:text(), elementconstant, elem.property(element, "Color"), elementconstant, elementconstant, elementconstant, round(elem.property(element, "Advection"), 7), elementconstant, round(elem.property(element, "AirDrag"), 7), elementconstant, round(elem.property(element, "AirLoss"), 7), elementconstant, round(elem.property(element, "Loss"), 7), elementconstant, round(elem.property(element, "Collision"), 7), elementconstant, round(elem.property(element, "Gravity"), 7), elementconstant, round(elem.property(element, "Diffusion"), 7), elementconstant, round(elem.property(element, "HotAir"), 7), elementconstant, round(elem.property(element, "Explosive"), 0), elementconstant, round(elem.property(element, "Flammable"), 0), elementconstant, round(elem.property(element, "Hardness"), 0), elementconstant, elementconstant, round(elem.property(element, "Weight"), 0), elementconstant, round(elem.property(element, "HeatConduct"), 0), elementconstant, round(elem.property(element, "Temperature"), 2), elementconstant, elem.property(element, "Falldown"), elementconstant, state, elementconstant, properties, elementconstant, elementconstant, elementconstant, elementconstant, elementconstant, elementconstant, elementconstant, elementconstant)
 
     if addtemplates:checked() then
         code = code .. string.format([[
 
 
 function %s_Update(i, x, y, ss, nt)
     -- i: particle index
     -- x, y: particle x, y coords
 end
 elements.property(%s, "Update", %s_Update)
 
 function %s_Graphics(i, colr, colg, colb)
     -- i: particle index
     -- colr, colg, colb: color red, green, and blue channels
 
     -- return cache, pixel mode,
     --        alpha, red, green, blue,
     --        fire alpha, fire red, fire green, fire blue
     return 1, 0x0000001, 255, colr, colg, colb, 0, 0, 0, 0
 end
 elements.property(%s, "Graphics", %s_Graphics)]], namestr, elementconstant, namestr, namestr, elementconstant, namestr)
     end
 
     file = io.open("scripts/" .. namestr .. ".lua", "w")
     file:write(code)
     file:close()
 end
 
 local function exportcpp(sender)
     local namestr = name:text():upper()
 
     if namestr:gsub("%s+", "") == "" or description:text():gsub("%s+", "") == "" then
         tpt.message_box("Error", "Missing required fields.")
         return
     end
 
     local properties = ""
 
     local type = bit.band(elem.property(element, "Properties"), 31)
     if type == elem.TYPE_SOLID then
         properties = "TYPE_SOLID"
     elseif type == elem.TYPE_PART then
         properties = "TYPE_PART"
     elseif type == elem.TYPE_LIQUID then
         properties = "TYPE_LIQUID"
     elseif type == elem.TYPE_GAS then
         properties = "TYPE_GAS"
     elseif type == elem.TYPE_ENERGY then
         properties = "TYPE_ENERGY"
     end
 
     local code = string.format([[#include "simulation/Elements.h"
 //#TPT-Directive ElementClass Element_%s PT_%s {INSERT ID HERE}
 Element_%s::Element_%s()
 {
     Identifier = "DEFAULT_PT_%s";
     Name = "%s";
     Colour = PIXPACK(0x%x);
     MenuVisible = 1;
     MenuSection = SC_SPECIAL;
     Enabled = 1;
 
     Advection = %sf;
     AirDrag = %sf * CFDS;
     AirLoss = %s;
     Loss = %sf;
     Collision = %sf;
     Gravity = %sf;
     Diffusion = %sf;
     HotAir = %sf * CFDS;
     Falldown = %s;
 
     Flammable = %s;
     Explosive = %s;
     Meltable = 0;
     Hardness = %s;
 
     Weight = %s;
 
     Temperature = %sf;
     HeatConduct = %s;
     Description = "%s";
 
     Properties = %s;
 
     LowPressure = IPL;
     LowPressureTransition = NT;
     HighPressure = IPH;
     HighPressureTransition = NT;
     LowTemperature = ITL;
     LowTemperatureTransition = NT;
     HighTemperature = ITH;
     HighTemperatureTransition = NT;]], namestr, namestr, namestr, namestr, namestr, namestr, elem.property(element, "Color"), round(elem.property(element, "Advection"), 7), round(elem.property(element, "AirDrag"), 7), round(elem.property(element, "AirLoss"), 7), round(elem.property(element, "Loss"), 7), round(elem.property(element, "Collision"), 7), round(elem.property(element, "Gravity"), 7), round(elem.property(element, "Diffusion"), 7), round(elem.property(element, "HotAir"), 7), elem.property(element, "Falldown"), round(elem.property(element, "Flammable"), 0), round(elem.property(element, "Explosive"), 0), round(elem.property(element, "Hardness"), 0), round(elem.property(element, "Weight"), 0), round(elem.property(element, "Temperature"), 2), round(elem.property(element, "HeatConduct"), 0), description:text(), properties)
 
     if addtemplates:checked() then
         code = code .. string.format([[
 
 
     Update = &Element_%s::update;
     Graphics = &Element_%s::graphics;]], namestr, namestr)
     end
 
     code = code .. [[
 
 }]]
 
     if addtemplates:checked() then
         code = code .. string.format([[
 
 
 // #define UPDATE_FUNC_ARGS Simulation* sim, int i, int x, int y, int surround_space, int nt, Particle *parts, int pmap[YRES][XRES]
 
 //#TPT-Directive ElementHeader Element_%s static int update(UPDATE_FUNC_ARGS)
 int Element_%s::update(UPDATE_FUNC_ARGS)
 {
 
 }
 
 // #define GRAPHICS_FUNC_ARGS Renderer *ren, Particle *cpart, int nx, int ny,
 //                            int *pixel_mode, int* cola, int *colr, int *colg,
 //                            int *colb, int *firea, int *firer, int *fireg, int *fireb
 
 //#TPT-Directive ElementHeader Element_%s static int graphics(GRAPHICS_FUNC_ARGS)
 int Element_%s::graphics(GRAPHICS_FUNC_ARGS)
 {
 
 }]], namestr, namestr, namestr, namestr)
     end
 
     code = code .. string.format([[
 
 
 Element_%s::~Element_%s() {}]], namestr, namestr)
 
     file = io.open(namestr .. ".cpp", "w")
     file:write(code)
     file:close()
 end
 
 local exportluabutton = Button:new(exportwidth - 110, exportheight - 26, 100, 16, "Export Lua code")
 exportluabutton:action(exportlua)
 exportwindow:addComponent(exportluabutton)
 local exportcppbutton = Button:new(exportwidth - 220, exportheight - 26, 100, 16, "Export C++ code")
 exportcppbutton:action(exportcpp)
 exportwindow:addComponent(exportcppbutton)
 
 exportwindow:onTryExit(function()
     ui.closeWindow(exportwindow)
 end)
 
 local function keypressed(key, keynum, mod, evt)
     if evt == 2 and key == "n" then
         ui.showWindow(window)
     end
 end
 
 loadelement(loadtext)
 
 tpt.register_keypress(keypressed)