Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1433 1619 (N26W47 L= 47)  1282    273        2 (1301/1576-1547/1648) -36.3 W37-W53 N20-N31
      2 1172 1477 (N26W22 L= 23)   532    154        2 (1111/1446-1254/1513) -49.4 W19-W26 N21-N29
      3 1367 1437 (N18W32 L= 33)   326     60        0 (1330/1420-1402/1455) -36.9 W30-W34 N16-N20
      4 1580 1385 (N09W44 L= 45)   768    181        0 (1533/1327-1613/1447) -82.9 W40-W46 N05-N13
      5  932 1303 (N23W02 L=  3)   712    217        1 ( 834/1251-1034/1338) -51.3 E02-W06 N17-N27
      6 1759 1228 (S05W52 L= 53)   467     77        1 (1723/1209-1789/1252)  -8.1 W48-W55 S05-S02
      7 1465  978 (S09W24 L= 24)   521    159        0 (1391/ 948-1534/1019) -11.3 W19-W29 S10-S07
      8 1155  892 (S06W04 L=  4)   275     53        1 (1126/ 871-1179/ 913)   0.0 W01-W05 S07-S04
      9 1727  654 (S38W40 L= 40)  2730    284        8 (1665/ 534-1771/ 780)  61.9 W33-W44 S45-S29
     10 1268  516 (S31W00 L=  1)  2018    343        9 (1218/ 377-1304/ 684)  61.2 E06-W05 S41-S20
     11  745  609 (S11E27 L=333)   641    188        1 ( 702/ 526- 802/ 668)  37.9 E32-E23 S15-S08
     12 1563  545 (S39W23 L= 23)   492     49        2 (1531/ 523-1601/ 571) -26.6 W20-W26 S41-S37
     13 1429  483 (S39W11 L= 11)   553     80        1 (1386/ 466-1475/ 517) -23.2 W07-W14 S41-S36
     14  965  267 (S40E31 L=330)   518     69        2 ( 941/ 231- 991/ 302)  63.4 E33-E27 S42-S36
  

    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