Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  731 1541 (N33E16 L=187)   222     38        1 ( 713/1521- 759/1558)  18.4 E17-E14 N31-N34
      2  831 1513 (N30E09 L=194)   498    106        3 ( 779/1475- 887/1536) -23.2 E12-E05 N27-N32
      3 1440 1411 (N19W30 L=233)   245     51        1 (1405/1393-1469/1432) -26.6 W27-W32 N17-N20
      4 1683 1179 (N03W44 L=247)   356     54        0 (1654/1151-1706/1204)  14.0 W41-W46 N01-N04
      5 1895 1114 (S02W66 L=268)  1137    159        1 (1857/1075-1932/1146) -33.7 W60-W71 S04-N00
      6  738 1101 (N05E17 L=186)   209     49        0 ( 718/1071- 757/1135)  63.4 E17-E15 N03-N07
      7 1862 1002 (S08W60 L=263)  1643    351        7 (1803/ 932-1918/1075) -39.3 W53-W67 S12-S03
      8  118  977 (N04E71 L=132)   519     92        1 (  96/ 962- 149/ 994)  -6.3 E75-E65 N02-N04
      9 1769  934 (S12W50 L=253)   424     59        0 (1743/ 899-1789/ 957) -63.4 W47-W52 S14-S10
     10  441  848 (S07E39 L=164)  1094    289        0 ( 358/ 785- 533/ 909) -13.0 E46-E33 S11-S03
     11 1739  778 (S21W48 L=251)  1393    217        4 (1670/ 689-1802/ 884)  47.7 W42-W53 S26-S15
     12 1591  792 (S20W36 L=238)   590    154        2 (1526/ 754-1647/ 819)  16.7 W30-W40 S21-S18
     13 1613  737 (S23W38 L=240)   306    106        1 (1577/ 713-1658/ 764) -23.2 W34-W41 S24-S21
     14  862  583 (S27E15 L=188)   385     61        2 ( 830/ 554- 896/ 607)  21.8 E16-E11 S29-S25
     15 1558  407 (S46W40 L=243)   887    140        1 (1502/ 386-1609/ 436) -14.0 W34-W46 S48-S43
  

    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