Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  330 1527 (N08E62 L= 24)  1153    180        3 ( 298/1452- 362/1592) -73.3 E65-E57 N03-N13
      2  717 1243 (S02E23 L= 63)  1106    289        2 ( 614/1179- 825/1345) -17.4 E31-E15 S04-N02
      3 1292 1083 (N02W14 L= 99)   582    135        4 (1264/ 996-1329/1153) -60.3 W10-W17 S01-N06
      4 1003 1067 (S05E02 L= 83)   464    180        1 ( 918/ 992-1049/1113) -29.7 E07-W01 S08-S03
      5  575 1030 (S17E27 L= 58)   230     85        0 ( 555/ 983- 609/1060)  68.2 E28-E25 S19-S14
      6 1695  982 (N08W42 L=127)   266     68        2 (1670/ 950-1716/1015)  68.2 W40-W43 N05-N10
      7  186  947 (S28E58 L= 27)  1866    403        2 ( 100/ 895- 272/1012)  26.6 E67-E50 S31-S23
      8  875  899 (S18E06 L= 80)   252    102        0 ( 823/ 879- 927/ 917)  26.6 E08-E02 S19-S15
      9 1781  876 (N05W52 L=138)   460     66        1 (1752/ 857-1809/ 898)  36.9 W49-W55 N03-N06
     10 1621  873 (S00W40 L=125)   336    172        1 (1551/ 848-1677/ 893)  11.3 W34-W44 S02-N01
     11 1795  803 (N02W57 L=142)   786    231        3 (1735/ 744-1867/ 866)  45.0 W52-W62 S02-N07
     12  373  813 (S33E39 L= 46)   392    130        0 ( 338/ 765- 408/ 858)  49.4 E42-E36 S37-S30
     13 1284  790 (S14W21 L=106)   238     79        0 (1247/ 740-1317/ 825)  80.5 W19-W22 S17-S11
     14 1787  649 (S06W63 L=148)  3209    526       13 (1732/ 526-1857/ 765)  90.0 W57-W69 S13-N01
     15 1549  361 (S29W58 L=143)  2446    404       10 (1440/ 324-1653/ 431)  37.6 W50-W66 S34-S22
  

    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