Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1059 1767 (N48W07 L=282)   954    138        2 (1015/1729-1120/1819) -41.2 W03-W11 N44-N53
      2 1462 1664 (N38W39 L=314)  1458    342        2 (1284/1635-1603/1691)  -7.9 W23-W53 N35-N40
      3 1642 1632 (N35W56 L=331)   412     20        1 (1624/1611-1663/1647) -90.0 W53-W60 N33-N36
      4 1287 1521 (N28W20 L=295)  3477    758        2 ( 954/1356-1567/1606) -21.0 E02-W38 N16-N34
      5  845 1486 (N27E10 L=265)   230     86        0 ( 814/1469- 889/1512) -31.0 E12-E07 N25-N28
      6  984 1383 (N19E01 L=274)   380     92        0 ( 947/1339-1026/1423) -56.3 E03-W01 N16-N22
      7 1313 1361 (N17W20 L=294)   266    114        0 (1301/1302-1329/1403) -90.0 W18-W20 N13-N19
      8  579 1352 (N19E28 L=247)   418     81        1 ( 545/1328- 621/1389) -26.6 E30-E24 N17-N21
      9 1787 1313 (N13W56 L=331)  1381    221        5 (1723/1250-1845/1380) -38.7 W51-W63 N09-N17
     10 1696 1296 (N12W47 L=322)   681    144        1 (1625/1253-1741/1330) -24.0 W41-W50 N09-N14
     11  630 1299 (N16E24 L=251)   201     50        0 ( 605/1284- 660/1316) -18.4 E25-E22 N14-N16
     12 1552 1252 (N10W35 L=310)   348     74        2 (1537/1211-1571/1298) -90.0 W33-W36 N07-N12
     13 1451 1258 (N10W28 L=303)   263     78        0 (1415/1235-1484/1280)  11.3 W25-W30 N08-N11
     14  745 1153 (N06E17 L=258)   383     68        2 ( 709/1120- 777/1184) -53.1 E18-E14 N04-N08
     15 1748  895 (S12W50 L=324)  2137    323        4 (1673/ 758-1823/1043)  67.6 W43-W56 S20-S03
     16 1118  863 (S13W05 L=280)   325     55        0 (1095/ 826-1137/ 901)  63.4 W03-W06 S14-S10
     17 1396  775 (S19W23 L=298)   685    240        2 (1355/ 681-1456/ 874)  71.6 W20-W26 S24-S12
     18 1874  787 (S18W66 L=341)  1287     95        3 (1840/ 749-1904/ 838) -68.2 W62-W73 S20-S15
     19 1682  574 (S32W51 L=326)  2139    393        5 (1551/ 479-1795/ 734)  46.7 W40-W57 S38-S21
     20  292  653 (S21E57 L=218)  1201    205        4 ( 254/ 566- 337/ 728)  51.3 E67-E51 S26-S16
     21 1081  589 (S30W02 L=277)   243     80        0 (1054/ 553-1113/ 623)  45.0 W00-W04 S31-S27
     22 1295  461 (S39W19 L=294)   442    102        2 (1264/ 433-1348/ 501) -29.7 W16-W23 S41-S36
     23  953  425 (S41E08 L=267)   467    103        0 ( 903/ 406- 991/ 456)  15.9 E12-E05 S42-S38
  

    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