Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1407 1629 (N32W46 L= 81)   431     64        0 (1375/1609-1444/1652) -21.8 W42-W47 N29-N33
      2 1545 1546 (N23W51 L= 86)   674    113        2 (1498/1504-1585/1594) -63.4 W47-W52 N20-N26
      3 1793 1464 (N10W70 L=106)  1251     76        1 (1768/1420-1824/1498)  26.6 W65-W77 N07-N12
      4  965 1358 (N28W04 L= 40)   206     61        3 ( 942/1330- 988/1383)  33.7 W02-W06 N26-N29
      5 1780 1282 (N02W57 L= 93)  1231    217        2 (1737/1174-1810/1367)  79.7 W54-W60 S04-N07
      6 1320 1305 (N16W24 L= 60)   293    113        0 (1268/1277-1372/1328)   0.0 W20-W28 N14-N16
      7  936 1151 (N16E02 L= 33)   698    179        0 ( 852/1112-1012/1190) -45.0 E06-W01 N12-N20
      8  659 1139 (N21E20 L= 16)   498    139        3 ( 589/1113- 721/1170) -29.1 E24-E15 N19-N24
      9 1616  879 (S16W33 L= 69)  1593    458        1 (1471/ 773-1714/1053)  25.5 W22-W43 S19-S07
     10  907 1019 (N09E07 L= 29)   544    147        2 ( 863/ 976- 975/1049) -26.6 E09-E02 N07-N11
     11  517  866 (N08E34 L=  1)   712    213        0 ( 476/ 771- 548/ 957)  85.2 E36-E32 N02-N14
     12 1703  565 (S40W40 L= 75)  4695    588        4 (1456/ 410-1887/ 732)   8.1 W14-W66 S45-S35
     13  911  651 (S12E15 L= 21)   470    121        1 ( 863/ 606- 963/ 682) -56.3 E17-E12 S15-S09
     14  459  501 (S13E51 L=345)  2012    227        4 ( 429/ 400- 504/ 621)  56.3 E57-E45 S19-S04
     15 1301  317 (S46E00 L= 36)   630    105        1 (1246/ 293-1355/ 344)   0.0 E05-W05 S47-S43
  

    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