Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  528 1638 (N21E49 L=219)   514    121        3 ( 498/1602- 553/1690) -56.3 E53-E46 N18-N24
      2  476 1586 (N16E51 L=218)   483     67        1 ( 451/1562- 502/1616) -23.2 E54-E47 N14-N18
      3 1343 1530 (N31W09 L=277)   505    151        1 (1305/1465-1382/1601)  84.8 W07-W10 N25-N36
      4 1508 1461 (N31W22 L=290)  1267    376        0 (1404/1308-1603/1592) -37.9 W12-W30 N23-N37
      5  606 1531 (N15E38 L=231)   426     93        2 ( 569/1499- 649/1562)  45.0 E40-E35 N12-N17
      6  434 1520 (N12E51 L=218)   353     67        1 ( 402/1494- 460/1545)  45.0 E52-E49 N09-N13
      7  938 1443 (N16E14 L=254)   690    151        1 ( 875/1416-1017/1486)   0.0 E18-E08 N13-N17
      8 1581 1082 (N09W32 L=301)  1441    284        2 (1536/ 945-1635/1194) -82.4 W28-W35 N01-N16
      9 1700 1112 (N14W41 L=309)   347    107        0 (1685/1066-1717/1161) -68.2 W39-W41 N11-N16
     10 1817  945 (N08W55 L=323)  1285    225        1 (1737/ 900-1870/1011)  45.0 W46-W59 N04-N13
     11 1634  909 (N01W40 L=308)   306     62        1 (1598/ 883-1668/ 933)   0.0 W36-W43 N00-N01
     12 1449  763 (S12W31 L=300)   289    109        0 (1402/ 740-1501/ 780)  26.6 W28-W35 S14-S10
     13 1323  698 (S19W26 L=294)   198     54        0 (1287/ 686-1351/ 707)  14.0 W23-W27 S19-S17
     14 1589  596 (S17W48 L=317)   800    119        1 (1534/ 560-1640/ 637)  60.3 W44-W51 S20-S13
     15 1733  597 (S13W61 L=329)   538     80        0 (1710/ 556-1755/ 633) -78.7 W58-W62 S15-S10
     16 1082  565 (S32W15 L=284)   257     80        0 (1027/ 554-1117/ 577)  18.4 W11-W17 S33-S30
     17 1729  519 (S17W66 L=335)  1177    139        3 (1655/ 487-1795/ 563)  36.0 W60-W72 S20-S12
     18 1383  454 (S31W41 L=309)   775    154        0 (1323/ 420-1448/ 503)  63.4 W37-W43 S34-S26
     19 1257  415 (S37W34 L=303)   300     35        0 (1237/ 394-1280/ 440) -26.6 W32-W36 S38-S35
     20 1470  296 (S37W62 L=330)   527     44        0 (1441/ 281-1502/ 316)   8.1 W57-W66 S38-S36
  

    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