Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1326 1770 (N51E04 L=273)   518     56        0 (1288/1751-1364/1787)   8.1 E07-W00 N48-N52
      2  530 1684 (N20E53 L=224)   904    133        0 ( 479/1655- 590/1704)  26.6 E57-E48 N17-N21
      3  819 1457 (N12E23 L=254)   308    142        0 ( 799/1390- 832/1520) -49.4 E26-E20 N08-N15
      4  186 1242 (S13E65 L=212)  4484    514        7 ( 104/1114- 249/1386) -80.0 E74-E60 S20-S03
      5  635 1016 (S17E23 L=255)   580    169        1 ( 558/ 990- 724/1039)  10.3 E27-E16 S19-S15
      6  182  957 (S30E58 L=219)  1132    238        1 ( 120/ 935- 236/ 983)   9.5 E64-E52 S31-S27
      7  350  952 (S27E42 L=235)   429    109        0 ( 307/ 938- 397/ 967)  23.2 E45-E38 S28-S25
      8 1335  870 (S07W21 L=299)   630    164        0 (1284/ 784-1376/ 945) -37.9 W16-W25 S11-S04
      9  244  906 (S32E51 L=226)   432     35        1 ( 228/ 880- 265/ 934)  90.0 E52-E49 S33-S30
     10  931  833 (S20E00 L=277)  1227    413        0 ( 747/ 736-1127/ 909)  11.8 E11-W13 S24-S16
     11  489  836 (S31E29 L=248)   653    119        0 ( 434/ 806- 542/ 874)   0.0 E34-E25 S32-S29
     12 1293  753 (S15W23 L=300)   279     76        0 (1256/ 727-1336/ 783)  59.0 W21-W24 S16-S11
     13 1320  619 (S21W29 L=307)   431    108        0 (1278/ 573-1353/ 659) -20.6 W25-W33 S22-S19
     14  982  525 (S36W13 L=291)   920    204        1 ( 876/ 477-1082/ 557)   7.1 W05-W21 S39-S34
  

    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