Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1330 1772 (N55W36 L=133)   535     60        1 (1301/1750-1359/1793)  15.3 W31-W42 N53-N57
      2 1223 1773 (N56W24 L=120)   399     79        0 (1186/1756-1263/1785)  -7.1 W19-W28 N54-N57
      3  869 1440 (N30E10 L= 86)  1148    286        3 ( 771/1360- 985/1521) -34.5 E18-E02 N24-N35
      4 1627 1458 (N29W48 L=145)  1705    229        3 (1513/1429-1737/1482)   0.0 W37-W62 N27-N30
      5  238 1341 (N22E64 L= 33)  1189    122        8 ( 203/1295- 269/1402) -49.4 E69-E58 N19-N26
      6  212 1047 (N04E60 L= 37)   464     86        0 ( 176/1025- 254/1065)  18.4 E64-E55 N02-N05
      7  559  934 (S02E30 L= 67)   258     69        0 ( 547/ 896- 572/ 972) -90.0 E30-E28 S04-N00
      8 1687  862 (S08W45 L=142)   301     77        0 (1668/ 824-1704/ 890) -63.4 W43-W46 S10-S06
      9  814  705 (S16E14 L= 83)   437    141        0 ( 767/ 654- 852/ 761)  54.5 E17-E11 S19-S12
     10 1650  698 (S18W44 L=141)   327     52        1 (1631/ 674-1680/ 717)  26.6 W42-W46 S19-S16
     11 1281  442 (S35W19 L=115)   285     69        0 (1263/ 401-1296/ 477)  90.0 W17-W19 S38-S32
     12 1197  387 (S39W13 L=109)   730    156        2 (1135/ 349-1250/ 436)  32.0 W08-W17 S42-S35
     13 1270  198 (S59W28 L=125)   635     61        1 (1232/ 178-1299/ 221) -15.3 W22-W33 S61-S55
  

    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