jw_cad 外部変形 - (979) gccで2線の交点に点を打つ -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

gccで2線の交点に点を打つ

:gccで2線の交点に点を打つ
@echo off
if not exist %~dpn0.exe (
  for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
    more +%%n %0 > %~dpn0.c
    gcc -Os %~dpn0.c -o %~dpn0.exe -s
  )
)
%~dpn0
goto:eof

REM #jww
REM #1%dln 線を指示してください
REM #2%dln 線を指示してください
REM #bz
REM #e

#!この次の行からプログラムを書いてください
#include "jw.h"
int main(void)
{
  FILE *f;
  int NF;
  int lnn = 0;
  char S_[256], *F[20];
  double ln1[4], ln2[4], pt[2];
  if ( (f = fopen("jwc_temp.txt", "r")) != NULL) {
    while (fgets(S_, 256, f) != NULL) {
      NF = split(chomp(S_), F);
      if (strncmp(S_, "hhp", 3) == 0) lnn++;
      if (strncmp(S_, " ", 1) == 0 && NF == 4) {
        if (lnn == 1) {
          ln1[0] = atof(F[0]);
          ln1[1] = atof(F[1]);
          ln1[2] = atof(F[2]);
          ln1[3] = atof(F[3]);
        } else if (lnn == 2) {
          ln2[0] = atof(F[0]);
          ln2[1] = atof(F[1]);
          ln2[2] = atof(F[2]);
          ln2[3] = atof(F[3]);
        }
      }
    }
  } else {
    exit(MISSING_JWC_TEMP_TXT);
  }
  fclose(f);
  f = fopen("jwc_temp.txt", "w");
  line_x_poi(ln1, ln2, pt);
  fprintf(f, "bz\n");
  fprintf(f, "pt %.15g %.15g\n", pt[0], pt[1]);
  fclose(f);
  return 0;
}