Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1484 1581 (N35W45 L=166)   653     95        1 (1461/1537-1514/1616)  24.0 W40-W49 N32-N37
      2 1195 1383 (N26W15 L=137)   530    174        0 (1136/1337-1258/1456) -60.9 W12-W19 N22-N31
      3 1618 1303 (N15W44 L=166)  1385    293        6 (1557/1211-1675/1420) -90.0 W40-W49 N09-N23
      4  201 1279 (N26E68 L= 53)   916    138        0 ( 163/1255- 249/1309)  -3.4 E77-E60 N24-N27
      5  798 1102 (N12E13 L=108)   408     98        1 ( 755/1080- 854/1120)  -8.1 E16-E09 N10-N13
      6 1748  857 (S14W50 L=171)   551     28        0 (1724/ 831-1770/ 887)  90.0 W47-W52 S15-S11
      7  525  811 (S04E35 L= 87)   805    183        2 ( 500/ 719- 563/ 873)  66.0 E36-E30 S09-N00
      8 1673  679 (S24W44 L=165)   348     56        0 (1641/ 662-1703/ 695)   0.0 W40-W46 S25-S23
      9  288  594 (S17E63 L= 58)  1355    136        4 ( 251/ 535- 318/ 647)  76.0 E68-E58 S21-S13
     10  594  561 (S20E35 L= 87)   346     72        0 ( 573/ 518- 614/ 596)  56.3 E37-E32 S23-S17
     11 1415  521 (S32W23 L=144)   283     79        0 (1373/ 509-1454/ 533)   0.0 W19-W26 S32-S30
     12 1169  448 (S34W04 L=125)   439    136        1 (1103/ 434-1234/ 466) -26.6 W00-W08 S35-S31
     13  743  379 (S35E30 L= 92)   887    207        0 ( 696/ 315- 815/ 459) -76.0 E31-E26 S40-S28
     14 1105  203 (S57E05 L=116)   522     72        0 (1067/ 191-1144/ 220)  -6.3 E09-W00 S58-S54
  

    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