Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1092 1871 (N55W52 L=273)   900    102        2 (1060/1825-1127/1907)  11.9 W42-W61 N52-N57
      2  648 1678 (N59E07 L=214)   429     46        1 ( 622/1652- 668/1702)  26.6 E09-E03 N55-N60
      3 1713 1597 (N15W72 L=293)  2390    212        5 (1632/1515-1774/1661) -65.6 W67-W80 N09-N20
      4 1544 1600 (N22W55 L=276)   371     89        0 (1493/1573-1578/1620) -51.3 W51-W56 N19-N24
      5 1294 1484 (N24W31 L=252)   301    141        0 (1281/1422-1309/1551)  49.4 W27-W33 N20-N27
      6  861 1486 (N37W04 L=225)  1080    273        1 ( 732/1453- 982/1512) -20.6 E05-W11 N33-N39
      7 1656 1433 (N10W53 L=274)   597    122        0 (1620/1388-1680/1490)  35.5 W48-W57 N07-N12
      8 1099 1449 (N28W17 L=238)   278     95        0 (1056/1435-1151/1467) -38.7 W15-W20 N25-N29
      9 1237 1256 (N13W18 L=239)  1148    531        0 (1005/1154-1398/1315) -41.8 W05-W25 N03-N20
     10  773 1189 (N22E10 L=211)   730    198        0 ( 682/1158- 877/1221) -13.0 E16-E03 N19-N23
     11  287 1141 (N31E49 L=172)   451     64        1 ( 262/1106- 304/1175) -90.0 E51-E47 N28-N32
     12 1824 1125 (S12W56 L=277)   677    141        1 (1782/1089-1874/1156) -10.3 W51-W62 S14-S09
     13  751 1068 (N16E14 L=207)   346    149        0 ( 705/1018- 818/1095)   6.3 E18-E09 N13-N16
     14  256  902 (N17E56 L=165)   848    229        0 ( 177/ 851- 354/ 946) -26.6 E65-E46 N12-N20
     15 1604  839 (S21W30 L=251)   384    118        0 (1565/ 791-1641/ 888)  23.2 W26-W33 S22-S18
     16  162  723 (N08E76 L=145)  1447    117        4 ( 139/ 669- 186/ 779)  74.1 E81-E71 N04-N11
     17  227  683 (N05E67 L=154)   634    109        0 ( 200/ 640- 252/ 732) -80.5 E68-E64 N01-N07
     18 1763  589 (S45W45 L=266)  2667    270        4 (1668/ 516-1845/ 708)  21.8 W33-W56 S48-S38
     19  783  466 (S20E31 L=190)   525     91        0 ( 764/ 418- 801/ 513)  39.8 E33-E27 S22-S16
     20 1515  417 (S47W17 L=237)   476    119        0 (1463/ 398-1560/ 451)   0.0 W11-W21 S48-S46
     21 1031  250 (S42E28 L=193)   453     62        1 (1001/ 229-1067/ 271)   8.1 E31-E24 S43-S40
     22 1193  224 (S51E19 L=202)  1291    244        2 (1095/ 185-1296/ 253)  -8.1 E29-E08 S54-S48
  

    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