Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  798 1569 (N36E10 L= 61)   290     41        1 ( 775/1548- 823/1590) -36.9 E12-E08 N34-N37
      2  287 1368 (N28E53 L= 18)  3405    395        6 ( 240/1207- 357/1557) -40.0 E78-E43 N16-N42
      3 1797 1466 (N19W67 L=138)  1251     86        3 (1761/1422-1829/1503)  35.5 W62-W72 N16-N21
      4 1390 1466 (N22W29 L=100)   716    207        0 (1286/1443-1485/1488) -17.1 W22-W35 N20-N24
      5 1849 1298 (N08W65 L=136)  5161    276        8 (1743/1208-1953/1409) -22.9 W54-W83 N02-N15
      6  132 1243 (N21E72 L=359)   917     70        2 ( 108/1217- 152/1277)  26.6 E77-E68 N19-N23
      7  302  656 (S16E57 L= 14)  1244    227        2 ( 246/ 570- 358/ 758)  27.8 E67-E48 S20-S10
      8  948  626 (S24E09 L= 62)   483    112        1 ( 886/ 606-1008/ 649) -23.2 E12-E05 S26-S22
      9  628  609 (S22E31 L= 40)   237     40        0 ( 609/ 585- 648/ 633)  33.7 E32-E29 S23-S20
     10 1355  449 (S41W19 L= 90)   673     85        1 (1305/ 428-1404/ 475) -14.0 W15-W23 S42-S39
     11 1246  423 (S42W10 L= 81)   462     47        1 (1222/ 394-1269/ 457)  45.0 W08-W12 S44-S39
     12 1157  384 (S44W03 L= 74)   297     41        1 (1135/ 365-1181/ 411)  45.0 W00-W04 S45-S41
     13 1062  375 (S44E05 L= 66)   241     31        0 (1040/ 356-1085/ 391) -33.7 E06-E03 S45-S42
  

    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