Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1167 1816 (N52W18 L=279)   369     29        0 (1146/1792-1182/1840)  68.2 W15-W20 N49-N54
      2 1227 1762 (N47W21 L=283)   906    129        2 (1175/1732-1295/1798) -16.7 W16-W26 N44-N50
      3 1575 1667 (N38W50 L=312)  1618    257        2 (1440/1640-1689/1701)  -3.7 W37-W69 N36-N41
      4 1469 1531 (N28W34 L=295)  4489    745        3 (1137/1377-1753/1623) -18.4 W09-W55 N17-N35
      5 1777 1402 (N19W58 L=319)   405     70        1 (1765/1365-1790/1444)  51.3 W56-W61 N17-N22
      6 1523 1356 (N16W34 L=295)   531    127        0 (1502/1292-1556/1411) -90.0 W32-W36 N12-N20
      7  799 1352 (N18E13 L=248)   613    155        3 ( 729/1303- 857/1407) -41.2 E18-E09 N14-N21
      8 1840 1289 (N12W62 L=323)  1016    123        3 (1789/1239-1872/1331) -35.5 W56-W65 N09-N14
      9 1737 1251 (N10W50 L=311)   430     86        1 (1724/1202-1763/1291)  71.6 W48-W52 N06-N12
     10 1645 1257 (N10W42 L=303)   283     40        0 (1621/1237-1669/1284)  26.6 W40-W44 N08-N11
     11 1827 1216 (N08W59 L=320)   762     49        3 (1803/1180-1854/1248) -45.0 W55-W61 N05-N09
     12  957 1191 (N08E04 L=258)   304     87        1 ( 917/1160- 996/1226) -45.0 E05-E01 N05-N09
     13  385 1200 (N10E42 L=219)   287     75        0 ( 349/1183- 425/1220)  18.4 E44-E38 N09-N11
     14 1883  878 (S12W65 L=327)  2702    275        1 (1823/ 759-1941/1009)  59.0 W58-W73 S19-S04
     15 1574  768 (S19W36 L=297)   595    180        0 (1551/ 689-1620/ 844)  68.2 W34-W39 S24-S14
     16  398  766 (S16E44 L=218)   822    204        3 ( 303/ 736- 492/ 789)   0.0 E51-E35 S17-S13
     17  384  597 (S26E50 L=211)   520    113        1 ( 338/ 567- 429/ 639)  18.4 E56-E44 S27-S23
     18 1742  520 (S35W62 L=324)  2023    287        2 (1639/ 471-1835/ 629)  27.9 W49-W72 S38-S27
     19 1259  590 (S30W15 L=276)   233     67        0 (1232/ 560-1293/ 622)  45.0 W13-W17 S32-S28
     20 1462  463 (S40W34 L=295)   719    107        3 (1412/ 423-1507/ 505) -11.3 W28-W38 S42-S36
     21 1143  449 (S40W07 L=268)   757    166        0 (1061/ 419-1229/ 489)  13.0 W00-W13 S41-S37
     22  370  385 (S40E69 L=192)   704     69        0 ( 339/ 360- 394/ 419)   8.1 E82-E61 S41-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