Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  575 1680 (N20E50 L= 51)   382    132        0 ( 548/1637- 596/1717) -35.5 E54-E47 N17-N22
      2  933 1509 (N18E19 L= 82)   750    198        1 ( 905/1418- 958/1600) -57.5 E22-E15 N13-N24
      3  307 1541 (N06E68 L= 34)  2244    247        7 ( 256/1471- 369/1599)  66.0 E73-E63 N01-N10
      4 1302 1506 (N29W02 L=104)   683    124        2 (1268/1443-1329/1564) -54.5 E01-W05 N25-N32
      5 1121 1371 (N15E04 L= 97)   531    188        0 (1086/1299-1138/1460) -53.1 E08-E01 N10-N19
      6  514 1381 (N01E41 L= 61)   305     54        1 ( 486/1357- 540/1411)   0.0 E43-E38 N00-N02
      7  907 1101 (S06E09 L= 93)   517    108        2 ( 875/1045- 932/1162) -82.9 E09-E06 S09-S01
      8  315  904 (S31E44 L= 57)  3217    642        8 ( 160/ 759- 447/1073)  45.0 E60-E35 S42-S18
      9 1664  970 (N09W40 L=141)   399    120        1 (1626/ 940-1699/1013)  71.6 W37-W42 N06-N12
     10 1868  938 (N15W59 L=160)   537     76        1 (1846/ 904-1886/ 977) -76.0 W56-W61 N13-N17
     11 1753  833 (N05W51 L=153)   791    223        2 (1656/ 792-1815/ 880)  39.3 W44-W55 N00-N09
     12  650  769 (S31E16 L= 86)   811    272        2 ( 576/ 670- 728/ 877)  69.4 E19-E12 S38-S22
     13  982  783 (S21W05 L=106)   679    198        0 ( 879/ 724-1064/ 840)  57.5 W00-W07 S26-S15
     14 1694  710 (S03W51 L=153)   330     57        1 (1673/ 685-1718/ 733)  56.3 W49-W53 S04-S01
     15 1171  692 (S20W18 L=120)   306     65        1 (1134/ 661-1206/ 721)  59.0 W16-W19 S22-S17
     16 1566  558 (S15W49 L=150)   384     66        1 (1528/ 537-1597/ 580)  36.9 W46-W50 S16-S13
     17 1719  521 (S11W65 L=166)   496    129        1 (1691/ 487-1738/ 545) -63.4 W60-W68 S13-S09
     18 1301  435 (S31W38 L=139)  1456    294        4 (1188/ 390-1415/ 473)  37.6 W31-W44 S35-S25
     19 1536  407 (S24W56 L=157)   538     85        1 (1500/ 380-1577/ 440)  71.6 W53-W57 S26-S20
  

    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