そこまで組めているんだったらあともうひと踏ん張りで作れそうですよ。 頂点を8つ定義していますが、多分立方体が描きたいんですよね。 もう一種類6つの結線情報を追加すれば線が引けます。 あとはDATA,READ文か直接代入でもいいので初期座標情報が必要ですね。