Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  953 1549 (N40W08 L=355)  1742    298        7 ( 847/1502-1083/1602) -36.3 W00-W16 N34-N46
      2 1348 1427 (N23W30 L= 17)   394    137        0 (1329/1370-1388/1472)  39.8 W28-W34 N19-N25
      3  334 1303 (N36E48 L=299)  1071    188        2 ( 248/1258- 416/1336) -13.4 E59-E38 N32-N38
      4 1515 1303 (N12W37 L= 24)   324     59        0 (1489/1278-1542/1329)  11.3 W34-W39 N11-N13
      5  551 1207 (N26E27 L=319)   646    131        3 ( 479/1173- 612/1233) -20.0 E33-E22 N23-N28
      6 1614  886 (S14W34 L= 21)  1334    396        5 (1546/ 766-1686/1061)  43.0 W27-W42 S20-S05
      7  475 1025 (N17E35 L=311)   317    115        0 ( 457/ 979- 517/1056)  31.0 E36-E31 N14-N18
      8 1867  996 (S15W60 L= 47)   466     71        2 (1846/ 965-1886/1036)  31.0 W57-W63 S17-S13
      9  296  913 (N12E52 L=295)   367     75        1 ( 273/ 878- 324/ 946) -59.0 E54-E49 N09-N14
     10  905  657 (S12E15 L=332)   333    146        0 ( 848/ 621- 965/ 700)  20.6 E18-E10 S13-S10
     11  686  631 (S10E29 L=318)   277     21        0 ( 660/ 613- 709/ 648) -33.7 E30-E27 S11-S08
     12 1566  604 (S31W28 L= 15)   290    100        0 (1516/ 587-1608/ 621) -20.6 W23-W31 S33-S29
     13  510  326 (S28E60 L=287)   496     56        1 ( 486/ 315- 549/ 344) -36.9 E63-E55 S29-S26
  

    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