Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  907 1640 (N47W12 L=161)   361    107        0 ( 870/1597- 947/1681)  16.7 W06-W16 N45-N49
      2 1001 1386 (N28W08 L=158)   401    102        0 ( 947/1350-1043/1419)  14.0 W03-W11 N27-N29
      3 1167 1256 (N17W14 L=164)   377    177        0 (1090/1211-1238/1302)   0.0 W08-W19 N15-N18
      4 1786 1211 (S03W55 L=204)   427     89        0 (1767/1168-1806/1258) -90.0 W54-W56 S06-N00
      5 1860 1103 (S12W60 L=209)  5550    501       11 (1775/ 864-1925/1251)  36.5 W46-W73 S22-S04
      6  679 1188 (N24E17 L=132)   815    207        1 ( 590/1128- 765/1241)   4.4 E24-E11 N22-N26
      7  404 1107 (N25E39 L=111)   471    118        2 ( 344/1074- 450/1139)   5.7 E44-E34 N23-N26
      8  224 1048 (N24E58 L= 92)   388    106        0 ( 212/ 994- 235/1094) -90.0 E59-E56 N21-N27
      9  905  930 (N05E09 L=141)   307    116        0 ( 862/ 901- 964/ 964) -56.3 E10-E06 N01-N07
     10 1455  795 (S17W20 L=169)  2007    505        5 (1277/ 684-1602/ 943)  10.9 W06-W32 S20-S11
     11 1412  865 (S11W19 L=168)   396    121        1 (1386/ 821-1447/ 913)  31.0 W16-W21 S14-S08
     12 1486  827 (S16W23 L=172)   229     97        0 (1437/ 806-1529/ 850)   0.0 W19-W25 S16-S14
     13  517  593 (S07E42 L=107)  1038    235        2 ( 413/ 527- 604/ 672) -50.7 E47-E37 S12-N00
     14 1520  600 (S31W21 L=171)   718    210        0 (1438/ 547-1593/ 672)  17.1 W14-W27 S32-S28
     15 1097  468 (S28E10 L=139)  1447    419        3 (1008/ 387-1186/ 550)  18.4 E17-E02 S33-S22
     16  798  429 (S23E30 L=119)   739    180        3 ( 746/ 360- 845/ 508)  33.7 E36-E24 S26-S18
     17 1591  458 (S45W27 L=177)   439     65        0 (1561/ 430-1628/ 478)   0.0 W23-W31 S46-S43
     18 1133  376 (S35E11 L=138)  1093    215        4 (1054/ 308-1203/ 462)  19.7 E18-E04 S39-S30
     19  634  364 (S24E45 L=104)  1171    251        1 ( 573/ 298- 717/ 453) -85.9 E48-E42 S30-S16
     20 1414  377 (S45W10 L=159)   697    110        2 (1362/ 337-1456/ 420)  12.5 W04-W13 S47-S41
     21 1019  141 (S54E38 L=111)   880     86        0 ( 984/ 120-1067/ 163) -14.0 E42-E32 S57-S50
  

    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