Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  738 1804 (N37E43 L= 89)   802    122        2 ( 702/1771- 791/1847) -19.7 E50-E36 N33-N40
      2  867 1658 (N28E25 L=107)   630     71        1 ( 826/1617- 899/1691) -78.7 E27-E23 N25-N30
      3 1275 1607 (N34W03 L=135)   272     33        1 (1254/1587-1302/1626)   0.0 W01-W05 N32-N35
      4  719 1483 (N14E28 L=104)  1521    346        2 ( 613/1373- 800/1620)  80.5 E31-E24 N05-N23
      5  926 1393 (N12E13 L=119)   283    108        1 ( 889/1346- 956/1434) -33.7 E16-E10 N09-N14
      6 1876 1304 (N31W59 L=191)   774     94        1 (1839/1260-1905/1331) -26.6 W53-W63 N29-N32
      7  319 1219 (S08E50 L= 82)  1021    227        2 ( 280/1127- 362/1325) -79.7 E52-E47 S12-S01
      8 1824 1276 (N27W51 L=183)   401     48        0 (1805/1247-1842/1300) -45.0 W49-W53 N25-N28
      9 1513 1238 (N16W25 L=157)   490    102        0 (1468/1201-1557/1274) -15.9 W21-W28 N14-N17
     10 1028 1211 (N04E03 L=129)   221     93        0 (1008/1170-1063/1255) -38.7 E05-W00 N01-N05
     11  120 1160 (S13E72 L= 60)   701     63        3 (  93/1132- 141/1183) -11.3 E78-E68 S14-S11
     12 1780 1130 (N17W47 L=179)   414    108        0 (1762/1080-1804/1183)  74.1 W45-W49 N13-N20
     13  565 1121 (S10E29 L=103)   599    194        2 ( 494/1066- 641/1174)  41.2 E33-E24 S13-S05
     14 1851 1100 (N17W55 L=187)   806    143        0 (1831/1024-1868/1168) -54.5 W52-W57 N12-N20
     15 1584 1018 (N05W33 L=165)   593    171        0 (1569/ 927-1597/1101) -66.0 W30-W35 N00-N09
     16  912 1059 (S07E07 L=125)   277    146        0 ( 846/1023- 970/1091)  45.0 E10-E04 S10-S04
     17  788  838 (S22E10 L=122)   592    212        2 ( 702/ 803- 859/ 892)  21.8 E16-E06 S24-S17
     18 1284  855 (S11W18 L=150)   233    122        0 (1227/ 819-1328/ 880)   0.0 W14-W21 S12-S10
     19 1143  796 (S17W12 L=144)   184     83        0 (1113/ 780-1183/ 822)   0.0 W09-W14 S18-S16
     20 1579  702 (S12W42 L=174)   652    147        3 (1544/ 639-1613/ 780) -41.2 W37-W45 S15-S08
     21 1663  698 (S10W48 L=180)   528    105        0 (1622/ 665-1696/ 736)  63.4 W45-W50 S13-S07
     22  493  709 (S36E30 L=102)   806    131        0 ( 421/ 687- 559/ 734)   9.5 E36-E24 S37-S33
     23 1197  639 (S25W19 L=151)   278     76        0 (1152/ 627-1241/ 652)   9.5 W16-W22 S25-S24
     24 1551  534 (S22W47 L=179)  1041    230        0 (1433/ 511-1640/ 579)  34.7 W39-W53 S26-S17
     25 1409  364 (S36W48 L=180)   600     69        2 (1383/ 337-1441/ 394)  -8.1 W44-W51 S37-S33
  

    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