Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  539 1584 (N42E39 L=325)   365     51        1 ( 518/1563- 560/1603)  56.3 E41-E37 N40-N43
      2  333 1483 (N34E55 L=310)  1521    332        5 ( 294/1402- 383/1552) -37.6 E62-E48 N28-N38
      3 1472 1509 (N33W36 L= 41)   347     86        0 (1430/1486-1518/1533) -26.6 W32-W39 N31-N34
      4  904 1454 (N32E07 L=358)   357     85        1 ( 855/1436- 953/1469) -15.9 E10-E03 N30-N33
      5 1291 1405 (N27W20 L= 25)   475    164        0 (1220/1378-1372/1425) -15.3 W14-W25 N24-N28
      6  705 1273 (N20E20 L=344)  2168    591        5 ( 497/1064- 856/1410) -36.5 E37-E10 N07-N29
      7 1151 1381 (N26W10 L= 15)   292     74        1 (1112/1353-1184/1406)  31.0 W07-W12 N24-N27
      8  256 1185 (N15E56 L=309)  1592    379        6 ( 220/1057- 299/1313) -63.4 E61-E51 N06-N22
      9 1516 1223 (N14W33 L= 38)   397    130        1 (1466/1186-1573/1268) -35.5 W30-W37 N11-N17
     10  638  616 (S21E28 L=337)  1483    533        2 ( 459/ 493- 803/ 764)  31.0 E44-E14 S29-S11
     11 1390  742 (S15W23 L= 28)   235     45        1 (1361/ 726-1416/ 761)  14.0 W20-W24 S15-S13
     12 1754  631 (S25W55 L= 60)   445     83        1 (1728/ 615-1778/ 649) -26.6 W51-W57 S26-S23
     13  953  531 (S27E07 L=358)   586    125        1 ( 898/ 504-1027/ 565)  24.0 E10-E01 S29-S25
     14  843  453 (S33E15 L=349)   404    105        1 ( 821/ 401- 870/ 492)  66.8 E17-E13 S36-S29
  

    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