Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  800 1738 (N34E33 L= 93)  1095    182        2 ( 769/1650- 832/1822) -39.1 E42-E26 N27-N40
      2  495 1746 (N30E62 L= 65)  1065    108        2 ( 462/1696- 532/1788) -16.9 E75-E52 N26-N33
      3  671 1610 (N22E36 L= 91)   389    109        1 ( 620/1571- 714/1646)  63.4 E37-E33 N19-N25
      4 1222 1618 (N34W00 L=127)   302     74        0 (1197/1596-1257/1644) -26.6 E02-W02 N32-N35
      5  384 1577 (N16E58 L= 68)   527    112        0 ( 357/1549- 416/1613)  63.4 E61-E53 N14-N19
      6  978 1488 (N20E12 L=115)  1394    458        4 ( 830/1385-1135/1613) -19.2 E23-W00 N15-N25
      7  700 1382 (N08E26 L=100)  1325    403        2 ( 671/1224- 726/1591) -70.0 E31-E22 S01-N21
      8 1479 1428 (N27W21 L=148)   457    115        1 (1461/1387-1507/1487)  74.1 W19-W22 N24-N31
      9 1040 1390 (N15E06 L=121)   326    130        0 ( 995/1338-1089/1425) -23.2 E09-E02 N12-N16
     10 1629 1379 (N28W33 L=160)   392    116        0 (1607/1318-1655/1424) -56.3 W31-W35 N24-N30
     11 1002  913 (S14W01 L=128)   707    239        3 ( 929/ 839-1108/ 950)  29.1 E03-W06 S18-S10
     12  865  854 (S20E06 L=120)   253     50        2 ( 843/ 827- 887/ 884) -71.6 E07-E04 S21-S17
     13  585  832 (S26E24 L=102)   434    130        1 ( 529/ 801- 635/ 855)   0.0 E28-E20 S27-S24
     14  548  698 (S35E26 L=100)   355     94        0 ( 512/ 678- 593/ 730)  -8.1 E29-E22 S36-S33
     15 1725  650 (S12W57 L=183)   327     47        1 (1704/ 621-1738/ 670) -56.3 W53-W58 S13-S10
     16 1395  511 (S28W37 L=164)  1013    197        3 (1320/ 441-1465/ 580) -13.2 W29-W46 S30-S25
     17 1222  532 (S31W25 L=151)   287     57        0 (1185/ 516-1254/ 548)  26.6 W22-W26 S32-S29
     18  714  489 (S46E11 L=116)   770    129        1 ( 657/ 466- 777/ 522)   5.2 E16-E05 S47-S43
     19 1406  375 (S36W47 L=174)   611     95        1 (1373/ 337-1454/ 407)  81.9 W43-W48 S39-S32
     20  741  237 (S68E04 L=123)  1003    156        2 ( 672/ 210- 818/ 267)   2.5 E15-W08 S69-S65
  

    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