Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1334  969 (N01W20 L=185)   311     80        2 (1303/ 924-1355/1006) -53.1 W17-W21 S01-N03
      2 1882  920 (N03W68 L=233)   551     71        1 (1862/ 901-1900/ 940) -15.9 W64-W71 N02-N04
      3  671  731 (S21E20 L=146)   357    133        1 ( 608/ 705- 723/ 768)  20.6 E24-E16 S23-S18
      4  930  671 (S22E02 L=163)   259     97        1 ( 877/ 648- 969/ 703)  31.0 E05-W00 S23-S19
      5  300  601 (S35E53 L=113)  1996    379        5 ( 275/ 488- 328/ 691)  63.4 E60-E48 S44-S28
      6 1487  607 (S20W37 L=202)   538    186        1 (1420/ 587-1572/ 631)   5.2 W31-W42 S21-S17
      7 1670  488 (S26W57 L=223)   551     68        0 (1638/ 467-1703/ 516)  45.0 W54-W59 S27-S23
      8 1090  451 (S35W12 L=178)   460    141        0 (1066/ 413-1139/ 511) -35.5 W09-W16 S38-S30
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y