Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  461 1669 (N34E50 L=132)  1133    251        1 ( 418/1630- 519/1720) -26.6 E56-E42 N31-N38
      2 1606 1416 (N24W37 L=219)   544    131        1 (1550/1394-1664/1435)   0.0 W32-W41 N22-N25
      3  381 1266 (N07E44 L=138)   633    108        1 ( 358/1217- 409/1322) -74.1 E45-E41 N03-N10
      4 1814 1291 (N19W55 L=236)   467     49        0 (1790/1259-1835/1322) -45.0 W52-W56 N17-N20
      5 1913 1120 (N10W66 L=248)  1440    212        4 (1871/1027-1947/1188) -52.1 W60-W72 N04-N14
      6 1290 1080 (N00W15 L=197)   493    188        0 (1227/ 989-1321/1152) -53.1 W11-W17 S04-N04
      7 1661  952 (S04W42 L=224)   360    106        1 (1611/ 933-1703/ 970)  15.9 W38-W45 S05-S02
      8 1273  913 (S10W16 L=198)   334    103        0 (1244/ 857-1296/ 945)  78.7 W13-W17 S12-S07
      9 1658  805 (S12W44 L=225)   444     98        2 (1619/ 782-1693/ 833)  36.9 W40-W46 S13-S10
     10  424  784 (S22E39 L=143)   500    176        0 ( 372/ 730- 494/ 818)  26.6 E43-E33 S25-S20
     11 1734  695 (S18W53 L=235)   319     59        3 (1713/ 662-1750/ 728)  76.0 W51-W54 S19-S15
     12 1798  638 (S20W61 L=243)  3345    428        3 (1674/ 532-1909/ 715)  33.7 W52-W74 S28-S14
     13 1447  418 (S39W39 L=221)   713    202        2 (1347/ 392-1541/ 450)  24.8 W32-W45 S41-S35
  

    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