Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  915 1854 (N47E31 L=196)   960    171        2 ( 886/1811- 942/1905) -48.0 E35-E26 N43-N53
      2  555 1469 (N13E38 L=188)   401    162        1 ( 501/1417- 599/1553)  71.6 E40-E36 N09-N18
      3 1246 1485 (N25W05 L=232)   781    172        1 (1208/1399-1289/1547)  84.8 W03-W07 N19-N30
      4 1558 1373 (N24W28 L=254)  1206    205        2 (1500/1269-1617/1472) -48.0 W23-W33 N18-N30
      5 1816 1430 (N36W52 L=279)  1253    265        1 (1756/1397-1867/1453)  19.7 W45-W59 N33-N39
      6  522 1343 (N05E37 L=190)   420    125        1 ( 480/1293- 572/1409)  60.3 E38-E34 N01-N09
      7  591 1062 (S11E27 L=199)  1533    415        7 ( 493/ 889- 677/1256)  73.1 E31-E24 S22-N01
      8 1819 1116 (N15W52 L=278)  1477    334        1 (1775/ 927-1843/1251)  90.0 W50-W54 N03-N23
      9 1418 1133 (N07W21 L=248)   365    102        2 (1382/1090-1452/1194) -38.7 W18-W24 N04-N10
     10  208  981 (S20E57 L=169)  1758    319        3 ( 145/ 861- 265/1095)  53.7 E63-E51 S27-S12
     11  280  797 (S31E50 L=177)  1800    467        3 ( 174/ 693- 382/ 916)  35.5 E61-E40 S37-S22
     12 1484  726 (S15W34 L=261)  3351    826        5 (1091/ 658-1765/ 777)  20.3 W10-W58 S26-S08
     13  748  575 (S39E11 L=216)  2145    619        7 ( 532/ 499-1054/ 639)  26.0 E28-W10 S46-S29
  

    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