Git Product home page Git Product logo

euslisp / euslisp Goto Github PK

View Code? Open in Web Editor NEW
56.0 56.0 50.0 78.29 MB

EusLisp is an integrated programming system for the research on intelligent robots based on Common Lisp and Object-Oriented programming. [Manual](http://euslisp.github.io/EusLisp/manual.html ) [マニュアル](http://euslisp.github.io/EusLisp/jmanual.html )

License: Other

Common Lisp 94.39% C 5.04% Makefile 0.02% OpenEdge ABL 0.01% Prolog 0.33% Shell 0.07% Assembly 0.01% TeX 0.03% Roff 0.02% PicoLisp 0.07% JavaScript 0.01%
hacktoberfest

euslisp's People

Contributors

708yamaguchi avatar affonso-gui avatar aginika avatar chiwunau avatar cottsay avatar eisoku9618 avatar ericlesaquiles avatar furushchev avatar garaemon avatar h-kamada avatar hyaguchijsk avatar inabajsk avatar k-kimura avatar k-okada avatar knorth55 avatar kochigami avatar mmurooka avatar mqcmd196 avatar naoki-hiraoka avatar otsubo avatar rkoyama1623-2021 avatar shmpwk avatar snozawa avatar takayuki5168 avatar tkmtnt7000 avatar wkentaro avatar ykawamura96 avatar yoheikakiuchi avatar

Stargazers

 avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar

Watchers

 avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar  avatar

euslisp's Issues

Bug of multiplication of large integer and large float

I found multiplication bug between a large integer and a large float:

nozawa@nozawa-ThinkPad-T400s:/tmp$ eus0
set ARCHDIR to Linux
use the location of executables to set EUSDIR
set EUSDIR to /home/nozawa/ros/groovy/jsk-ros-pkg/euslisp/jskeus/eus
configuring by "/home/nozawa/ros/groovy/jsk-ros-pkg/euslisp/jskeus/eus/lib/eusrt.l"
;; l/readmacro.l ;; l/object.l ;; l/packsym.l ;; l/common.l ;; constants ;; l/stream.l ;; l/string.l ;; l/loader.l ;; l/pprint.l ;; l/process.l ;; l/hashtab.l\
 ;; l/array.l ;; l/mathtran.l ;; l/eusdebug.l ;; l/eusforeign.l ;; l/coordinates.l ;; l/tty.l ;; l/history.l ;; l/toplevel.l ;; comp/trans.l ;; comp/comp.l ;;\
 comp/builtins.l ;; l/par.l ;; helpsub ;; eushelp-undefined ;; fstringdouble                                                                                   
EusLisp 8.26(r658M) for Linux created on nozawa-ThinkPad-T400s(Mon Dec 9 21:40:08 JST 2013)
1.eus0$ (/ -1000000000 1e9)
1.0 ;; NG, this should be -1.0 (large integer and large float)
2.eus0$ (* -1000000000 1e-9)
-1.0 ;; OK (large integer and large float)
5.eus0$ (/ (float -1000000000) 1e9)
-1.0 ;; OK (large float and large float)
6.eus0$ (/ -1000000000 1000000000)
-1 ;; OK (large integer and large ingeter)
8.eus0$ (/ -100000000 1e9)
-0.1 ;; OK (small integer and large float)

This occurs just in 32bit Linux.
64bit Linux is OK.

git clone is heavy

It take 14 minutes

$ time git clone https://github.com/euslisp/EusLisp.git
Cloning into 'EusLisp'...
remote: Counting objects: 16146, done.
remote: Compressing objects: 100% (3874/3874), done.
remote: Total 16146 (delta 12530), reused 15674 (delta 12191)
Receiving objects: 100% (16146/16146), 40.18 MiB | 52 KiB/s, done.
Resolving deltas: 100% (12530/12530), done.
hub clone https://github.com/euslisp/EusLisp.git  4.16s user 0.91s system 0% cpu 13:55.06 total

オプショナル変数があるかどうかで場合分けをしたい

jsk_robot/jsk_nao_robot/naoeus/euslisp/nao-interface.lの中の :servo-on / off について、
関節名を指定した場合だけ、関節にかかるstiffnessの値を変えることができるようにしたいです。
(send ni :servo-on ((&optional) limb joint) stiffness)のようなイメージです。

オプショナル変数の有無で場合分けをしたいのですが、ドキュメントにはsupplied-pのような変数はサポートされていないと書いてありました。
何か良い方法をご存知の方はご教示ください。

directory-p?

directory-p in section 9.8 seems obsoleted?

eusgl$ (directory-p "/tmp")
eusgl 0 error: undefined function directory-p in #<compiled-code #X496a190>
5.E1-eusgl$ reset
6.eusgl$ (probe-file "/tmp")

loop内でのcontinue

dotimes blockの中でcontinue文と同じ動作ををさせるにはどうすればよいでしょうか。

[要望] unittestでassertがfailしたときにcheck関数に何が渡されたか表示したい

たとえば

  (assert (eq (send (send *sm* :start-state) :name) :a))

とすると、

TEST-NAME: test-methods
  now testing...
start testing [test-methods]
[ERROR] test (eq (send (send *sm* :start-state) :name) :a) failed ... ( mstart testing [test-methods]
a (&amp;optional args) (ros::ros-info called :d) :success)
over) :fail)
)
.�).

というようにtest (eq (send (send *sm* :start-state) :name) :a) failedからfailしたassert箇所はわかりますが、この時に(send (send *sm* :start-state) :name)は何だったのかをエラー表示して欲しい。
とくにREPLが使えないときに重宝すると思います。

http://docs.python.jp/2/library/unittest.html
pythonにはassertXXXXというメソッドがいくつも定義されているが、これらはそういう目的を満たすためだと考えられる。

