Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1453 1729 (N45W54 L=219)   433     55        1 (1431/1697-1475/1747)  53.1 W50-W58 N42-N46
      2  566 1683 (N55E39 L=126)   350     37        1 ( 544/1659- 580/1706) -68.2 E42-E36 N52-N57
      3 1271 1527 (N34W25 L=190)   226     34        2 (1252/1505-1292/1548) -90.0 W23-W26 N32-N35
      4 1757 1349 (N15W59 L=224)   385     79        0 (1730/1316-1779/1386) -68.2 W57-W60 N12-N17
      5  448 1347 (N31E39 L=126)   984    231        1 ( 363/1319- 552/1370)  -3.4 E47-E30 N28-N32
      6  180 1039 (N12E64 L=101)  1720    250        4 ( 148/ 947- 220/1120)  74.7 E69-E59 N06-N17
      7  747  986 (N06E17 L=148)   392    131        1 ( 714/ 928- 772/1050) -82.9 E18-E16 N02-N10
      8 1814  865 (S15W55 L=221)   377     72        0 (1792/ 830-1835/ 899)  36.9 W53-W58 S16-S12
      9 1297  833 (S09W15 L=180)   192     76        1 (1283/ 798-1312/ 873)  76.0 W13-W15 S10-S06
     10  537  735 (S08E35 L=131)   251     77        1 ( 503/ 704- 567/ 760)  31.0 E37-E31 S09-S06
     11 1692  626 (S28W45 L=211)  1222    241        4 (1613/ 561-1760/ 714)  28.3 W38-W51 S33-S23
     12 1107  583 (S23W00 L=166)   856    160        3 (1052/ 516-1154/ 647)  66.0 E03-W04 S27-S18
     13  571  593 (S17E35 L=130)   595    114        2 ( 537/ 544- 600/ 629) -80.5 E37-E33 S20-S14
     14 1362  488 (S33W18 L=183)  1708    336        3 (1251/ 388-1428/ 625)  50.9 W09-W22 S39-S23
     15 1170  420 (S35W03 L=168)  1254    220        4 (1102/ 358-1250/ 504) -53.1 W00-W09 S41-S28
     16  665  445 (S28E33 L=132)   553     72        1 ( 631/ 424- 706/ 478) -31.0 E35-E29 S29-S25
     17  495  391 (S31E51 L=114)   448     68        0 ( 466/ 366- 520/ 422)  18.4 E55-E46 S33-S28
     18 1518  318 (S51W39 L=204)   649     72        1 (1481/ 304-1562/ 334)   0.0 W33-W45 S53-S49
     19 1365  256 (S55W22 L=187)  1169    117        2 (1317/ 232-1423/ 284) -15.9 W16-W30 S57-S50
  

    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