Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1028 1906 (N54E45 L= 85)   798     70        1 (1000/1875-1050/1936) -36.9 E52-E39 N49-N58
      2  508 1709 (N22E62 L= 68)  1575    148        4 ( 466/1673- 545/1774) -56.3 E68-E56 N18-N27
      3  519 1612 (N16E52 L= 78)  1310    305        2 ( 456/1510- 569/1673) -22.8 E62-E43 N10-N18
      4  682 1567 (N17E37 L= 92)   264     55        0 ( 661/1551- 711/1586)  33.7 E39-E35 N15-N18
      5  784 1534 (N17E29 L=100)   231     48        2 ( 764/1507- 799/1558) -63.4 E30-E27 N15-N19
      6  741 1491 (N14E30 L=100)   294     50        2 ( 723/1465- 766/1520) -76.0 E32-E28 N11-N15
      7  531  829 (S29E26 L=104)   228     40        0 ( 504/ 809- 556/ 845)   0.0 E27-E23 S30-S28
      8  956  679 (S26W06 L=136)   258    107        0 ( 908/ 660-1009/ 697)  45.0 W03-W08 S28-S23
      9 1709  652 (S05W56 L=186)   367     20        1 (1689/ 628-1728/ 670) -18.4 W53-W58 S05-S03
     10 1546  506 (S18W51 L=181)   306     37        1 (1519/ 490-1568/ 523)  33.7 W49-W53 S18-S16
     11 1103  453 (S35W25 L=155)   254     53        0 (1074/ 440-1135/ 468)  33.7 W23-W27 S36-S34
     12  667  431 (S52E06 L=124)   583     69        1 ( 635/ 403- 708/ 463)   0.0 E09-E01 S54-S50
     13 1495  427 (S24W53 L=183)   340     57        1 (1470/ 404-1523/ 453)  76.0 W51-W54 S25-S21
  

    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