Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1322 1756 (N39W48 L=287)  1963    263        2 (1207/1721-1454/1782) -17.7 W38-W60 N33-N42
      2 1612 1581 (N20W58 L=296)  4670    732        1 (1470/1436-1755/1686) -79.2 W49-W71 N08-N29
      3  788 1380 (N30E06 L=233)   552    212        1 ( 701/1346- 880/1413) -24.4 E11-W00 N26-N31
      4  521 1368 (N36E25 L=213)   437    141        1 ( 464/1336- 592/1399)  -5.2 E30-E19 N34-N36
      5 1117 1183 (N10W09 L=248)   511    156        1 (1071/1108-1154/1246) -90.0 W07-W10 N05-N14
      6 1818 1179 (S08W57 L=296)   525    100        0 (1791/1128-1843/1220)  38.7 W52-W60 S10-S05
      7 1652 1039 (S11W39 L=277)   288     76        2 (1629/1010-1678/1078) -63.4 W37-W40 S12-S08
      8  169  795 (N09E69 L=170)  1186    238        1 ( 127/ 692- 204/ 906) -85.6 E72-E65 N02-N15
      9 1743  722 (S33W43 L=282)   674    130        0 (1712/ 683-1780/ 784) -52.1 W39-W47 S36-S27
     10  746  714 (S07E23 L=215)   502    170        0 ( 699/ 633- 772/ 780) -90.0 E25-E22 S12-S02
     11 1570  650 (S32W26 L=265)   660    153        2 (1518/ 603-1621/ 716)  16.7 W21-W31 S34-S28
     12 1019  576 (S22E12 L=227)   670    141        1 ( 979/ 521-1042/ 649)  45.0 E15-E08 S24-S17
     13 1447  460 (S42W14 L=253)  1242    245        2 (1334/ 394-1518/ 528)  13.2 W03-W20 S44-S38
     14 1048  205 (S50E29 L=210)  1856    276        3 ( 913/ 162-1159/ 261)  -2.2 E42-E16 S52-S47
  

    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