Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1417 1457 (N18W37 L=147)   719    125        2 (1353/1429-1480/1475) -32.0 W32-W40 N15-N20
      2 1920 1180 (S13W70 L=181)  1456    185        2 (1900/1094-1952/1265) -84.8 W66-W74 S19-S08
      3 1838 1171 (S10W58 L=169)   795    167        2 (1801/1094-1860/1250)  48.8 W52-W63 S14-S06
      4 1359 1235 (N08W24 L=135)   208     87        0 (1314/1223-1401/1248) -18.4 W21-W27 N07-N09
      5  597 1117 (N22E23 L= 88)  1400    434        2 ( 423/ 990- 735/1234) -52.7 E34-E16 N12-N33
      6  883 1143 (N16E05 L=106)   275    124        0 ( 826/1129- 948/1154) -29.7 E07-W00 N14-N18
      7 1873 1086 (S16W59 L=170)  1151    104        2 (1826/1052-1906/1133) -68.2 W53-W64 S18-S13
      8 1619  940 (S15W32 L=143)   619    202        1 (1581/ 851-1643/1041)  48.4 W28-W36 S19-S10
      9 1794  925 (S22W47 L=158)   417     93        0 (1762/ 892-1827/ 954)  14.0 W43-W51 S23-S21
     10 1212  879 (S07W06 L=117)   364    145        2 (1141/ 855-1288/ 904) -20.6 W02-W10 S08-S04
     11  800  743 (S03E20 L= 91)   339     89        2 ( 765/ 713- 840/ 786) -68.2 E21-E17 S05-N00
     12  966  689 (S11E12 L= 99)   290    153        0 ( 933/ 633- 991/ 759)  49.4 E15-E09 S13-S06
     13 1151  644 (S18E03 L=108)   703    299        0 (1102/ 501-1194/ 758)  47.3 E10-W02 S25-S12
     14  461  465 (S12E53 L= 57)   841    205        0 ( 437/ 384- 483/ 544)  45.0 E61-E49 S16-S06
     15  386  483 (S09E59 L= 52)   421     66        1 ( 359/ 458- 413/ 509) -45.0 E61-E57 S10-S07
  

    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