Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1875 (N59W56 L= 61)  1128    113        2 (1180/1838-1273/1901)   0.0 W46-W71 N56-N61
      2 1547 1661 (N35W59 L= 64)   597    148        0 (1482/1629-1612/1677) -26.6 W52-W63 N31-N36
      3 1529 1560 (N29W49 L= 54)   721    103        2 (1475/1526-1575/1587) -39.8 W44-W52 N26-N31
      4  643 1374 (N33E21 L=344)   375     91        1 ( 625/1337- 660/1428)  68.2 E22-E19 N30-N36
      5  379 1291 (N31E44 L=321)  2423    362        5 ( 260/1188- 514/1411) -28.1 E61-E31 N23-N39
      6 1679 1357 (N14W51 L= 56)   461    121        1 (1644/1329-1722/1383) -15.9 W47-W54 N11-N15
      7  994 1288 (N23W02 L=  7)   198     75        0 ( 962/1264-1017/1322)  36.9 W00-W04 N21-N24
      8 1304 1243 (N15W21 L= 26)   530    173        0 (1224/1226-1393/1256) -15.3 W15-W26 N12-N16
      9  515  959 (N09E33 L=332)   368    104        1 ( 497/ 907- 534/1015)  80.5 E34-E31 N06-N12
     10 1865  932 (S15W60 L= 65)  1407    158        1 (1810/ 888-1917/1000)  14.9 W53-W68 S16-S12
     11  793  700 (S10E19 L=346)   639    115        2 ( 772/ 644- 818/ 763)  69.4 E20-E16 S13-S05
     12  313  586 (S12E60 L=305)  2102    335        4 ( 247/ 502- 414/ 688) -56.3 E66-E52 S18-S05
     13 1054  631 (S18E04 L=  1)   444    207        0 ( 996/ 606-1133/ 682)  -7.1 E07-W01 S19-S13
     14  592  342 (S32E47 L=318)   993    163        2 ( 536/ 299- 649/ 415)  25.2 E56-E38 S34-S26
  

    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