Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1302 1771 (N56W34 L=169)   789    122        1 (1238/1742-1362/1801)   8.5 W25-W46 N53-N58
      2  449 1439 (N30E45 L= 90)  2190    428        4 ( 345/1300- 558/1604) -30.7 E64-E32 N21-N41
      3 1167 1553 (N38W12 L=146)   469     70        3 (1137/1530-1208/1579)  18.4 W09-W15 N36-N40
      4 1368 1505 (N34W27 L=161)   278     64        0 (1336/1484-1404/1521)   9.5 W24-W30 N32-N35
      5  897 1251 (N18E08 L=126)   473    205        0 ( 850/1165- 956/1308)  66.0 E10-E04 N12-N21
      6  166 1209 (N14E71 L= 63)  1622    121        4 ( 136/1153- 204/1265) -81.9 E77-E65 N10-N17
      7 1023 1225 (N16W00 L=134)   231     56        2 ( 990/1206-1053/1242)  18.4 E01-W02 N15-N17
      8  603 1034 (N05E27 L=107)   788    210        1 ( 530/ 964- 687/1094)  32.5 E32-E21 N00-N08
      9  524  860 (S06E33 L=101)   310     54        1 ( 499/ 837- 552/ 881)  36.9 E34-E30 S07-S04
     10  271  714 (S16E58 L= 76)   415     69        2 ( 249/ 686- 300/ 749) -36.9 E60-E55 S18-S14
     11  475  645 (S20E40 L= 95)  1522    299        5 ( 412/ 508- 540/ 738)  43.3 E50-E33 S30-S13
     12 1240  495 (S31W15 L=149)  3535    727        9 ( 971/ 324-1466/ 715)  39.5 E05-W29 S44-S16
     13 1694  644 (S23W50 L=184)   375     52        1 (1672/ 620-1717/ 668)  63.4 W48-W52 S24-S20
     14  850  495 (S30E13 L=121)  1575    507        1 ( 702/ 377-1057/ 662)  36.9 E27-W01 S39-S18
  

    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