Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  620 1579 (N15E42 L=134)   614    132        1 ( 586/1534- 641/1651) -45.0 E46-E38 N12-N19
      2 1668 1501 (N44W32 L=208)   717    108        0 (1618/1471-1720/1529)   4.8 W26-W38 N42-N45
      3  291 1401 (S03E61 L=115)   492     69        1 ( 276/1365- 305/1437) -38.7 E63-E57 S04-N00
      4  897 1231 (N02E13 L=163)   285    143        0 ( 836/1216- 967/1248)  29.7 E16-E09 N00-N04
      5  201 1055 (S24E60 L=116)   522    119        0 ( 154/1017- 244/1096)  26.6 E67-E55 S27-S21
      6  369  853 (S33E40 L=136)   654    176        0 ( 337/ 775- 418/ 918)  59.0 E42-E36 S38-S28
      7  263  853 (S36E52 L=124)   404    118        1 ( 249/ 788- 273/ 902)  74.1 E53-E50 S39-S32
      8  476  836 (S31E30 L=146)   308     85        0 ( 453/ 805- 515/ 870) -31.0 E32-E26 S32-S29
      9  570  785 (S32E22 L=154)   557    125        1 ( 510/ 761- 621/ 825)  32.0 E26-E18 S34-S28
     10 1087  777 (S18W11 L=187)   242     98        0 (1046/ 758-1128/ 812)  59.0 W08-W12 S19-S14
     11 1150  671 (S22W18 L=194)   769    273        0 (1115/ 584-1230/ 746) -79.7 W15-W22 S26-S15
     12 1370  571 (S20W35 L=211)   229     69        0 (1340/ 553-1403/ 596)  63.4 W33-W36 S22-S18
     13  792  181 (S71W33 L=209)   805    138        2 ( 733/ 145- 850/ 225)  -1.8 W17-W49 S72-S68
  

    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