Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  361 1595 (N31E68 L=209)  2212    184        1 ( 317/1511- 399/1666) -25.6 E87-E61 N24-N35
      2  360 1480 (N23E58 L=219)   579    116        0 ( 317/1460- 413/1502)   4.8 E64-E52 N22-N25
      3  541 1431 (N22E39 L=239)   414     67        2 ( 513/1398- 574/1462)  78.7 E40-E35 N19-N24
      4  884 1239 (N13E11 L=266)   255    116        0 ( 839/1213- 937/1253)   0.0 E13-E07 N12-N14
      5 1527  980 (N03W33 L=310)   989    246        2 (1459/ 915-1590/1066)  48.8 W28-W37 N00-N08
      6 1019  988 (S01E00 L=277)   504    106        2 ( 966/ 966-1075/1029)   9.5 E03-W03 S01-N01
      7  164  857 (S18E69 L=208)  2054    156        6 ( 143/ 773- 193/ 933)  70.0 E75-E63 S23-S12
      8 1023  843 (S10W02 L=279)   406    128        0 ( 988/ 794-1076/ 871)  51.3 W00-W04 S12-S07
      9  887  829 (S12E07 L=270)   391     59        0 ( 848/ 807- 921/ 850) -11.3 E09-E04 S13-S10
     10  791  762 (S17E13 L=265)   285     84        1 ( 751/ 738- 817/ 796) -11.3 E15-E10 S18-S14
     11 1707  676 (S14W54 L=331)  2289    316        5 (1661/ 570-1759/ 787) -81.9 W49-W60 S21-S07
     12 1072  721 (S17W06 L=283)   555    181        1 ( 993/ 698-1136/ 771) -16.7 W00-W10 S18-S14
     13  318  716 (S25E51 L=226)   849    160        1 ( 258/ 688- 391/ 757)  14.0 E58-E42 S27-S21
     14 1472  673 (S16W34 L=311)   742    235        0 (1415/ 632-1533/ 741)  58.0 W28-W37 S19-S11
     15  864  522 (S32E06 L=271)   405    111        1 ( 818/ 497- 912/ 565) -23.2 E09-E02 S33-S29
  

    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