Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  182 1110 (N30E57 L=257)  2086    404        1 ( 116/1000- 246/1215) -51.3 E64-E52 N22-N37
      2 1871 1016 (S20W56 L= 11)  1226    269        3 (1842/ 937-1897/1096)  53.1 W52-W60 S24-S16
      3  796  976 (N09E14 L=301)   551    159        2 ( 723/ 957- 871/ 995) -24.0 E18-E09 N06-N11
      4  924  951 (N04E07 L=307)   305     60        0 ( 893/ 926- 968/ 978)  11.3 E09-E04 N03-N05
      5  514  936 (N13E32 L=282)   930    280        1 ( 411/ 882- 639/ 973)  -3.2 E41-E23 N10-N15
      6 1304  880 (S10W12 L=326)   344     90        1 (1253/ 851-1342/ 916)   0.0 W08-W14 S10-S07
      7  312  862 (N13E50 L=265)   406    138        0 ( 258/ 841- 347/ 886) -23.2 E54-E46 N11-N15
      8 1513  842 (S18W24 L=338)   227     47        0 (1493/ 816-1531/ 865) -71.6 W22-W24 S19-S16
      9  193  787 (N11E65 L=250)   510     83        0 ( 177/ 757- 219/ 830) -76.0 E66-E62 N09-N13
     10 1011  510 (S23E16 L=299)  1563    269        4 ( 975/ 372-1068/ 647)  48.8 E22-E08 S32-S16
     11  360  480 (S10E62 L=252)  4861    458        8 ( 280/ 422- 440/ 561) -21.8 E74-E55 S14-S04
     12  481  449 (S14E53 L=262)   693    190        4 ( 447/ 395- 513/ 503)  41.2 E57-E49 S17-S10
     13  432  379 (S18E62 L=253)   601    174        4 ( 387/ 356- 472/ 396) -20.6 E66-E57 S19-S15
  

    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