Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1665 (N43E04 L=127)  1138    198        1 (1191/1584-1294/1734) -39.3 E09-W02 N37-N48
      2  777 1707 (N32E37 L= 93)   370     39        0 ( 751/1684- 807/1728)  56.3 E38-E35 N30-N34
      3  522 1555 (N16E47 L= 83)   437    150        1 ( 501/1518- 555/1611) -56.3 E50-E44 N14-N20
      4  880 1534 (N23E22 L=108)   274     57        1 ( 860/1509- 895/1568) -78.7 E23-E20 N21-N26
      5  558 1501 (N14E42 L= 89)   377     48        0 ( 532/1475- 588/1520)  56.3 E43-E40 N12-N15
      6  804 1426 (N15E23 L=108)   331     83        0 ( 791/1380- 822/1467) -51.3 E24-E20 N12-N17
      7 1126 1289 (N14E00 L=130)   258     56        1 (1096/1268-1156/1315)  56.3 E01-W01 N12-N15
      8  186 1245 (S08E67 L= 63)  1302    262        7 ( 137/1198- 231/1288)  45.0 E73-E60 S11-S05
      9 1255 1143 (N09W10 L=141)   213     58        0 (1223/1124-1281/1158)  33.7 W08-W11 N08-N10
     10 1011  827 (S15W04 L=135)   214     42        1 ( 981/ 808-1037/ 848)   0.0 W02-W05 S15-S13
     11 1731  780 (N01W53 L=183)   507    121        0 (1691/ 718-1768/ 826)  66.8 W50-W55 S03-N04
     12  671  628 (S35E13 L=117)   294     60        0 ( 650/ 603- 699/ 658) -36.9 E14-E10 S36-S33
     13 1593  541 (S16W51 L=182)   641    117        1 (1560/ 495-1619/ 594) -74.1 W49-W53 S19-S12
     14 1712  555 (S12W61 L=192)   552     96        2 (1693/ 521-1727/ 589) -63.4 W58-W64 S14-S10
     15 1259  307 (S40W41 L=172)   991    230        1 (1171/ 283-1361/ 334)  10.6 W33-W49 S42-S37
  

    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