Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1741 (N32W62 L=295)   674     59        0 (1496/1711-1552/1767)  11.3 W56-W66 N30-N33
      2 1295 1678 (N35W38 L=271)   515    117        0 (1258/1624-1333/1723)  82.9 W36-W39 N30-N38
      3  647 1606 (N48E13 L=220)   408     59        1 ( 619/1576- 677/1626)  -9.5 E15-E09 N45-N49
      4 1466 1567 (N23W43 L=276)   668    152        3 (1426/1510-1512/1620)  74.1 W40-W46 N19-N26
      5 1536 1602 (N24W51 L=283)   290     33        0 (1515/1585-1559/1620) -63.4 W48-W52 N22-N24
      6  506 1572 (N49E27 L=206)   602     98        1 ( 474/1530- 541/1617) -81.9 E30-E23 N45-N52
      7 1063 1539 (N32W16 L=248)  1344    364        1 ( 881/1511-1223/1563) -19.2 W03-W26 N28-N36
      8 1595 1506 (N17W50 L=282)   346    148        0 (1545/1481-1622/1558)  12.5 W44-W53 N15-N19
      9 1448 1281 (N08W31 L=263)  1027    369        1 (1301/1243-1579/1328) -14.7 W21-W40 N03-N12
     10 1848 1270 (S02W63 L=296)   408     58        0 (1827/1242-1868/1292) -53.1 W60-W64 S04-N00
     11  318 1158 (N25E44 L=188)   279     72        0 ( 285/1129- 345/1186) -38.7 E47-E42 N23-N27
     12  459 1084 (N18E33 L=199)   769    184        2 ( 374/1041- 539/1116) -26.6 E40-E28 N14-N20
     13  195  903 (N13E60 L=172)   863    176        3 ( 167/ 828- 219/1002)  84.3 E63-E57 N08-N18
     14  824  949 (N03E13 L=220)   263     78        1 ( 790/ 917- 864/ 982)   0.0 E14-E09 N01-N04
     15 1183  871 (S09W06 L=238)   480    151        2 (1138/ 819-1234/ 939)  45.0 W01-W08 S10-S05
     16 1271  863 (S11W10 L=243)   484    117        2 (1238/ 821-1312/ 908)  38.7 W08-W13 S13-S08
     17 1776  702 (S34W47 L=280)   816    128        0 (1715/ 669-1821/ 744)  10.3 W40-W52 S35-S32
     18  808  675 (S12E20 L=212)   336    141        0 ( 730/ 657- 857/ 703)  -7.1 E24-E16 S12-S09
     19  700  387 (S27E38 L=195)  2079    401        3 ( 541/ 316- 878/ 478)   5.0 E56-E22 S28-S24
     20 1109  291 (S45E16 L=217)  1639    281        1 (1002/ 233-1233/ 384)   9.5 E26-E02 S47-S40
  

    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