Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1325 1785 (N45W54 L=197)   572     69        1 (1301/1756-1358/1823)  50.2 W49-W58 N42-N48
      2 1167 1624 (N40W27 L=170)   280     92        0 (1123/1608-1216/1641) -14.0 W23-W31 N38-N40
      3 1459 1619 (N31W48 L=191)   356     35        1 (1438/1590-1481/1639)  18.4 W45-W51 N29-N32
      4 1557 1600 (N27W55 L=198)   623     71        0 (1518/1572-1594/1627) -68.2 W52-W58 N24-N29
      5  894 1473 (N37W02 L=145)   404     82        1 ( 863/1441- 932/1498)  14.0 W00-W04 N34-N38
      6  671 1413 (N38E16 L=127)   716    141        1 ( 645/1353- 696/1483) -90.0 E18-E13 N33-N42
      7  301 1248 (N33E50 L= 93)   302     90        1 ( 273/1228- 336/1267)   8.1 E53-E46 N32-N34
      8  637 1150 (N22E22 L=122)   952    271        0 ( 581/1042- 708/1261) -71.6 E24-E18 N14-N29
      9 1657 1158 (N00W43 L=186)   388    106        1 (1640/1106-1673/1211)  51.3 W40-W44 S02-N03
     10 1837 1111 (S08W58 L=201)   561    101        2 (1794/1080-1871/1136) -12.5 W53-W62 S09-S05
     11 1845  991 (S15W57 L=200)  1187    224        0 (1787/ 902-1884/1084)  29.7 W49-W63 S18-S10
     12 1888  853 (S25W62 L=205)   718     79        1 (1858/ 821-1914/ 886)   6.3 W57-W67 S26-S22
     13  823  829 (S00E16 L=127)   200     22        0 ( 804/ 807- 842/ 850) -26.6 E16-E14 S01-N01
     14  691  772 (S01E25 L=118)   395    137        0 ( 615/ 758- 745/ 798)   0.0 E29-E20 S02-N00
     15 1482  678 (S24W21 L=164)  1363    313        2 (1401/ 541-1552/ 790)  45.0 W14-W27 S31-S18
     16  368  625 (S05E53 L= 90)   389    127        0 ( 348/ 573- 396/ 684) -90.0 E54-E51 S08-S01
     17  975  606 (S16E12 L=131)   476    114        2 ( 941/ 569-1021/ 634)   0.0 E14-E08 S18-S14
     18  822  508 (S20E24 L=119)  1151    372        1 ( 726/ 420- 899/ 587) -71.6 E28-E19 S26-S13
     19  872  322 (S34E29 L=114)  5162    814       13 ( 628/ 175-1192/ 551)  13.7 E70-W00 S43-S24
     20 1556  510 (S38W26 L=169)   388     97        1 (1511/ 482-1597/ 539)   0.0 W22-W30 S39-S36
     21  722  478 (S20E32 L=111)   926    194        1 ( 656/ 438- 779/ 530) -60.3 E35-E27 S22-S15
     22 1515  322 (S54W25 L=168)  1776    183        2 (1421/ 299-1596/ 360)  -5.2 W13-W36 S58-S50
  

    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