Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1374 1646 (N46W08 L=127)  1284    210        0 (1349/1561-1400/1732) -68.2 W05-W11 N39-N54
      2  470 1644 (N21E57 L= 62)  1191    201        3 ( 419/1592- 504/1715) -77.5 E60-E53 N17-N26
      3  898 1667 (N33E27 L= 92)   330     28        0 ( 878/1646- 917/1689)  90.0 E28-E25 N31-N35
      4 1621 1593 (N51W33 L=152)   705    125        1 (1580/1560-1660/1618)  11.3 W28-W38 N48-N53
      5  964 1557 (N27E18 L=101)   253     57        0 ( 934/1544- 996/1575)  14.0 E19-E15 N26-N28
      6  645 1505 (N16E36 L= 83)   374    122        0 ( 617/1472- 683/1551) -23.2 E39-E32 N14-N18
      7  966 1371 (N16E12 L=107)   482    127        1 ( 950/1303- 985/1434) -54.5 E14-E08 N12-N19
      8  226 1210 (S09E61 L= 58)   828    128        1 ( 195/1175- 258/1253) -78.7 E63-E57 S11-S06
      9 1291 1217 (N14W11 L=130)   364     69        2 (1255/1190-1324/1247)  45.0 W09-W13 N12-N16
     10 1119 1054 (N01W05 L=124)   258     52        2 (1088/1035-1147/1081)  14.0 W02-W06 N00-N02
     11 1741 1000 (N13W47 L=166)   460     84        1 (1709/ 975-1772/1027)  38.7 W44-W49 N11-N15
     12  632  761 (S27E18 L=101)   317     76        0 ( 589/ 743- 667/ 782)  11.3 E21-E16 S28-S25
     13 1670  506 (S16W60 L=179)   894    151        0 (1629/ 465-1698/ 537) -63.4 W55-W63 S18-S14
     14 1342  269 (S40W50 L=169)  1076    258        0 (1257/ 256-1442/ 286)  14.9 W42-W57 S42-S37
  

    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