Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  918 1757 (N48E05 L=283)  1092    152        2 ( 875/1709- 963/1825) -65.6 E09-E01 N43-N54
      2 1394 1643 (N36W32 L=320)  1225    301        0 (1241/1610-1527/1666)  -7.4 W19-W43 N33-N37
      3  844 1564 (N33E10 L=278)   971    197        1 ( 742/1540- 935/1584)  -4.1 E17-E03 N30-N34
      4 1233 1476 (N25W16 L=304)  1692    458        1 (1035/1352-1381/1545) -26.6 W02-W24 N16-N30
      5 1751 1501 (N25W61 L=349)  1191    122        6 (1699/1458-1803/1542) -16.7 W54-W68 N22-N28
      6 1756 1338 (N15W54 L=342)  1587    310        4 (1647/1242-1874/1440) -33.7 W45-W65 N08-N21
      7  785 1354 (N19E14 L=274)   677    199        0 ( 729/1276- 838/1438) -57.5 E17-E10 N13-N24
      8 1099 1360 (N18W06 L=294)   252     69        0 (1083/1323-1124/1393)  63.4 W05-W07 N15-N19
      9  396 1333 (N20E42 L=246)   618     99        1 ( 359/1307- 441/1370) -23.2 E45-E38 N17-N22
     10 1547 1278 (N11W35 L=323)   459     98        1 (1504/1240-1586/1312) -51.3 W31-W37 N08-N13
     11 1346 1270 (N11W21 L=309)   292     90        0 (1323/1229-1363/1310)  68.2 W19-W22 N08-N13
     12  205 1260 (N16E61 L=227)   493     64        0 ( 181/1232- 231/1287)  26.6 E63-E57 N14-N18
     13  523 1141 (N07E31 L=257)   435    112        0 ( 480/1111- 567/1179) -26.6 E34-E28 N05-N09
     14 1583  902 (S11W36 L=324)  1752    342        1 (1505/ 770-1675/1057)  59.5 W30-W42 S19-S02
     15  895  824 (S14E09 L=279)   272     85        0 ( 877/ 774- 920/ 862)  68.2 E10-E07 S16-S11
     16 1777  780 (S19W54 L=342)   765    124        1 (1746/ 719-1806/ 826) -60.3 W50-W58 S23-S16
     17 1835  783 (S19W61 L=349)   467     42        1 (1807/ 760-1857/ 806)  26.6 W57-W63 S20-S17
     18 1186  719 (S21W09 L=297)   482    157        1 (1166/ 644-1215/ 785) -83.7 W07-W11 S26-S17
     19 1721  729 (S22W50 L=338)   384      1        1 (1699/ 699-1743/ 760)  76.0 W47-W51 S24-S20
     20  902  593 (S28E10 L=278)   357    123        0 ( 858/ 547- 939/ 647)  45.0 E13-E07 S31-S25
     21 1531  543 (S34W37 L=325)  1434    263        1 (1425/ 481-1620/ 638)  35.5 W28-W42 S38-S28
     22 1139  455 (S39W06 L=294)   399     79        1 (1097/ 436-1182/ 483)  -8.1 W02-W09 S40-S37
     23  803  410 (S41E21 L=267)   421     93        1 ( 752/ 394- 849/ 432)  -8.1 E25-E17 S41-S39
  

    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