Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  427 1698 (N19E66 L=254)   794    218        2 ( 411/1662- 441/1741) -45.0 E70-E62 N16-N22
      2  415 1618 (N13E61 L=259)   569     63        0 ( 386/1590- 449/1639)  68.2 E63-E58 N10-N15
      3  371 1561 (N09E62 L=258)   564     99        1 ( 346/1538- 402/1586)   0.0 E65-E58 N07-N10
      4  322 1204 (S13E50 L=270)  1126    205        2 ( 251/1152- 378/1279)  55.0 E54-E47 S17-S07
      5  144 1107 (S22E66 L=254)   625    177        1 ( 108/1075- 174/1138)  45.0 E69-E62 S24-S19
      6  289 1060 (S22E49 L=271)   707    227        1 ( 225/1011- 350/1106)  41.2 E54-E44 S25-S18
      7 1732  946 (N11W46 L=  6)   321     53        1 (1718/ 919-1752/ 978) -45.0 W43-W47 N09-N12
      8  355  814 (S36E40 L=280)   322     82        0 ( 322/ 789- 390/ 834)  33.7 E42-E36 S37-S33
      9 1810  678 (N00W65 L= 25)   705    146        2 (1790/ 643-1832/ 744) -59.0 W61-W69 S02-N03
     10  243  660 (S49E53 L=268)  1085    261        0 ( 189/ 643- 305/ 683)  12.1 E59-E45 S50-S47
     11 1608  607 (S11W49 L=  9)   455    118        1 (1570/ 583-1659/ 624)  15.9 W46-W53 S12-S08
     12 1696  564 (S10W59 L= 20)   552     89        1 (1678/ 529-1714/ 603) -26.6 W55-W63 S11-S07
     13 1393  351 (S31W49 L=  9)  1462    386        1 (1256/ 298-1497/ 426)   7.1 W35-W59 S33-S28
  

    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