Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1279 1680 (N48W20 L=250)   282     53        0 (1263/1653-1307/1698)  31.0 W17-W22 N45-N49
      2 1413 1635 (N45W31 L=262)   525     64        1 (1374/1611-1454/1656)  18.4 W27-W36 N42-N46
      3 1554 1617 (N43W46 L=276)   361     29        1 (1534/1593-1574/1636)  63.4 W43-W48 N41-N45
      4 1669 1604 (N43W61 L=291)  1663    133        2 (1618/1574-1738/1631)   4.1 W51-W79 N40-N44
      5  693 1577 (N37E29 L=201)   570    100        2 ( 656/1547- 741/1613) -18.4 E33-E24 N34-N39
      6  308 1472 (N27E62 L=168)   727    125        0 ( 284/1418- 321/1528) -30.3 E70-E57 N23-N30
      7  678 1364 (N22E25 L=205)   286     96        1 ( 662/1327- 711/1411)  71.6 E25-E23 N19-N25
      8 1723 1139 (N11W48 L=279)  3233    441        8 (1625/ 954-1787/1323) -70.0 W42-W54 N00-N22
      9  997 1197 (N13E02 L=228)   643    257        0 ( 912/1116-1064/1286) -45.0 E08-W02 N08-N18
     10  843 1207 (N13E12 L=218)   350     69        2 ( 819/1170- 866/1241)  78.7 E13-E10 N10-N15
     11 1229 1105 (N08W12 L=243)   387    102        1 (1204/1064-1265/1151) -59.0 W10-W14 N05-N11
     12 1059  985 (N00W02 L=233)   763    187        0 (1014/ 907-1101/1062)  77.5 W00-W04 S04-N05
     13  623  844 (S10E25 L=205)   609    205        0 ( 570/ 774- 684/ 936) -55.0 E28-E20 S14-S04
     14 1335  823 (S09W20 L=251)   967    222        0 (1305/ 724-1380/ 924)  76.0 W18-W22 S14-S02
     15 1858  733 (S14W69 L=299)  1496    100        4 (1832/ 682-1880/ 781) -37.9 W64-W75 S17-S10
     16 1771  646 (S19W60 L=290)   491     81        1 (1745/ 617-1801/ 684) -26.6 W55-W65 S21-S16
     17 1241  608 (S23W16 L=247)   751    139        1 (1182/ 566-1301/ 654)  40.6 W12-W19 S25-S19
     18 1190  495 (S31W14 L=244)   351     75        2 (1158/ 468-1219/ 530)  76.0 W11-W16 S32-S28
     19 1437  284 (S48W46 L=277)   512     63        2 (1402/ 271-1473/ 306)   8.1 W42-W51 S48-S45
     20  910  231 (S55E07 L=223)  2380    297        5 ( 796/ 201-1059/ 265)  11.7 E21-W08 S59-S51
  

    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