Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1864 1288 (S02W69 L=178)   592    141        1 (1830/1250-1899/1315) -35.5 W65-W72 S05-N00
      2 1608 1287 (N06W43 L=152)   278     47        1 (1587/1264-1628/1313)  14.0 W41-W45 N04-N07
      3  227 1207 (N34E55 L= 54)   433     65        2 ( 205/1183- 252/1234) -31.0 E56-E51 N32-N35
      4  243  983 (N20E55 L= 54)   400     95        2 ( 216/ 959- 272/1012) -31.0 E57-E52 N18-N22
      5 1795  742 (S32W47 L=156)  2459    388        5 (1688/ 619-1903/ 874)  21.4 W36-W60 S37-S26
      6 1608  660 (S30W29 L=138)   607    117        1 (1577/ 606-1644/ 731)  49.4 W26-W32 S33-S26
      7  953  686 (S10E12 L= 97)   372    117        2 ( 917/ 654-1001/ 723) -11.3 E14-E09 S12-S08
      8 1000  618 (S16E11 L= 98)   791    315        4 ( 909/ 553-1094/ 671)  -9.5 E16-E04 S19-S12
      9  308  571 (S06E63 L= 46)   436     80        2 ( 287/ 541- 326/ 596)  76.0 E65-E60 S07-S03
     10 1143  556 (S23E05 L=104)   232     95        0 (1103/ 533-1191/ 586) -51.3 E06-E02 S25-S20
     11  895  512 (S20E21 L= 88)   261     91        1 ( 867/ 482- 925/ 549) -90.0 E22-E19 S22-S17
     12  699  456 (S19E35 L= 74)   441    155        5 ( 652/ 430- 765/ 481)   0.0 E39-E30 S21-S17
     13  624  392 (S22E44 L= 65)   318    104        2 ( 601/ 366- 647/ 426)  78.7 E46-E40 S24-S19
     14  708  217 (S38E50 L= 59)   460     82        1 ( 684/ 201- 736/ 232)   9.5 E52-E46 S39-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