Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  850 1569 (N44W04 L= 53)   239     41        1 ( 838/1541- 868/1595)  53.1 W02-W05 N42-N46
      2  366 1507 (N53E49 L=  1)   545     83        0 ( 328/1487- 410/1524)   0.0 E54-E41 N51-N54
      3 1226 1475 (N28W25 L= 75)   221     72        0 (1202/1451-1262/1495) -14.0 W23-W27 N26-N28
      4 1113 1434 (N28W17 L= 66)   232     67        0 (1078/1409-1136/1456) -53.1 W14-W17 N26-N30
      5 1005 1251 (N21W04 L= 54)   303    156        0 ( 937/1220-1056/1272) -33.7 W00-W06 N17-N22
      6  783 1080 (N16E13 L= 36)   759    166        1 ( 710/1025- 840/1148) -53.1 E16-E09 N12-N21
      7  192 1103 (N28E63 L=346)   533     70        1 ( 165/1080- 226/1129) -20.6 E67-E58 N26-N29
      8 1790  876 (S23W49 L= 98)  3336    629        3 (1595/ 676-1927/1110)  18.4 W28-W72 S30-S13
      9  823  923 (N06E14 L= 35)   709    203        0 ( 764/ 839- 858/1009)  41.6 E19-E10 N02-N10
     10  505  960 (N15E34 L= 16)   361    122        1 ( 488/ 915- 551/1001)  80.5 E35-E30 N11-N17
     11 1635  846 (S19W34 L= 83)  1297    256        2 (1574/ 731-1693/ 948)  39.8 W27-W40 S24-S14
     12  747  725 (S04E23 L= 26)   431    114        0 ( 723/ 681- 775/ 796)  71.6 E24-E21 S06-N00
     13  967  544 (S20E15 L= 34)   279     74        0 ( 924/ 521-1003/ 560) -53.1 E17-E13 S22-S18
     14 1170  348 (S39E10 L= 40)  1560    240        4 (1084/ 268-1246/ 443)  26.6 E19-E01 S43-S33
     15  882  382 (S29E27 L= 22)   381    103        0 ( 830/ 370- 930/ 405) -45.0 E29-E23 S30-S25
  

    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