Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  590 1468 (N45E18 L=255)   396     95        0 ( 571/1427- 608/1514)  59.0 E19-E15 N41-N47
      2 1756 1438 (N07W63 L=336)   413     64        0 (1736/1413-1778/1471) -76.0 W61-W64 N05-N09
      3 1794 1237 (S04W57 L=330)   414     93        2 (1759/1212-1821/1254) -26.6 W53-W59 S05-S02
      4 1404 1203 (N06W27 L=299)   270     99        1 (1351/1172-1439/1239)   8.1 W22-W29 N05-N07
      5  947 1144 (N16E01 L=272)   356     94        1 ( 914/1100- 981/1190)  38.7 E04-W01 N13-N17
      6 1125 1165 (N12W09 L=282)   650    242        0 (1010/1134-1248/1186) -15.9 W02-W16 N09-N14
      7  430  899 (N14E40 L=233)  2323    563        7 ( 238/ 830- 644/ 958) -22.5 E55-E26 N06-N19
      8 1667  917 (S17W36 L=309)   825    172        3 (1626/ 876-1731/ 956) -40.6 W32-W41 S20-S13
      9 1520  736 (S23W22 L=295)   743    173        1 (1474/ 644-1551/ 818)  48.4 W17-W25 S28-S18
     10 1021  667 (S13E10 L=263)   526    192        0 (1003/ 566-1058/ 746)  48.4 E13-E05 S18-S09
     11  921  695 (S09E14 L=259)   251     48        0 ( 892/ 675- 951/ 715)  14.0 E16-E12 S09-S08
     12  903  616 (S13E18 L=255)   246     83        0 ( 870/ 594- 954/ 642) -59.0 E19-E15 S15-S10
     13 1500  539 (S36W17 L=290)   401     59        2 (1472/ 517-1533/ 563) -11.3 W14-W19 S37-S33
     14 1040  433 (S28E16 L=257)   238     40        0 (1021/ 408-1064/ 456)  26.6 E18-E14 S29-S27
     15  531  339 (S22E55 L=218)  3641    378        6 ( 434/ 219- 618/ 453)  84.6 E59-E51 S33-S12
  

    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