Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1476 (N32W16 L=320)  1144    308        2 (1013/1423-1285/1519) -24.0 W05-W23 N27-N36
      2 1692 1466 (N23W58 L=  3)   513    109        1 (1642/1436-1736/1492) -40.6 W54-W62 N19-N25
      3  595 1287 (N26E26 L=278)   250     90        0 ( 555/1276- 645/1299)  -8.1 E29-E22 N25-N27
      4  699 1171 (N18E19 L=285)   323     99        1 ( 652/1142- 736/1206)   9.5 E22-E16 N16-N20
      5  391 1148 (N19E43 L=262)   295     42        1 ( 372/1127- 414/1171) -45.0 E44-E40 N17-N20
      6  370 1113 (N17E44 L=260)   284     63        0 ( 345/1097- 403/1129) -11.3 E46-E41 N16-N17
      7  820 1053 (N10E12 L=292)   194     54        0 ( 792/1029- 845/1067) -56.3 E13-E10 N07-N10
      8 1464 1017 (S00W27 L=332)   234    139        1 (1429/ 972-1513/1066) -59.0 W25-W30 S03-N02
      9 1909  961 (S12W70 L= 14)  1776    120        4 (1879/ 910-1944/1015) -60.3 W64-W79 S15-S08
     10 1748  793 (S19W49 L=354)  4277    500        9 (1628/ 602-1860/ 935)  55.6 W37-W62 S30-S11
     11 1511  852 (S11W29 L=334)   368    132        1 (1473/ 800-1542/ 890) -80.5 W26-W31 S14-S08
     12 1365  814 (S11W19 L=323)   704    227        4 (1330/ 715-1402/ 888)  74.7 W15-W21 S17-S06
     13  169  775 (S04E72 L=233)  2376    142        8 ( 130/ 705- 194/ 839)  76.0 E82-E67 S08-N00
     14 1471  745 (S17W26 L=330)   337    108        1 (1440/ 717-1518/ 785) -26.6 W23-W29 S18-S14
     15  832  691 (S13E16 L=289)   302     89        0 ( 789/ 671- 876/ 709) -21.8 E18-E13 S14-S11
     16  790  531 (S23E22 L=283)  1585    427        1 ( 723/ 440- 909/ 675)  86.4 E25-E13 S29-S13
     17  597  439 (S28E40 L=265)   660    148        3 ( 572/ 378- 629/ 497)  45.0 E44-E34 S32-S23
     18 1576  381 (S47W42 L=347)  1254    120        2 (1520/ 353-1620/ 417)   0.0 W34-W49 S50-S44
     19 1032  310 (S43E10 L=294)   562     57        2 (1002/ 287-1067/ 336)   9.5 E13-E07 S45-S40
  

    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