Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  908 1607 (N36E18 L= 77)  1233    292        2 ( 857/1494- 946/1705) -49.4 E26-E13 N28-N42
      2  578 1568 (N28E41 L= 54)  1342    461        4 ( 501/1443- 647/1694) -31.3 E54-E31 N20-N35
      3 1710 1557 (N46W53 L=147)  1015    297        2 (1671/1518-1746/1598)  32.7 W46-W60 N41-N50
      4  292 1453 (N17E62 L= 32)  3773    535        7 ( 247/1282- 328/1591) -51.7 E70-E53 N06-N25
      5  940 1322 (N17E09 L= 85)   583    219        2 ( 864/1263- 991/1403) -77.5 E13-E06 N13-N22
      6  722 1265 (N11E22 L= 73)   265     72        1 ( 695/1234- 744/1295) -36.9 E24-E20 N09-N12
      7  510 1207 (N05E35 L= 59)   288    120        0 ( 454/1184- 553/1230)  29.7 E39-E32 N02-N06
      8 1574 1144 (N15W34 L=129)   424    119        2 (1552/1099-1606/1179)  71.6 W32-W36 N11-N17
      9 1316 1072 (N07W17 L=112)   449    175        0 (1277/ 975-1345/1147) -55.0 W13-W20 N01-N11
     10 1539 1058 (N09W32 L=127)   376    119        1 (1503/1024-1597/1097) -15.9 W29-W36 N07-N11
     11  309  889 (S17E48 L= 47)   523    139        1 ( 275/ 828- 347/ 932)  45.0 E51-E44 S21-S14
     12 1187  794 (S11W13 L=108)   294     98        0 (1153/ 773-1239/ 828) -18.4 W10-W16 S12-S09
     13 1571  683 (S13W42 L=136)   555    108        2 (1536/ 645-1595/ 718) -33.7 W38-W44 S15-S10
     14 1251  468 (S32W25 L=120)   292     63        1 (1214/ 450-1276/ 496)  26.6 W22-W26 S33-S29
     15  788  452 (S40E09 L= 86)   515    104        2 ( 736/ 434- 837/ 477)  12.5 E13-E04 S42-S37
  

    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