Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1291 1789 (N41W53 L=258)   560     93        0 (1254/1746-1320/1826)   7.6 W45-W60 N39-N42
      2 1707 1363 (N04W53 L=258)   828    168        1 (1633/1307-1760/1409) -53.1 W48-W56 N00-N08
      3 1607 1330 (N06W44 L=249)   245     53        0 (1587/1304-1628/1355)  11.3 W41-W46 N05-N07
      4 1560 1154 (S01W34 L=240)   222     70        0 (1539/1128-1572/1191)  26.6 W32-W36 S02-N00
      5 1167  928 (S02W05 L=211)   667    208        1 (1134/ 869-1234/1022) -84.3 W03-W07 S07-N03
      6  193  899 (N18E63 L=143)   416     41        1 ( 170/ 877- 215/ 923) -56.3 E65-E59 N16-N19
      7  641  831 (N06E27 L=179)   243     81        1 ( 603/ 816- 690/ 850) -18.4 E29-E23 N04-N06
      8  831  573 (S14E24 L=182)  1079    280        5 ( 714/ 504- 949/ 632) -33.7 E29-E16 S17-S08
      9 1420  528 (S34W10 L=216)  1186    236        0 (1340/ 477-1508/ 603)  11.3 W03-W18 S36-S31
     10 1071  459 (S27E14 L=191)  1155    227        3 (1007/ 369-1138/ 555)  32.7 E20-E06 S31-S22
     11  886  488 (S20E24 L=182)   528    113        0 ( 831/ 422- 933/ 551)  24.4 E29-E18 S23-S17
     12  381  449 (S11E62 L=143)  1647    183        2 ( 346/ 364- 429/ 536)  56.3 E67-E58 S17-S05
     13  689  475 (S16E36 L=169)   434    115        1 ( 638/ 454- 738/ 498) -26.6 E39-E33 S18-S13
     14 1209  399 (S36E08 L=197)   709    146        1 (1143/ 362-1266/ 454)   0.0 E13-E02 S37-S32
     15  594  342 (S22E51 L=154)  1658    274        2 ( 545/ 228- 672/ 430)  31.8 E66-E41 S31-S17
  

    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