Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  386 1618 (N20E63 L=336)   679     46        0 ( 362/1598- 411/1639)  36.9 E66-E60 N18-N21
      2  462 1491 (N13E49 L=350)  1731    409        3 ( 406/1389- 557/1608) -32.3 E58-E38 N08-N20
      3  291 1465 (N09E65 L=334)   478    142        1 ( 264/1432- 330/1489)  33.7 E67-E60 N06-N10
      4 1011 1409 (N20E10 L= 29)   703    166        0 ( 964/1342-1067/1474) -29.1 E14-E04 N16-N23
      5 1435 1336 (N25W19 L= 58)   398    118        0 (1399/1280-1466/1385) -39.8 W15-W21 N22-N27
      6  416 1201 (S05E43 L=357)  1114    199        3 ( 340/1145- 498/1242)  38.7 E47-E37 S08-N00
      7 1036 1212 (N09E03 L= 36)   298     54        2 (1007/1187-1064/1238) -26.6 E05-E01 N07-N10
      8 1763 1097 (N19W48 L= 87)  1168    298        2 (1710/ 958-1795/1188) -53.1 W42-W53 N11-N24
      9  662 1030 (S10E22 L= 17)   712    181        0 ( 578/ 990- 754/1070)   9.5 E27-E15 S11-S07
     10 1824  977 (N13W56 L= 95)   539    108        3 (1800/ 931-1849/1008) -26.6 W53-W60 N11-N15
     11 1298  787 (S10W21 L= 61)   356    148        2 (1232/ 768-1372/ 825)  20.6 W17-W25 S11-S06
     12 1134  599 (S25W17 L= 56)   420    100        1 (1076/ 583-1187/ 614)  15.9 W13-W20 S26-S23
     13  679  553 (S39E13 L= 27)   262     52        0 ( 651/ 537- 713/ 568)  11.3 E14-E09 S40-S38
  

    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