module GenSCAD
(  placecube
,  genscad
,  printscad
,  writetempscad
,  opentempscad
, cube
, translate
, cubeat
, color
, colorcubeat
) where

import Linear.V3
import Control.Lens
import Data.List
import Text.Printf
import System.IO.Temp
import System.Process
import Data.Colour
import Data.Colour.RGBSpace
import Data.Colour.SRGB
import Data.Colour.Names



_V32l :: R3 c1 => c1 c -> [c]
_V32l c = [c ^. _x, c ^. _y, c ^. _z]

_V32s :: (R3 c1, Show a) => c1 a -> [Char]
_V32s c = intercalate "," (map show (_V32l c))

-- placecube: OpenSCAD translate cube described by d to place designated by p
-- placecube (V3 1 2 3, V3 10 20 30) ->
--   translate([1, 2, 3]) { cube([10, 20, 30]); }

--crandrgb = intercalate ","
color rgb what = "color ([" ++ rgb ++ "]) {" ++ what ++ "}"
translate to what = "translate([ " ++ to ++ "]) { " ++ what ++ " }"
cube d = "cube([ " ++ d ++ "]);"
cubeat d here = translate here $ (cube d)
colorcubeat rgb d pos = color rgb $ translate pos $ cube d

--place [x] = "ERROR"
place [d, p] = cubeat d p
place [r, d, p] = colorcubeat r d p

--place[o] = scad (fst o) (snd o)
--place o = scad (fst (head o)) (snd (head o)) ++ place (tail o)
--place o = [scad d p| (p,d) <- o]
--place (o) = scad (fst (head o)) (snd (head o)) ++ place (tail o)


--scad [] = []
--scad obj = (place (head obj)) ++ "\n" ++ scad (tail obj)
scad [(d, p)] = cubeat p d
--scad [(r, d, p)] = colorcubeat r d p
--scad [x] = if (length x == 3) then (colorcubeat (x !! 0) (x !! 1) (x !! 2))
--                                   else (cubeat (x !! 0) (x !!1))
--scad (x:s) = scad [x] ++ scad s


placecube obj  = "translate([ " ++ _V32s(fst obj) ++ " ]) { cube([ " ++ _V32s(snd obj) ++ " ]); }"
--placecube (p,d)  = printf "translate([%d, %d, %d]) { cube([%d, %d, %d]); }" (_V32l p ++ _V32l d)


-- take a list of tuples containing positions and dimensions for cubes and
-- generate corresponding code for rendering in OpenSCAD
-- genscad [(V3 0 0 0, V3 10 10 10), (V3 20 20 20, V3 10 10 10)] ->
--     placecube (V3 0 0 0, V3 10 10 10) -> translate ([...]) { cube([...]);}
--     placecube (V3 20 20 20, V3 10 10 10) -> '

--td = [(V3 0 1 2, V3 10 20 30), (V3 50 51 52, V3 11 22 33)]

--genscad :: [(V3 p, V3 d)] -> [Char]
--genscad objs = concat $ map (++ "\n") $ map placecube objs

--scad (c, p, d) = colorcubeat c d p
--scad (p,d) = cubeat d p
genscad objs = concat $ map (++ "\n") $ map (placecube) objs
printscad objs = putStrLn $ genscad objs
--writefilescad objs = withSystemTempFile "genscad" -> fp gsf -> doprintscad objs
writetempscad objs = writeSystemTempFile "genscad.scad" (genscad objs)
opentempscad objs =  do
  fp <- writetempscad objs
  runCommand $ "openscad " ++ fp
--opentempscad objs = print $ "openscad " ++ (writetempscad objs)

-- savegenscad code file -> save generated code file
-- opensavegenscad code file -> generate scad, save to file, then open in OpenSCAD