Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  972 1795 (N57W30 L= 40)   440     58        1 ( 946/1772- 998/1816) -90.0 W26-W33 N54-N59
      2 1572 1678 (N28W66 L= 75)   522     74        1 (1550/1650-1601/1698) -36.9 W62-W69 N26-N29
      3 1459 1542 (N24W45 L= 54)   688    140        4 (1409/1497-1514/1598) -66.8 W40-W48 N21-N28
      4 1320 1349 (N18W26 L= 36)   510     90        0 (1273/1324-1373/1374) -45.0 W23-W29 N15-N20
      5 1106 1222 (N16W10 L= 19)   722    230        5 (1042/1153-1168/1278)  11.3 W04-W14 N13-N19
      6  569 1211 (N28E25 L=345)   508    136        4 ( 507/1177- 622/1240) -29.1 E29-E20 N25-N31
      7  691 1175 (N23E17 L=353)   235     52        1 ( 670/1142- 715/1203) -76.0 E17-E15 N21-N25
      8 1387 1060 (N00W22 L= 31)  1261    264        4 (1328/ 944-1443/1188)  39.8 W16-W28 S05-N05
      9 1520  804 (S18W24 L= 34)   307     69        0 (1488/ 786-1557/ 823) -45.0 W22-W27 S20-S16
     10 1689  611 (S37W37 L= 47)   980    108        2 (1642/ 564-1732/ 652)  45.0 W32-W41 S40-S34
     11 1409  595 (S28W13 L= 23)   685    204        0 (1336/ 565-1498/ 647)  -4.8 W08-W20 S30-S25
     12 1585  506 (S41W26 L= 36)   798    130        2 (1528/ 472-1641/ 538)  -9.5 W20-W32 S43-S39
     13 1451  422 (S43W13 L= 23)   500     88        0 (1420/ 402-1484/ 449) -33.7 W10-W16 S45-S39
     14  810  289 (S34E38 L=332)   697    102        1 ( 785/ 254- 850/ 328) -90.0 E40-E35 S36-S30
     15  502  289 (S28E67 L=302)  1606    109        3 ( 455/ 255- 542/ 324) -26.6 E77-E62 S30-S24
  

    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