Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  903 1754 (N46E27 L=146)   387     70        2 ( 872/1738- 932/1780)  45.0 E29-E24 N44-N48
      2 1040 1676 (N42E12 L=160)   480     75        2 (1000/1657-1080/1700)   0.0 E16-E08 N40-N44
      3  956 1631 (N37E17 L=156)   274     42        2 ( 937/1612- 981/1653) -33.7 E18-E14 N35-N38
      4  308 1540 (N20E66 L=107)  1410    225        4 ( 284/1492- 328/1586) -40.6 E70-E61 N16-N22
      5  284 1444 (N13E63 L=109)  4935    695        9 ( 190/1318- 389/1534)  55.5 E75-E54 N04-N20
      6  439 1358 (N11E45 L=128)   873    205        3 ( 403/1303- 494/1407)  60.3 E47-E41 N07-N14
      7  923 1288 (N14E10 L=162)   223     62        0 ( 902/1255- 941/1316) -53.1 E12-E09 N11-N15
      8  888 1098 (N02E09 L=163)   341     94        0 ( 855/1077- 930/1133) -21.8 E11-E06 N00-N03
      9  434 1003 (S11E38 L=135)  1229    229        2 ( 405/ 898- 488/1117) -61.7 E41-E32 S16-S03
     10 1097 1010 (S00W05 L=177)   339     97        1 (1044/ 990-1150/1029)  18.4 W01-W07 S01-N01
     11 1049  896 (S08W04 L=176)   232     85        0 (1028/ 849-1067/ 938)  90.0 W02-W04 S10-S04
     12 1828  713 (S06W67 L=240)   590    134        1 (1812/ 665-1841/ 771) -54.5 W63-W69 S09-S02
     13 1433  402 (S32W43 L=216)  1111    290        0 (1323/ 373-1537/ 450)   6.3 W32-W51 S34-S29
  

    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