開発:BASICトランスパイラー。レトロ風なグラフィックもPDF保存できるように。SVGデータをPDFとして保存するだけ。ただし、textはNG(諸々の関係で)
10 ' レトロパソコンの懐かしいグラフィック
20 SCREEN canvas(), 320, 240 FILL 255, 255, 255, 255
30 SCREEN pen(),1,1 FILL 0,0,0,255
40 FOR X=0 TO 320 STEP 2
50 R=INT(RND(1)*256)
60 G=INT(RND(1)*256)
70 B=INT(RND(1)*256)
80 svg{}=DRAW "ペン設定",R,G,B,255
90 svg{}=DRAW "直線",canvas(),X,0,(319-X),239
100 NEXT
140 FOR Y=0 TO 320 STEP 2
150 R=INT(RND(1)*256)
160 G=INT(RND(1)*256)
170 B=INT(RND(1)*256)
180 svg{}=DRAW "ペン設定",R,G,B,255
190 svg{}=DRAW "直線",canvas(),0,Y,319,239-Y
200 NEXT
210 svg{"__svgmeta.width"}="320"
220 svg{"__svgmeta.height"}="240"
980 R$=SAVEPDF(#"out/draw_cross.pdf",svg{})
990 PRINT R$