Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  512 1580 (N17E47 L=223)   907    264        5 ( 479/1468- 542/1676) -57.3 E54-E42 N09-N23
      2  460 1590 (N17E52 L=218)   484     68        2 ( 435/1565- 486/1618)  -9.5 E55-E49 N14-N18
      3 1320 1536 (N31W07 L=277)   553    174        1 (1277/1464-1367/1607)  84.8 W05-W09 N25-N36
      4 1538 1223 (N16W27 L=297)  3201    940        4 (1377/ 884-1663/1602) -48.4 W10-W42 N00-N37
      5  589 1538 (N15E39 L=231)   383     81        3 ( 554/1517- 622/1568)  53.1 E41-E37 N13-N17
      6  910 1454 (N16E16 L=254)   712    173        1 ( 843/1426- 993/1502)  -5.7 E20-E10 N14-N17
      7 1683 1108 (N13W39 L=310)   333     80        0 (1666/1065-1697/1150) -78.7 W37-W40 N10-N15
      8 1820  959 (N09W55 L=325)  1106    193        0 (1743/ 906-1869/1021)  45.0 W47-W59 N04-N13
      9 1366  741 (S15W27 L=297)   507    242        0 (1272/ 696-1479/ 791)  36.0 W22-W33 S19-S10
     10 1570  603 (S18W46 L=316)   737    117        1 (1519/ 563-1619/ 649)  74.1 W43-W48 S20-S13
     11 1715  589 (S14W60 L=330)   423     72        1 (1690/ 558-1741/ 619)  90.0 W57-W61 S15-S11
     12 1710  520 (S18W64 L=334)   938    158        1 (1642/ 486-1778/ 555)  38.7 W58-W71 S21-S13
     13 1363  460 (S31W39 L=309)   620    104        0 (1311/ 431-1412/ 490)  45.0 W35-W41 S34-S28
     14 1237  423 (S37W32 L=302)   279     34        1 (1217/ 403-1254/ 446) -26.6 W30-W34 S38-S35
     15 1459  301 (S38W60 L=330)   538     61        0 (1433/ 285-1493/ 325)   5.7 W55-W65 S38-S36
  

    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