Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1245 1611 (N40E00 L=218)  1103    209        2 (1187/1527-1288/1682) -39.3 E07-W04 N34-N44
      2  683 1485 (N17E33 L=185)  1174    469        3 ( 543/1367- 837/1635) -17.4 E51-E19 N12-N24
      3 1159 1464 (N27E02 L=216)   868    402        0 (1058/1294-1212/1603) -43.3 E13-W05 N17-N34
      4  732 1558 (N23E33 L=185)   277     88        0 ( 704/1525- 760/1599) -29.7 E36-E29 N21-N25
      5 1072 1368 (N19E05 L=213)   298    124        0 (1049/1313-1089/1424) -82.9 E06-E03 N14-N22
      6 1523 1282 (N25W26 L=244)   661    222        1 (1495/1199-1581/1335) -63.4 W23-W30 N19-N28
      7  147 1164 (S12E73 L=145)  2471    228        7 ( 117/1078- 175/1268) -50.7 E81-E65 S16-S05
      8  214 1166 (S11E62 L=156)  1900    191        5 ( 165/1108- 265/1216) -12.1 E69-E55 S13-S07
      9 1774 1065 (N18W50 L=268)   805    165        0 (1756/ 989-1791/1142) -77.5 W47-W52 N12-N22
     10  220 1012 (S20E58 L=160)  1050    143        1 ( 180/ 948- 246/1079)  56.3 E63-E55 S24-S15
     11  747  969 (S12E15 L=203)   420    136        2 ( 699/ 939- 790/1007)  -9.5 E18-E12 S13-S09
     12 1161  925 (S05W10 L=228)   407    181        0 (1086/ 866-1208/ 971) -18.4 W05-W14 S07-S03
     13  895  768 (S20E02 L=216)   559    237        1 ( 785/ 734- 991/ 793)  28.6 E08-W03 S24-S16
     14  313  706 (S38E48 L=170)  3138    351        7 ( 164/ 665- 452/ 759)   6.3 E87-E33 S43-S32
     15 1778  561 (S11W72 L=290)   631     44        0 (1742/ 544-1805/ 577)  11.3 W66-W77 S12-S09
     16  681  406 (S51E10 L=208)   580    120        0 ( 632/ 383- 739/ 438)   0.0 E15-E03 S52-S49
     17 1618  403 (S24W66 L=284)   581     63        0 (1597/ 384-1648/ 434) -10.3 W60-W71 S25-S22
     18 1565  369 (S28W64 L=282)   516     45        1 (1542/ 349-1592/ 389)  -7.1 W59-W67 S28-S26
     19 1491  338 (S32W59 L=277)   677     45        1 (1470/ 311-1518/ 370) -20.6 W54-W63 S33-S30
  

    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