Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1102 1869 (N66E15 L=  6)   576     49        1 (1078/1848-1127/1889)  63.4 E18-E10 N62-N69
      2 1627 1594 (N47W49 L= 70)  1581    168        3 (1553/1562-1684/1622)   9.9 W38-W61 N44-N50
      3 1296 1485 (N34W13 L= 34)  1379    383        3 (1231/1350-1381/1567) -57.3 W07-W19 N25-N39
      4  398 1470 (N20E53 L=327)   499     72        1 ( 363/1453- 437/1491)  -6.3 E58-E49 N18-N20
      5 1179 1312 (N20W06 L= 27)   348    108        1 (1143/1287-1229/1352) -26.6 W03-W09 N18-N22
      6 1324 1036 (N05W18 L= 39)   324    137        0 (1299/ 975-1345/1096)  81.9 W17-W19 N01-N08
      7 1304  826 (S08W20 L= 41)   266    111        0 (1287/ 780-1317/ 881) -80.5 W18-W21 S10-S04
      8 1804  771 (S05W61 L= 82)   741    148        0 (1778/ 700-1828/ 842) -83.7 W60-W63 S09-N00
      9  329  762 (S25E48 L=333)  1177    141        2 ( 292/ 700- 357/ 838)  68.2 E52-E44 S29-S19
     10 1020  726 (S18W04 L= 24)   230     52        0 ( 999/ 701-1050/ 745)  45.0 W02-W05 S19-S16
     11  914  581 (S29E01 L= 19)   778    209        1 ( 828/ 553- 994/ 619)  21.8 E07-W03 S31-S24
     12  418  566 (S37E43 L=338)   811    112        1 ( 380/ 515- 464/ 599) -63.4 E46-E37 S41-S35
     13 1394  496 (S28W35 L= 55)  3190    746        2 (1073/ 429-1704/ 571)  18.1 W12-W61 S36-S19
  

    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