Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1114 1606 (N34E11 L= 77)  1201    181        3 (1070/1523-1155/1684) -39.3 E16-E05 N28-N39
      2  494 1481 (N11E46 L= 41)   449    117        1 ( 473/1425- 519/1538) -74.1 E48-E44 N07-N14
      3  735 1425 (N13E27 L= 60)   303     90        0 ( 692/1394- 772/1452)  -9.5 E30-E24 N11-N14
      4 1743 1434 (N42W46 L=134)   403     60        1 (1711/1414-1769/1452)  12.5 W41-W50 N40-N43
      5 1412 1239 (N19W18 L=105)  1005    205        2 (1359/1169-1470/1343)  77.0 W15-W20 N13-N26
      6 1862 1287 (N36W62 L=149)   866     95        1 (1822/1248-1889/1319)   0.0 W54-W67 N33-N37
      7 1666 1111 (N18W39 L=126)   898    160        2 (1633/1036-1694/1181) -45.0 W34-W42 N13-N21
      8 1078 1129 (N04W00 L= 88)   254    100        0 (1038/1110-1126/1159)  59.0 E01-W02 N01-N06
      9 1795  938 (N12W54 L=142)   978    132        1 (1754/ 894-1837/ 997)  53.1 W50-W58 N08-N16
     10 1811  854 (N07W58 L=146)   471    120        1 (1793/ 796-1832/ 912) -82.9 W56-W59 N03-N11
     11  342  783 (S34E43 L= 44)   809    165        3 ( 270/ 745- 412/ 830)  -7.6 E51-E36 S35-S32
     12  452  802 (S30E33 L= 55)   265     61        0 ( 423/ 784- 477/ 825)  31.0 E35-E30 S31-S28
     13 1440  618 (S16W37 L=124)   234    114        1 (1403/ 586-1498/ 641)  38.7 W34-W39 S17-S12
     14 1289  537 (S24W31 L=118)   259     79        1 (1258/ 509-1326/ 566)   0.0 W27-W34 S25-S23
     15 1490  400 (S27W54 L=141)   343     72        1 (1466/ 375-1517/ 431) -15.9 W50-W57 S27-S24
  

    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