Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1184 1817 (N52W20 L=279)   468     34        1 (1163/1790-1205/1844)  63.4 W17-W22 N49-N55
      2 1249 1764 (N47W23 L=283)   859    114        2 (1203/1730-1312/1797) -32.0 W19-W28 N43-N50
      3 1577 1668 (N38W51 L=311)  1729    270        3 (1442/1639-1701/1705)  -1.7 W38-W73 N36-N41
      4 1476 1531 (N28W34 L=294)  5307    817        8 (1115/1345-1768/1640) -17.7 W08-W57 N15-N36
      5 1544 1351 (N16W35 L=295)   395    127        0 (1524/1306-1576/1400) -80.5 W34-W37 N13-N19
      6  832 1348 (N18E11 L=248)   516    124        3 ( 781/1312- 885/1387) -39.8 E14-E07 N15-N20
      7 1317 1289 (N13W19 L=279)   410    107        1 (1277/1252-1364/1332) -38.7 W16-W21 N10-N15
      8 1854 1247 (N10W63 L=322)  2020    150        7 (1819/1179-1906/1316)  48.4 W57-W70 N05-N14
      9 1666 1258 (N10W44 L=303)   338     58        0 (1640/1234-1689/1288)  45.0 W41-W46 N08-N12
     10 1758 1249 (N10W52 L=312)   498     67        2 (1740/1209-1789/1287)  78.7 W49-W55 N07-N12
     11  405 1200 (N10E40 L=219)   306     82        0 ( 368/1182- 452/1222)  15.9 E43-E36 N09-N11
     12  992 1189 (N07E02 L=258)   232     79        0 ( 961/1159-1018/1219) -53.1 E03-W00 N05-N09
     13 1897  872 (S13W68 L=327)  3724    284        3 (1833/ 760-1954/1019)  55.5 W60-W76 S19-S03
     14 1611  789 (S18W39 L=299)  1019    337        2 (1557/ 643-1681/ 930)  74.5 W35-W43 S27-S09
     15  399  766 (S16E44 L=216)   647    167        3 ( 315/ 738- 479/ 791) -13.0 E50-E37 S17-S13
     16 1278  590 (S30W16 L=276)   235     82        0 (1251/ 553-1314/ 623)  45.0 W14-W18 S32-S28
     17 1740  508 (S36W63 L=323)  1736    203        1 (1656/ 474-1818/ 563)  14.7 W51-W73 S38-S32
     18 1476  466 (S39W35 L=295)   657    108        3 (1427/ 426-1517/ 505) -16.7 W29-W39 S42-S36
     19 1164  451 (S40W09 L=268)   808    180        2 (1081/ 421-1246/ 489)  14.0 W02-W14 S41-S37
     20  374  382 (S41E69 L=190)   872     78        1 ( 340/ 351- 402/ 420)   7.4 E82-E59 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