Removed lua, python, tcl, cairo
This commit is contained in:
parent
0b4805f366
commit
6577093d2d
14 changed files with 0 additions and 4017 deletions
|
|
@ -1,15 +0,0 @@
|
|||
import cairo
|
||||
|
||||
var surface = image_surface_create(FORMAT_ARGB32, 240, 80)
|
||||
var cr = create(surface)
|
||||
|
||||
select_font_face(cr, "serif", FONT_SLANT_NORMAL,
|
||||
FONT_WEIGHT_BOLD)
|
||||
set_font_size(cr, 32.0)
|
||||
set_source_rgb(cr, 0.0, 0.0, 1.0)
|
||||
move_to(cr, 10.0, 50.0)
|
||||
show_text(cr, "Hello, world")
|
||||
destroy(cr)
|
||||
discard write_to_png(surface, "hello.png")
|
||||
destroy(surface)
|
||||
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
# Embedds Lua into a Nimrod application
|
||||
|
||||
import
|
||||
lua, lualib, lauxlib
|
||||
|
||||
const
|
||||
code = """
|
||||
print 'hi'
|
||||
"""
|
||||
|
||||
var L = newstate()
|
||||
openlibs(L)
|
||||
discard loadbuffer(L, code, code.len, "line")
|
||||
discard pcall(L, 0, 0, 0)
|
||||
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
# Example to embed Python into your application
|
||||
|
||||
import python
|
||||
|
||||
# IMPORTANT: Python on Windows does not like CR characters, so
|
||||
# we use only \L here.
|
||||
|
||||
Py_Initialize()
|
||||
discard PyRun_SimpleString("from time import time,ctime\L" &
|
||||
"print 'Today is',ctime(time())\L")
|
||||
Py_Finalize()
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
# Example to embed TCL in Nimrod
|
||||
|
||||
import tcl, os
|
||||
|
||||
const
|
||||
myScript = """puts "Hello, World - In quotes" """
|
||||
myScript2 = """
|
||||
package require Tk
|
||||
pack [entry .e -textvar e -width 50]
|
||||
bind .e <Return> {
|
||||
set e [regsub { *=.*} $e ""] ;# remove evaluation (Chris)
|
||||
catch {expr [string map {/ *1./} $e]} res
|
||||
append e " = $res"
|
||||
}
|
||||
"""
|
||||
|
||||
FindExecutable(getAppFilename())
|
||||
var interp = CreateInterp()
|
||||
if interp == nil: quit("cannot create TCL interpreter")
|
||||
if Init(interp) != TCL_OK:
|
||||
quit("cannot init interpreter")
|
||||
if tcl.Eval(interp, myScript) != TCL_OK:
|
||||
quit("cannot execute script.tcl")
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue