Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1438 1601 (N25W46 L= 48)  1243    213        1 (1327/1554-1527/1631) -45.0 W39-W50 N20-N30
      2 1130 1470 (N27W20 L= 22)   379     81        0 (1092/1450-1173/1492) -45.0 W17-W21 N24-N28
      3 1539 1409 (N12W43 L= 45)   617    117        0 (1504/1361-1579/1463)  80.5 W41-W44 N08-N14
      4 1346 1423 (N18W31 L= 33)   290     65        0 (1310/1409-1381/1436) -36.9 W28-W32 N16-N19
      5 1346 1292 (N11W26 L= 28)   288    120        0 (1318/1258-1387/1343) -90.0 W24-W27 N08-N14
      6  906 1292 (N23W00 L=  2)   774    213        1 ( 806/1244-1005/1327) -51.3 E04-W05 N17-N27
      7 1116 1229 (N14W11 L= 13)   215     75        0 (1082/1211-1147/1255)   0.0 W08-W13 N12-N14
      8 1736 1214 (S05W50 L= 52)   526     66        1 (1698/1188-1767/1244)   0.0 W46-W53 S05-S03
      9 1443  964 (S09W22 L= 24)   505    157        0 (1372/ 935-1508/1010)   0.0 W17-W27 S10-S07
     10 1707  640 (S38W38 L= 40)  2317    278        2 (1645/ 522-1749/ 773)  63.4 W31-W42 S45-S29
     11  726  605 (S11E29 L=333)   520    175        0 ( 683/ 537- 778/ 647)  29.1 E33-E24 S14-S09
     12 1245  512 (S31E01 L=  1)  1277    249        3 (1187/ 402-1280/ 632)  49.8 E08-W03 S37-S23
     13 1472  503 (S39W15 L= 17)  1127    229        2 (1368/ 458-1577/ 561)  -6.0 W05-W24 S41-S36
     14  957  280 (S39E30 L=332)   478     41        0 ( 933/ 259- 983/ 308) -90.0 E32-E27 S40-S35
  

    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