Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1079 1550 (N30W07 L=169)   652    169        1 (1016/1490-1149/1600) -45.0 W02-W10 N25-N33
      2  464 1481 (N29E38 L=125)   829    146        4 ( 408/1440- 535/1532) -30.3 E43-E31 N26-N33
      3  267 1295 (N19E53 L=110)  2794    331        7 ( 207/1165- 328/1437) -86.6 E57-E46 N11-N28
      4 1476 1207 (N07W29 L=191)   225     57        1 (1441/1193-1511/1222) -11.3 W26-W31 N05-N07
      5 1245 1101 (N01W13 L=176)   669    316        1 (1131/1060-1383/1133)  -3.8 W06-W21 S01-N03
      6  445  847 (S09E38 L=124)  1023    311        2 ( 393/ 717- 509/ 924)  42.5 E44-E32 S16-S05
      7 1214  874 (S12W11 L=173)   480    107        2 (1169/ 839-1275/ 919)   0.0 W07-W14 S13-S09
      8  679  899 (S08E22 L=141)   222    109        0 ( 622/ 874- 724/ 917) -23.2 E25-E18 S09-S06
      9  980  831 (S13E04 L=159)   793    271        1 ( 892/ 777-1093/ 875)   4.8 E09-W03 S16-S10
     10  218  791 (S11E60 L=103)   895     99        0 ( 184/ 751- 255/ 836)  21.8 E64-E54 S13-S08
     11 1110  731 (S20W04 L=166)   583    240        3 (1054/ 623-1148/ 824)  71.6 W00-W06 S26-S14
     12  392  503 (S30E53 L=109)   506     63        1 ( 367/ 481- 424/ 532) -53.1 E56-E50 S31-S27
     13  341  433 (S34E66 L= 97)  1040    120        2 ( 323/ 366- 365/ 491)  22.8 E78-E57 S38-S30
     14 1660  470 (S40W52 L=215)   948    114        1 (1594/ 448-1718/ 490)  -6.7 W44-W61 S41-S38
  

    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