実装案:

  • assertの仕方はいっぱいあるので、(assert (eq A B))タイプと(assert (equal A B)タイプくらいを特別に実装しておく
    #140
  • assertに渡されるS式の最初はチェック関数で有る可能性が高いので、assertがfailしたときに、チェック関数の引数を評価したものを表示する
    e.g. (assert (check A B)) -> (setq args (mapcar #'eval (cdr pred))) (assert (apply #'check args))としてassert failのときにargsを表示する
  • check関数から呼び出される関数をすべてtraceしてassert failのときに表示する

インタプリタで長めのコマンドを打つと字数制限で途中で打ち切られている

説明が難しかったので具体例で説明すると、

#f(0.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 11.0 12.0 13.0 14.0 15.0 16.0 17.0 18.0 19.0 20.0 21.0 22.0 23.0 24.0 25.0 26.0 27.0 28.0 29.0 30.0 31.0 32.0 33.0 34.0 35.0 36.0 37.0 38.0 39.0 40.0 41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0 49.0 50.0 51.0 52.0 53.0 54.0 55.0 56.0 57.0 58.0 59.0 60.0 61.0 62.0 63.0 64.0 65.0 66.0 67.0 68.0 69.0 70.0 71.0 72.0 73.0 74.0 75.0 76.0 77.0 78.0 79.0 80.0 81.0 82.0 83.0 84.0 85.0 86.0 87.0 88.0 89.0 90.0 91.0 92.0 93.0 94.0 95.0 96.0 97.0 98.0 99.0 100.0 101.0 102.0 103.0 104.0 105.0 106.0 107.0 108.0 109.0 110.0 111.0 112.0 113.0 114.0 115.0 116.0 117.0 118.0 119.0 120.0 121.0 122.0 123.0 124.0 125.0 126.0 127.0 128.0 129.0 130.0 131.0 132.0 133.0 134.0 135.0 136.0 137.0 138.0 139.0 140.0 141.0 142.0 143.0 144.0 145.0 146.0 147.0 148.0 149.0 150.0 151.0 152.0 153.0 154.0 155.0 156.0 157.0 158.0 159.0 160.0 161.0 162.0 163.0 164.0 165.0 166.0 167.0 168.0 169.0 170.0 171.0 172.0 173.0 174.0 175.0 176.0 177.0 178.0 179.0 180.0 181.0 182.0 183.0 184.0 185.0 186.0 187.0 188.0 189.0 190.0 191.0 192.0 193.0 194.0 195.0 196.0 197.0 198.0 199.0 200.0 201.0 202.0 203.0 204.0 205.0 206.0 207.0 208.0 209.0 210.0 211.0 212.0 213.0 214.0 215.0 216.0 217.0 218.0 219.0 220.0 221.0 222.0 223.0 224.0 225.0 226.0 227.0 228.0 229.0 230.0 231.0 232.0 233.0 234.0 235.0 236.0 237.0 238.0 239.0 240.0 241.0 242.0 243.0 244.0 245.0 246.0 247.0 248.0 249.0 250.0 251.0 252.0 253.0 254.0 255.0 256.0 257.0 258.0 259.0 260.0 261.0 262.0 263.0 264.0 265.0 266.0 267.0 268.0 269.0 270.0 271.0 272.0 273.0 274.0 275.0 276.0 277.0 278.0 279.0 280.0 281.0 282.0 283.0 284.0 285.0 286.0 287.0 288.0 289.0 290.0 291.0 292.0 293.0 294.0 295.0 296.0 297.0 298.0 299.0 300.0 301.0 302.0 303.0 304.0 305.0 306.0 307.0 308.0 309.0 310.0 311.0 312.0 313.0 314.0 315.0 316.0 317.0 318.0 319.0 320.0 321.0 322.0 323.0 324.0 325.0 326.0 327.0 328.0 329.0 330.0 331.0 332.0 333.0 334.0 335.0 336.0 337.0 338.0 339.0 340.0 341.0 342.0 343.0 344.0 345.0 346.0 347.0 348.0 349.0 350.0 351.0 352.0 353.0 354.0 355.0 356.0 357.0 358.0 359.0 360.0 361.0 362.0 363.0 364.0 365.0 366.0 367.0 368.0 369.0 370.0 371.0 372.0 373.0 374.0 375.0 376.0 377.0 378.0 379.0 380.0 381.0 382.0 383.0 384.0 385.0 386.0 387.0 388.0 389.0 390.0 391.0 392.0 393.0 394.0 395.0 396.0 397.0 398.0 399.0 400.0 401.0 402.0 403.0 404.0 405.0 406.0 407.0 408.0 409.0 410.0 411.0 412.0 413.0 414.0 415.0 416.0 417.0 418.0 419.0 420.0 421.0 422.0 423.0 424.0 425.0 426.0 427.0 428.0 429.0 430.0 431.0 432.0 433.0 434.0 435.0 436.0 437.0 438.0 439.0 440.0 441.0 442.0 443.0 444.0 445.0 446.0 447.0 448.0 449.0 450.0 451.0 452.0 453.0 454.0 455.0 456.0 457.0 458.0 459.0 460.0 461.0 462.0 463.0 464.0 465.0 466.0 467.0 468.0 469.0 470.0 471.0 472.0 473.0 474.0 475.0 476.0 477.0 478.0 479.0 480.0 481.0 482.0 483.0 484.0 485.0 486.0 487.0 488.0 489.0 490.0 491.0 492.0 493.0 494.0 495.0 496.0 497.0 498.0 499.0 500.0 501.0 502.0 503.0 504.0 505.0 506.0 507.0 508.0 509.0 510.0 511.0 512.0 513.0 514.0 515.0 516.0 517.0 518.0 519.0 520.0 521.0 522.0 523.0 524.0 525.0 526.0 527.0 528.0 529.0 530.0 531.0 532.0 533.0 534.0 535.0 536.0 537.0 538.0 539.0 540.0 541.0 542.0 543.0 544.0 545.0 546.0 547.0 548.0 549.0 550.0 551.0 552.0 553.0 554.0 555.0 556.0 557.0 558.0 559.0 560.0 561.0 562.0 563.0 564.0 565.0 566.0 567.0 568.0 569.0 570.0 571.0 572.0 573.0 574.0 575.0 576.0 577.0 578.0 579.0 580.0 581.0 582.0 583.0 584.0 585.0 586.0 587.0 588.0 589.0 590.0 591.0 592.0 593.0 594.0 595.0 596.0 597.0 598.0 599.0 600.0 601.0 602.0 603.0 604.0 605.0 606.0 607.0 608.0 609.0 610.0 611.0 612.0 613.0 614.0 615.0 616.0 617.0 618.0 619.0 620.0 621.0 622.0 623.0 624.0 625.0 626.0 627.0 628.0 629.0 630.0 631.0 632.0 633.0 634.0 635.0 636.0 637.0 638.0 639.0 640.0 641.0 642.0 643.0 644.0 645.0 646.0 647.0 648.0 649.0 650.0 651.0 652.0 653.0 654.0 655.0 656.0 657.0 658.0 659.0 660.0 661.0 662.0 663.0 664.0 665.0 666.0 667.0 668.0 669.0 670.0 671.0 672.0 673.0 674.0 675.0 676.0 677.0 678.0 679.0 680.0 681.0 682.0 683.0 684.0 685.0 686.0 687.0 688.0 689.0 690.0 691.0 692.0 693.0 694.0 695.0 696.0 697.0 698.0 699.0 700.0 701.0 702.0 703.0 704.0 705.0 706.0 707.0 708.0 709.0 710.0 711.0 712.0 713.0 714.0 715.0 716.0 717.0 718.0 719.0 720.0 721.0 722.0 723.0 724.0 725.0 726.0 727.0 728.0 729.0 730.0 731.0 732.0 733.0 734.0 735.0 736.0 737.0 738.0 739.0 740.0 741.0 742.0 743.0 744.0 745.0 746.0 747.0 748.0 749.0 750.0 751.0 752.0 753.0 754.0 755.0 756.0 757.0 758.0 759.0 760.0 761.0 762.0 763.0 764.0 765.0 766.0 767.0 768.0 769.0 770.0 771.0 772.0 773.0 774.0 775.0 776.0 777.0 778.0 779.0 780.0 781.0 782.0 783.0 784.0 785.0 786.0 787.0 788.0 789.0 790.0 791.0 792.0 793.0 794.0 795.0 796.0 797.0 798.0 799.0 800.0 801.0 802.0 803.0 804.0 805.0 806.0 807.0 808.0 809.0 810.0 811.0 812.0 813.0 814.0 815.0 816.0 817.0 818.0 819.0 820.0 821.0 822.0 823.0 824.0 825.0 826.0 827.0 828.0 829.0 830.0 831.0 832.0 833.0 834.0 835.0 836.0 837.0 838.0 839.0 840.0 841.0 842.0 843.0 844.0 845.0 846.0 847.0 848.0 849.0 850.0 851.0 852.0 853.0 854.0 855.0 856.0 857.0 858.0 859.0 860.0 861.0 862.0 863.0 864.0 865.0 866.0 867.0 868.0 869.0 870.0 871.0 872.0 873.0 874.0 875.0 876.0 877.0 878.0 879.0 880.0 881.0 882.0 883.0 884.0 885.0 886.0 887.0 888.0 889.0 890.0 891.0 892.0 893.0 894.0 895.0 896.0 897.0 898.0 899.0 900.0 901.0 902.0 903.0 904.0 905.0 906.0 907.0 908.0 909.0 910.0 911.0 912.0 913.0 914.0 915.0 916.0 917.0 918.0 919.0 920.0 921.0 922.0 923.0 924.0 925.0 926.0 927.0 928.0 929.0 930.0 931.0 932.0 933.0 934.0 935.0 936.0 937.0 938.0 939.0 940.0 941.0 942.0 943.0 944.0 945.0 946.0 947.0 948.0 949.0 950.0 951.0 952.0 953.0 954.0 955.0 956.0 957.0 958.0 959.0 960.0 961.0 962.0 963.0 964.0 965.0 966.0 967.0 968.0 969.0 970.0 971.0 972.0 973.0 974.0 975.0 976.0 977.0 978.0 979.0 980.0 981.0 982.0 983.0 984.0 985.0 986.0 987.0 988.0 989.0 990.0 991.0 992.0 993.0 994.0 995.0 996.0 997.0 998.0 999.0 1000.0 1001.0 1002.0 1003.0 1004.0 1005.0 1006.0 1007.0 1008.0 1009.0 1010.0 1011.0 1012.0 1013.0 1014.0 1015.0 1016.0 1017.0 1018.0 1019.0 1020.0 1021.0 1022.0 1023.0 1024.0 1025.0 1026.0 1027.0 1028.0 1029.0 1030.0 1031.0 1032.0 1033.0 1034.0 1035.0 1036.0 1037.0 1038.0 1039.0 1040.0 1041.0 1042.0 1043.0 1044.0 1045.0 1046.0 1047.0 1048.0 1049.0 1050.0 1051.0 1052.0 1053.0 1054.0 1055.0 1056.0 1057.0 1058.0 1059.0 1060.0 1061.0 1062.0 1063.0 1064.0 1065.0 1066.0 1067.0 1068.0 1069.0 1070.0 1071.0 1072.0 1073.0 1074.0 1075.0 1076.0 1077.0 1078.0 1079.0 1080.0 1081.0 1082.0 1083.0 1084.0 1085.0 1086.0 1087.0 1088.0 1089.0 1090.0 1091.0 1092.0 1093.0 1094.0 1095.0 1096.0 1097.0 1098.0 1099.0 1100.0 1101.0 1102.0 1103.0 1104.0 1105.0 1106.0 1107.0 1108.0 1109.0 1110.0 1111.0 1112.0 1113.0 1114.0 1115.0 1116.0 1117.0 1118.0 1119.0 1120.0 1121.0 1122.0 1123.0 1124.0 1125.0 1126.0 1127.0 1128.0 1129.0 1130.0 1131.0 1132.0 1133.0 1134.0 1135.0 1136.0 1137.0 1138.0 1139.0 1140.0 1141.0 1142.0 1143.0 1144.0 1145.0 1146.0 1147.0 1148.0 1149.0 1150.0 1151.0 1152.0 1153.0 1154.0 1155.0 1156.0 1157.0 1158.0 1159.0 1160.0 1161.0 1162.0 1163.0 1164.0 1165.0 1166.0 1167.0 1168.0 1169.0 1170.0 1171.0 1172.0 1173.0 1174.0 1175.0 1176.0 1177.0 1178.0 1179.0 1180.0 1181.0 1182.0 1183.0 1184.0 1185.0 1186.0 1187.0 1188.0 1189.0 1190.0 1191.0 1192.0 1193.0 1194.0 1195.0 1196.0 1197.0 1198.0 1199.0 1200.0 1201.0 1202.0 1203.0 1204.0 1205.0 1206.0 1207.0 1208.0 1209.0 1210.0 1211.0 1212.0 1213.0 1214.0 1215.0 1216.0 1217.0 1218.0 1219.0 1220.0 1221.0 1222.0 1223.0 1224.0 1225.0 1226.0 1227.0 1228.0 1229.0 1230.0 1231.0 1232.0 1233.0 1234.0 1235.0 1236.0 1237.0 1238.0 1239.0 1240.0 1241.0 1242.0 1243.0 1244.0 1245.0 1246.0 1247.0 1248.0 1249.0 1250.0 1251.0 1252.0 1253.0 1254.0 1255.0 1256.0 1257.0 1258.0 1259.0 1260.0 1261.0 1262.0 1263.0 1264.0 1265.0 1266.0 1267.0 1268.0 1269.0 1270.0 1271.0 1272.0 1273.0 1274.0 1275.0 1276.0 1277.0 1278.0 1279.0 1280.0 1281.0 1282.0 1283.0 1284.0 1285.0 1286.0 1287.0 1288.0 1289.0 1290.0 1291.0 1292.0 1293.0 1294.0 1295.0 1296.0 1297.0 1298.0 1299.0 1300.0 1301.0 1302.0 1303.0 1304.0 1305.0 1306.0 1307.0 1308.0 1309.0 1310.0 1311.0 1312.0 1313.0 1314.0 1315.0 1316.0 1317.0 1318.0 1319.0 1320.0 1321.0 1322.0 1323.0 1324.0 1325.0 1326.0 1327.0 1328.0 1329.0 1330.0 1331.0 1332.0 1333.0 1334.0 1335.0 1336.0 1337.0 1338.0 1339.0 1340.0 1341.0 1342.0 1343.0 1344.0 1345.0 1346.0 1347.0 1348.0 1349.0 1350.0 1351.0 1352.0 1353.0 1354.0 1355.0 1356.0 1357.0 1358.0 1359.0 1360.0 1361.0 1362.0 1363.0 1364.0 1365.0 1366.0 1367.0 1368.0 1369.0 1370.0 1371.0 1372.0 1373.0 1374.0 1375.0 1376.0 1377.0 1378.0 1379.0 1380.0 1381.0 1382.0 1383.0 1384.0 1385.0 1386.0 1387.0 1388.0 1389.0 1390.0 1391.0 1392.0 1393.0 1394.0 1395.0 1396.0 1397.0 1398.0 1399.0 1400.0 1401.0 1402.0 1403.0 1404.0 1405.0 1406.0 1407.0 1408.0 1409.0 1410.0 1411.0 1412.0 1413.0 1414.0 1415.0 1416.0 1417.0 1418.0 1419.0 1420.0 1421.0 1422.0 1423.0 1424.0 1425.0 1426.0 1427.0 1428.0 1429.0 1430.0 1431.0 1432.0 1433.0 1434.0 1435.0 1436.0 1437.0 1438.0 1439.0 1440.0 1441.0 1442.0 1443.0 1444.0 1445.0 1446.0 1447.0 1448.0 1449.0 1450.0 1451.0 1452.0 1453.0 1454.0 1455.0 1456.0 1457.0 1458.0 1459.0 1460.0 1461.0 1462.0 1463.0 1464.0 1465.0 1466.0 1467.0 1468.0 1469.0 1470.0 1471.0 1472.0 1473.0 1474.0 1475.0 1476.0 1477.0 1478.0 1479.0 1480.0 1481.0 1482.0 1483.0 1484.0 1485.0 1486.0 1487.0 1488.0 1489.0 1490.0 1491.0 1492.0 1493.0 1494.0 1495.0 1496.0 1497.0 1498.0 1499.0)

を評価すると途中でかっこが勝手に付けられた状態で

f(0.0 1.0 … 1324.0 1325.0 1326.0 1327.0 132.0)

のように途中で打ち切られてしまいます。

呼び出される関数の中で自身の関数の引数のリストが知りたい

このような関数or方法はあるのでしょうか?

例えば、

(defun func1 (a1 &key k1 (k2 t))
  ... )

という関数があるとして、これを以下のようにcallした時に

(func1 "fuga")

関数内で

(dolist (arg *args-of-this-func*)
  (format "~A: ~A~%" (car arg) (cdr arg))
;; => (:a1 . "fuga")
;;    (:k1 . nil)
;;    (:k2 . t)

のようにアクセスできると大変嬉しいです。

integerの行列のリードが失敗する

Yohei Kakiuchi が4年以上前に追加. 約4年前に更新.

ステータス: 新規 開始日: 2010/05/20
優先度: 高め 期日:
担当者: Yohei Kakiuchi 進捗 %:
0%
カテゴリ: - 作業時間の記録: -
対象バージョン: -
説明

整数のマトリックスを読み込むと変になります。

56.jskrbeusgl$ setq a #2i((0 0) (0 0))
;p=pointer?(0xbe69c10)
;p=pointer?(0xbe69bf8)

i(199662608 199662584)

57.jskrbeusgl$ a

i(199662608 199662584)

make-arrayで作ることはできます。
リードマクロの問題ではないかと推測されます。

59.jskrbeusgl$ setq b (make-array (list 2 2) :element-type :integer)

2i((0 0) (0 0))

60.jskrbeusgl$ b

2i((0 0) (0 0))

履歴
#1 Yohei Kakiuchi が約4年前に更新

Yohei Kakiuchi wrote:

整数のマトリックスを読み込むと変になります。 [...]

make-arrayで作ることはできます。 リードマクロの問題ではないかと推測されます。 [...]

lisp/l/array.l の 209行めread-integer-arrayがコメントアウトされている。
理由はあるでしょうか? とりあえず使えるようですが。

(eval-when (load eval)
(set-dispatch-macro-character ## #\A 'read-array)
(set-dispatch-macro-character ## #\F 'read-float-array)
;(set-dispatch-macro-character ## #\I 'read-integer-array)
)

Segmentation fault trying to display complex body

this e-mail is originally posted from Henry Baker to [email protected] on Mon, Jul 22, 2013 at 11:19 PM

I'm trying to display a body that was created using 'make-body-from-vertices'.

The body consists of 87618 faces, 131427 edges, 41653 vertices, and takes
1827 seconds (about 1/2 hour) to create the body using 'make-body-from-vertices'.

The body is apparently correctly made, and responds to a number of queries, e.g.,
:faces, :edges, :vertices, :euler.

euler number is 1079.

primitive-body-p is t.

However, when I do (objects mybody), the Xwin display comes up with the coordinate
axes, but then a segmentation fault occurs.

This body can be successfully loaded & displayed using a number of other programs,
e.g., OpenSCAD, VisCAM View, netfabb Studio, Meshlab, etc.

It's going to be difficult to debug this if it takes 30 minutes just to create
the body !

I notice that many of the EusLisp demo bodies have been 'dumped' out. What is
the procedure for 'dumping' an EusLisp body into a file?

classのインスタンスをそのまま保存して後でロードする方法

などありますか。特にrobot-interfaceクラスのインスタンスに対して使いたいです。

やりたいことは、ロボットのステート(認識結果やアングルベクターなど)がslotsに入っているので、
testを行うときにそのままロードして各メソッドのテストをする、ということです。
rosbagを再生してもいいですが、さっとできる方がいいのと、
あるメソッドのための初期姿勢に移動するために準備(必要なメソッドを順に呼ぶ)が必要なのをどうにかしたいというものです。

declareとspecial?の挙動がマニュアルと違う

jmanual.pdf のP.14のサンプルを実行するとマニュアルと異なる挙動をする。

(let ((x 1))
  (declare (special x))
  (let* ((x (+ x x)) (y x))
    (let* ((y (+ y y)) (z (+ x x)))
      (declare (special x))
      (format t "x=~S y=~s z=~s" x y z))))

マニュアルでは、 --> x=1 y=4 z=2 となっているが、 --> eusgl 0 error: unbound variable x in (+ x x) となる。

Increase maximum characters in read-line

I'd like to read lines which has more than 8192 characters .
Currently, we can read lines until 8192 characters because of immediate in lisp/c/lispio.c.

Is there any reason to use 8192?
Any problems with the following increasing?

Index: lispio.c
===================================================================
--- lispio.c    (リビジョン 669)
+++ lispio.c    (作業コピー)
@@ -212,13 +212,13 @@
 pointer argv[];
 { register pointer strm;
   pointer eoferrorp=T,eofvalue=NIL;
-  byte cb[8192];
+  byte cb[16384];
   register int i=0,ch;
   ckarg2(0,3);
   strm=getinstream(ctx,n,argv[0]);
   if (n>=2) eoferrorp=argv[1];
   if (n==3) eofvalue=argv[2];
-  while (i<8192) {
+  while (i<16384) {
     ch=readch(strm);
     if (ch=='\n') break;
     else if (ch==EOF) {

Newbie Q about irtviewer

this post is originally posted at http://sourceforge.net/p/jskeus/mailman/jskeus-users/thread/E1V09Oo-0003S0-3Y%40elasmtp-banded.atl.sa.earthlink.net/#msg31186987.

Hi all:

You have a very impressive system.

I've been able to fire up the irteus system & view all the demos.

I've been able to load individual models -- e.g., the coffee-cup -- and display them in the IRT viewer window.

The IRT viewer window allows me to rotate the cup with the left mouse button, but how do you move in & out & move side to side?

In many other 3D viewers that I've used, the mouse scroll-wheel moves in & out (zooms), while the right mouse button moves (translates) side to side & up and down.

Is there an easy way to get this behavior in the irteus viewer?

Also, is it possible to see the source file for the coffee cup? It looks like the coffee cup is the compiled output of some other program.

Thanks very much for your help.

Henry Baker
Santa Barbara, CA

[Feature request] add --quiet option

I see this topic several times and now I have it again...

I'd like to launch euslisp without bootstraping messages.
I missed several important error message because of a lot of bootstraping messages from multiple euslisp processes.

Add formula for euslisp to Homebrew

Formula: https://gist.github.com/wkentaro/e4299847bbf2eb45661b

% brew install euslisp --verbose --debug
/usr/local/Library/brew.rb (Formulary::FormulaLoader): loading /usr/local/Library/Formula/euslisp.rb
/usr/local/Library/Homebrew/build.rb (Formulary::FromPathLoader): loading /usr/local/Library/Formula/euslisp.rb
==> Downloading https://github.com/euslisp/EusLisp/archive/EusLisp-9.15.tar.gz
Already downloaded: /Library/Caches/Homebrew/euslisp-9.15.tar.gz
==> Verifying euslisp-9.15.tar.gz checksum
tar xf /Library/Caches/Homebrew/euslisp-9.15.tar.gz
==> make eus0
mkdir -p /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin
mkdir -p /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin
mkdir -p /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj
mkdir -p /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/lib
(cd /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15; test -e include || ln -sf lisp/c include)
(cd c; \
     gcc -c -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/fcall.o -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include fcall.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/memory.o  memory.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/makes.o  makes.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eval.o  eval.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/leo.o  leo.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusstream.o  eusstream.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/reader.o  reader.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/printer.o  printer.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/intern.o  intern.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/sequence.o  sequence.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/lists.o  lists.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/predicates.o  predicates.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/specials.o  specials.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/lispio.o  lispio.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/vectorarray.o  vectorarray.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/arith.o  arith.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/matrix.o  matrix.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/calleus.o  calleus.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/charstring.o  charstring.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/unixcall.o  unixcall.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/sysfunc.o  sysfunc.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusioctl.o  eusioctl.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/compsub.o  compsub.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eus.o  eus.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/loadelf.o  loadelf.c)
( sh tool/makedate > c/makedate.c)
fatal: Not a git repository (or any of the parent directories): .git
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/makedate.o  makedate.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/big.o  big.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/fstringdouble.o  fstringdouble.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/helpsub.o  helpsub.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/mthread.o  mthread.c)
(cd c; \
     gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/mthread_posix.o  mthread_posix.c)
(cd tool; \
    gcc -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/gccls gccls.c ;\
    cd /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15 )
(cd l; /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/gccls constants.l; \
        gcc -c -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/constants.l.o -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include constants.l.c; \
     /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/gccls eusstart.l; \
        gcc -c -Dx86_64 -Wno-return-type -DLinux -D_REENTRANT -DVERSION=\"9.15\" -DDarwin -DLIB6 -falign-functions=8 -fPIC -g  -DTHREADED -DPTHREAD -DX_V11R6_1 -DGCC -DGCC3 -DGCC4 -I/usr/include -I/opt/local/include -I/opt/X11/include -I/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/include -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusstart.l.o eusstart.l.c)
(gcc -o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/eus0  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/fcall.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/memory.o    /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/makes.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eval.o  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/leo.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusstream.o   /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/reader.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/printer.o  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/intern.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/sequence.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/lists.o       /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/predicates.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/specials.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/lispio.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/vectorarray.o  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/arith.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/matrix.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/calleus.o    /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/charstring.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/unixcall.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/sysfunc.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusioctl.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/compsub.o    /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eus.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/loadelf.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/makedate.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/big.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/fstringdouble.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/helpsub.o \
         /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/constants.l.o  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/eusstart.l.o   /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/mthread.o /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/mthread_posix.o  \
         -ldl -lm -lpthread ; \
    cd /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin; rm -f euscomp; ln -sf eus0 euscomp)
==> make eus1
(echo /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/readmacro; /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/euscomp <tool/compile_l.l >/dev/null)
/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/readmacro
/bin/sh: line 1: 94484 Segmentation fault: 11  /private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/bin/euscomp < tool/compile_l.l > /dev/null
make: *** [/private/tmp/euslisp20150908-94285-ib6h43/EusLisp-EusLisp-9.15/Darwin/obj/readmacro.o] Error 139
/usr/local/Library/Homebrew/debrew.rb:11:in `raise'
BuildError: Failed executing: make eus1
1. raise
2. ignore
3. backtrace
4. irb
5. shell
Choose an action:

It fails at make eus1.

cobra% gdb euscomp
GNU gdb (GDB) 7.10
Copyright (C) 2015 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "x86_64-apple-darwin14.5.0".
Type "show configuration" for configuration details.
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>.
Find the GDB manual and other documentation resources online at:
<http://www.gnu.org/software/gdb/documentation/>.
For help, type "help".
Type "apropos word" to search for commands related to "word"...
Reading symbols from euscomp...(no debugging symbols found)...done.
(gdb) run < tool/compile_l.l
Starting program: /private/tmp/euslisp20150908-95456-iolg32/EusLisp-EusLisp-9.15/Darwin/bin/euscomp < tool/compile_l.l
warning: `/BinaryCache/coreTLS/coreTLS-35.40.1~1/Objects/coretls.build/coretls.build/Objects-normal/x86_64/system_coretls_vers.o': can't open to read symbols: No such file or directory.
warning: Could not open OSO archive file "/BinaryCache/coreTLS/coreTLS-35.40.1~1/Symbols/BuiltProducts/libcoretls_ciphersuites.a"
warning: Could not open OSO archive file "/BinaryCache/coreTLS/coreTLS-35.40.1~1/Symbols/BuiltProducts/libcoretls_handshake.a"
warning: Could not open OSO archive file "/BinaryCache/coreTLS/coreTLS-35.40.1~1/Symbols/BuiltProducts/libcoretls_record.a"
warning: Could not open OSO archive file "/BinaryCache/coreTLS/coreTLS-35.40.1~1/Symbols/BuiltProducts/libcoretls_stream_parser.a"

Program received signal SIGSEGV, Segmentation fault.
0xffffffffffffffff in ?? ()

cd does not work

In some cases, cd does not work.
First of all, test cases are here:

eus0
1.eus0$ (cd (unix:getenv "EUSDIR"))
t ;; work correcly
2.eus0$ (setq aa (unix:getenv "EUSDIR"))
"/home/nozawa/ros/hydro_parent/devel/share/euslisp/jskeus/eus/"
3.eus0$ (cd aa)
-2 ;; does not work?
4.eus0$ (cd (format nil "~A" aa))
t ;; work correctly

I checked if return code from cd is t, pwd value is correctly changed.

Calculation of convex hull

I'd like to get convex hull for support polygon calculation.

I cannot get convex hull because of "edgeq error" from convex-hull-3d.

I tried the following command:

(load "models/h7-robot.l")
(setq *h7* (h7))
(objects (list (send *h7* :rleg :ankle-r :child-link)))
(convex-hull-3d (remove-duplicates
                 (flatten (send-all (send (send *h7* :rleg :ankle-r :child-link) :bodies) :vertices))
                 :test #'(lambda (x y) (eps-v= x y *epsilon*))))

I obtain the following error:

irteusgl 0 error:  edgeq error!! in (convex-hull-3d (remove-duplicates (flatten (send-all (send (send *h7* :rleg :ankle-r :child-link) :bodies) :vertices)) :test #'(lambda (x y) (eps-v= x y *epsilon*))))

I also tried quickhull function, but obtained points are not correct (not convex hull).

(send-all (quickhull (remove-duplicates  (flatten (send-all (send (send *h7* :rleg :ankle-r :child-link) :bodies) :vertices))
                 :test #'(lambda (x y) (eps-v= x y *epsilon*)))) :draw-on :flush t :size 10 :color #f( 1 0 0))

複数のIKを並列に解く

例えば1000個の独立した位置に対するIKを解く場合、並列に解くにはどうすればいいでしょうか
Euslispにはmulti-thread対応していると思うんですが、サンプルなどはないでしょうか

eusを何個か立ち上げて解を書き出すということもできると思うが、もっといい方法があればご教示ください。

Split string by separater

I'd like to split a string by a separater.

3.irteusgl$ (split-function " " "1 2 3 4 5")
(list "1" "2" "3" "4" "5")

Is there any way to split string like this?

マクロとlambda


lマクロとlambda関数について質問させてください。
下に示すようなeusのコードを実行すると、

1.irteusgl$ demo
[ INFO] [1446446798.232458366]: a:goto-front-of-fridge b:(:rarm :larm)
[ INFO] [1446446798.232677039]: a:base-go-to-fridge b:(:base :larm)
nil
2.irteusgl$ func 
(lambda-closure nil 15480480 0 (userdata) (ros::ros-info "a:~A b:~A" (car ag) (cadr ag)))
3.irteusgl$ funcall func 2
;; Segmentation Fault.
;; in (funcall func 2)
;; You are still in a signal handler.
;;Try reset or throw to upper level as soon as possible.
;; code=1797480240 x=6b235e00 addr=ec36a0

となります。
hoge1が実行されている際、a , bにはリスト化した中身がしっかりと渡されていますが、
lambda関数の中身に関してはa, bの値はcar ag などのようにしか反映されていないようです。

どのように記述すればfunc の中身の,a ,bにあたるものが反映されるでしょうか。



(defmacro hoge1 (a b)
  `(let ()
     (ros::ros-info "a:~A b:~A" ,a ,b)
     (setq func #'(lambda (userdata)
                    (ros::ros-info "a:~A b:~A" ,a ,b)
                    ))))

(defmacro hoge2 (arg)
  `(let ()
     (dolist (ag ,arg)
       (hoge1
        (car ag) (cadr ag))
       )))

(defun demo ()
   (hoge2
    '((goto-front-of-fridge (:rarm :larm))
      (base-go-to-fridge (:base :larm))
      ))
   )

"Outer circuit not found" というエラーがでるのですが、これはどういうことでしょうか?

1.eusgl$ (defun make-door nil
  (let (b1)
    (setq b1 (make-cube 5 40 90))
    (setq c1 (make-cylinder 5 5))
    (setq c2 (make-cylinder 5 5))
    (send c1 :rotate (deg2rad 90) :y)
    (send c1 :locate #f(5 15 0))
    (send c2 :rotate (deg2rad 90) :y)
    (send c2 :locate #f(-5 15 0))
    (setq b1 (body+ b1 c1))
    (setq b1 (body+ b1 c2))
    (send b1 :locate #f(5 20 0))
    (send b1 :set-color :blue)
    b1))

make-door
2.eusgl$ nil
2.eusgl$ make-door
eusgl 0 error:  outer circuit not found
 in (body+ b1 c1)

Could not open piped fork stream more the 20k

Reported by @kindsenior

It seems there are limitation in numbers if piped fork streams

(setq *p* (piped-fork "bash"))
(progn (setq i 0) (do-until-key (format *p* "ls~%") (warn " ~s" i) (incf i)))

I doubt that it forget to close file stream.
There might be limitation in read/write stream??

Release euslisp/jskeus as Homebrew recipe for OSX

Because of recent change of euslisp package, maybe it seems that euslisp must be installed under non ROS package system.(e.g. apt-get for Ubuntu)
On the other side, ROS supports Homebrew and has own tap(tap is similar to ppa on apt system).
Homebrew also has binary distribution system called Bottle.
So I intend to release euslisp (and jskeus) as homebrew packages.

  1. Maybe need to establish test system of this project on travis.
  2. we need to choose tap destination (homebrew original or ros specified tap)

How do you think of this? (Is there any problem?)

eusのcopy-object でsegmentation faultする

(ros::roseus "test")
(require :pr2-interface "package://pr2eus/pr2-interface.l")
(load "package://jsk_demo_common/euslisp/attention-observation.l")
(require :pr2-move "package://jsk_demo_common/euslisp/pr2-move.l")
(load "models/room73b2-scene.l")
(load "lisp/comp/builtins.l")
(room73b2)
(dolist (obj (send room73b2 :objects) nil)
(ros::ros-info "obj:~A" obj)
(setq obj (copy-object obj))
)

を走らせると、copy-object でsegmentation faultする。
gdbすると次のようになる。

;p=pointer?(0x68dd140)

Program received signal SIGSEGV, Segmentation fault.
0x000000000041b262 in copyobj (ctx=0x7510b0, org=0x68e8798) at leo.c:560
560 if (p_marked(org)) return(cpvec[intval(x)]);
(gdb)

Sugihara & Iri's 'planes' representation ?

this issue is originally posted at http://sourceforge.net/p/jskeus/mailman/jskeus-users/ byFrom: Henry Baker hbaker1@pi...

I've found Sugihara & Iri's 1989 paper "A Solid Modelling System
Free from Topological Inconsistency" to be an incredibly elegant
way to do Constructive Solid Geometry.

Sugihara, K., and Iri, M.. "A Solid Modelling System Free
from Topological Inconsistency". J. Info. Proc., v12#4, 1989,
380-393.

Has anyone implemented these ideas in EusLisp?

Since EusLisp has bignums, at least a research-quality implementation
could be done in EusLisp that didn't worry about overflow.

:rpy-angleについて、 

I don't know the detail of the function, but I found it a little bit wired that: 
Roll2-Roll1=Yaw1-Yaw2 = PI =Pitch1 + Pitch2, but did not equal to Pitch1 - Pitch2
Is this the normal output?
roseus output:

52.E11-irteusgl$ send *co* :rpy-angle
((-0.065534 -0.021481 0.084433) (3.07606 -3.12011 -3.05716))
53.E11-irteusgl$ (- (caar *) (cadr *)
)
/home/chen/ros/hydro/src/jsk-ros-pkg/jsk_roseus/euslisp/jskeus/eus/Linux64/bin/irteusgl 0 error: number expected in (- (caar *) (cadr *))
54.E12-irteusgl$ caar *
-0.065534
55.E12-irteusgl$ setq rpy (send *co* :rpy-angle)
((-0.065534 -0.021481 0.084433) (3.07606 -3.12011 -3.05716))

converstion of interger to string

I would like to convert interger to string.
For example,

(setq name "fig")
(setq count 1)
(convert 1 to "1"
 count -> converted1) <- I don't know how to do it
(setq picture-name (concatenate string name converted1))
(picture-name)-> "fig1"

I found there is write-to-string method in common lisp.
Could you tell me if there is some way like this in euslisp?
I'm very sorry if there is some explanation in jmanual, but I could not find it.

File to elicit 'make-body-from-vertices' problems & display problems

This is originally posted http://sourceforge.net/p/jskeus/mailman/jskeus-users/thread/E1V1qiy-0007ol-0C%40elasmtp-dupuy.atl.sa.earthlink.net/#msg31221389

Attached is a file that demonstrates the issues with both 'make-body-from-vertices' and with the display code that causes a segmentation fault.

Simply fire up 'irteusgl' and tell it '(load "struto.l")'.

The file will create a list of 87618 face triangles, then call 'make-body-from-vertices' on this list, and then call '(objects mybody)' on the resulting body.

On a standard EusLisp, the 'make-body-from-vertices' will take perhaps 30 minutes, and the call to 'objects' will then crash.

With the modified 'make-body-from-vertices' and the modified 'remove-duplicates' (see my previous messages), the 'make-body-from-vertices' should take perhaps 40 seconds, and the call to 'objects' will crash.

I don't know what the problem is with the system crashing.

lisp::char< and lisp::char> are opposite?

in euslisp:

15.irteusgl$ lisp::char<= #\a #\c
nil
16.irteusgl$ lisp::char>= #\a #\c
t

however in sbcl (Common Lisp):

* (char<= #\a #\c)

T
* (char>= #\a #\c)

NIL

I think it is opposite, and euslisp returns wrong...

EusLisp integers/fixnums/bignums in the documentation

this issue is originally posted at http://sourceforge.net/p/jskeus/mailman/jskeus-users/ byFrom: Henry Baker hbaker1@pi... - 2013-07-24 04:31:37

There are several places in the EusLisp documentation where the word 'integer' should be replaced by 'fixnum', because 'integer' refers to either a fixnum or a bignum. In particular, on page 5 under 'Data Types', the word 'integer' is used instead of 'fixnum' to refer to 30-bit immediate integers.

Also, under 'Compatibility with Common Lisp', bignums are supported.

Get Euslisp print result from outside of Euslisp

I'd like to get Euslisp print result from outside of Euslisp such as bash like this:

bash$ AA=$(eusgl "(print \"AA\")" "(exit)")

If I execute the command, I obtain this result:

# executed command
bash$ AA=$(eusgl "(print \"AA\")" "(exit)")
set ARCHDIR to Linux64
use the location of executables to set EUSDIR
set EUSDIR to /home/nozawa/ros/groovy/jsk-ros-pkg/jsk_roseus/euslisp/jskeus/eus
configuring by "/home/nozawa/ros/groovy/jsk-ros-pkg/jsk_roseus/euslisp/jskeus/eus/lib/eusrt.l"
connected to Xserver DISPLAY=:0.0
X events are being asynchronously monitored.
EusLisp 9.00(fcc6e04) for Linux64 created on W540-nozawa(Sun Apr 27 23:29:41 JST 2014)

# result
bash$ echo $AA
;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; coordinates ;; tty ;; history ;; toplevel ;; trans ;; comp ;; builtins ;; par ;; intersection ;; geoclasses ;;\
 geopack ;; geobody ;; primt ;; compose ;; polygon ;; viewing ;; viewport ;; viewsurface ;; hid ;; shadow ;; bodyrel ;; dda ;; helpsub ;; eushelp ;; xforeign ;; Xdecl ;; Xgraphics ;; Xcolor ;; Xeus ;; Xevent ;; Xpanel ;; Xitem ;; Xtext ;; Xmenu ;; Xscroll ;; Xcanvas ;; Xtop ;; Xapplwin ;; pixword ;; RGBHLS ;; convolve ;; piximage ;; pbmfile ;; image_correlation ;; oglforeign ;; gldecl ;; glconst ;; glforeign ;; gluconst ;; gluforeign ;; glxconst ;; glxforeign ;; eglforeign ;; eglfunc ;; glutil ;; gltexture ;; glprim ;; gleus ;; glview ;; toiv-undefined\
 ;; fstringdouble "AA"

The result includes both desired output and output of system::exec-module-init.
https://github.com/euslisp/EusLisp/blob/master/lisp/l/eusstart.l#L277

If output from system::exec-module-init is printed to standard-error instead of standard-output,
I can separate desired output from output of system::exec-module-init.
Moreover, other outputs like "load-library", which are printed at the beginning of Euslisp,
are output to standard-error.

Is there any reason to use standard-output in system::exec-module-init?

Excessively long runtimes for 'make-body-from-vertices'

This post is originally posted at http://sourceforge.net/p/jskeus/mailman/jskeus-users/thread/E1V1MvE-0003Zg-Hx%40elasmtp-mealy.atl.sa.earthlink.net/#msg31202908

I've tracked down some of the issues re excessively long runtimes for 'make-body-from-vertices',
found in 'primt.l' in the 'geo' directory.

In addition to the performance problem with 'remove-duplicates', there is also a performance
problem with the use of 'assoc' in 'make-body-from-vertices'.

'assoc' is being called to search a list of 41653 vertices, which is intolerably slow.

By replacing the call to 'assoc' with a hash table, the performance of 'make-body-from vertices'
was improved from 30 minutes to 39 seconds !!

39 seconds is still too slow for simply creating a body with 87618 faces, 131427 edges and 41653
vertices, but it is at least tolerable.

(defun make-body-from-vertices (face-vertices &optional (klass body-class))
; face-vertices=(list #f(x1 y1 z1) #f(x2 y2 z2) ...) ...
(let* ((vlist (mapcar #'list
(remove-duplicates
(apply #'append face-vertices)
:test #'equal)))
(vhash (make-hash-table :size (* 2 (length vlist)) :test #'equal))
faces bod)
(dolist (vlist-entry vlist) ; Populate hash table.
(or (gethash (car vlist-entry) vhash)
(setf (gethash (car vlist-entry) vhash) vlist-entry)))
(dolist (fverts face-vertices)
(let ((fvlist))
(dolist (fv fverts)
;; (push (assoc fv vlist) fvlist)
;; (push (assoc fv vlist :test #'equal) fvlist) ; *** Too slow !!! ***
(push (gethash fv vhash) fvlist))
(push (make-face-from-vertices (nreverse fvlist)) faces)) )
(setq bod (instance body-class :init :faces (nreverse faces)))
(send bod :csg (list (cons :body-from-vertices face-vertices)))
bod) )

BTW, after creating this large, complex body, I still can't display it, as irteusgl produces
a segmentation fault when '(objects mybody)' is executed.

インストール後のフォントエラー

マシンをインストールしてから一回リブートしないと
以下のエラーが出ることがあります。
現状の対処法は、インストール後に一回リブートして、
DISPLAY= catkin build euslisp
とするようです。

leus@leus-ThinkPad-T410:~/ros/hydro_parent/build/euslisp$ make
can't load font "-courier-medium-r--8-"can't load font
"
-courier-medium-r--10-"can't load font
"-courier-medium-r--12-"can't load font
"
-courier-medium-r--14-"can't load font
"-courier-medium-r--18-"can't load font
"
-courier-bold-r--12-"can't load font
"-courier-bold-r--14-"can't load font
"
-courier-bold-r--18-"can't load font
"-courier-bold-r--24-"can't load font
"
-times-medium-r--10-"can't load font
"-times-medium-r--12-"can't load font "-times-bold-r--12-"can't
load font "-times-bold-r--14-"can't load font
"
-times-bold-r--18-"can't load font "-times-bold-r--24-"can't
load font "lucidasans-bold-12"can't load font
"lucidasans-bold-14"can't load font
"
-Helvetica-Bold-R-Normal--12-"can't load font
"-Helvetica-Medium-R-Normal--12-"X Error of failed request:
BadFont (invalid Font parameter)
Major opcode of failed request: 56 (X_ChangeGC)
Resource id in failed request: 0x0
Serial number of failed request: 49
Current serial number in output stream: 58
make[4]: *
* [/home/leus/ros/hydro_parent/src/euslisp/Linux64/obj/glconst.o]
エラー 1
[100%] Built target compile_euslisp

Recommend Projects

  • React photo React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo Vue.js

    🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo Django

    The Web framework for perfectionists with deadlines.

  • D3 photo D3

    Bring data to life with SVG, Canvas and HTML. 📊📈🎉

Recommend Topics

  • javascript

    JavaScript (JS) is a lightweight interpreted programming language with first-class functions.

  • web

    Some thing interesting about web. New door for the world.

  • server

    A server is a program made to process requests and deliver data to clients.

  • Machine learning

    Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo Microsoft

    Open source projects and samples from Microsoft.

  • Google photo Google

    Google ❤️ Open Source for everyone.

  • D3 photo D3

    Data-Driven Documents codes.