Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  530 1652 (N38E51 L=338)   714     64        2 ( 496/1627- 560/1676)  21.8 E54-E47 N36-N39
      2  601 1636 (N38E43 L=346)   586     79        1 ( 577/1597- 638/1662) -39.8 E46-E38 N34-N39
      3  723 1503 (N29E26 L=  3)   327     61        1 ( 704/1472- 748/1530)  76.0 E28-E24 N27-N31
      4 1084 1406 (N26W01 L= 30)  1131    327        1 (1003/1322-1137/1519) -59.7 E04-W04 N20-N33
      5 1756 1449 (N35W61 L= 90)  2131    258        1 (1644/1396-1857/1508)  -9.5 W48-W79 N31-N38
      6  321 1389 (N18E57 L=332)   471    131        0 ( 288/1326- 341/1422) -29.1 E62-E53 N14-N20
      7  461 1345 (N17E42 L=347)   286    103        1 ( 421/1319- 495/1362)  -8.1 E45-E38 N14-N18
      8 1797 1240 (N21W58 L= 87)   528    124        5 (1755/1205-1847/1267) -10.3 W53-W64 N18-N22
      9 1814 1148 (N15W59 L= 88)   727    145        0 (1780/1113-1864/1200) -35.5 W55-W65 N12-N18
     10 1008  718 (S17W01 L= 30)   419     81        2 ( 974/ 684-1045/ 748)  53.1 W00-W03 S19-S15
     11 1708  651 (S17W54 L= 84)   357     49        0 (1691/ 627-1725/ 671)  71.6 W52-W56 S18-S15
     12 1022  609 (S24W03 L= 32)   256     94        1 ( 980/ 585-1062/ 636) -26.6 W00-W06 S25-S22
     13  998  418 (S39W04 L= 33)   439    138        1 ( 941/ 397-1068/ 441)  24.0 W00-W09 S40-S36
  

    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