Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  747 1650 (N54E01 L=357)   416     55        2 ( 717/1621- 774/1672) -80.5 E03-W02 N50-N56
      2 1612 1588 (N21W60 L= 58)   553     84        1 (1574/1553-1646/1624) -80.5 W58-W62 N18-N24
      3 1564 1547 (N21W53 L= 50)  1164    276        5 (1476/1493-1650/1610) -30.3 W45-W58 N16-N25
      4 1401 1457 (N21W36 L= 33)   786    255        0 (1285/1404-1502/1499) -47.7 W29-W40 N15-N26
      5 1276 1310 (N17W22 L= 20)   585    231        2 (1220/1240-1328/1356)  24.0 W16-W26 N14-N19
      6 1550 1120 (S01W34 L= 31)   726    157        4 (1511/1044-1587/1178)  26.6 W29-W37 S04-N01
      7 1677  886 (S18W38 L= 35)   285     78        1 (1644/ 867-1712/ 899)  -9.5 W34-W40 S19-S16
      8 1567  671 (S28W26 L= 23)   873    207        1 (1493/ 638-1639/ 722) -14.0 W20-W32 S30-S24
      9 1769  643 (S38W46 L= 44)  1660    221        3 (1685/ 566-1841/ 715)   8.5 W36-W56 S42-S34
     10 1557  480 (S42W23 L= 21)   387     62        0 (1526/ 466-1595/ 494) -29.7 W20-W27 S44-S40
     11  957  336 (S34E25 L=332)   597     98        0 ( 922/ 307-1000/ 378) -80.5 E27-E22 S36-S30
     12  526  303 (S27E62 L=295)  1444    148        4 ( 480/ 252- 581/ 362) -82.9 E69-E56 S31-S21
     13  605  295 (S29E54 L=303)   766     47        1 ( 579/ 265- 636/ 327)  71.6 E56-E51 S31-S25
  

    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