Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1384 1732 (N44W50 L=235)   890    124        2 (1320/1708-1441/1751) -29.1 W44-W55 N41-N46
      2  874 1631 (N48E00 L=185)  1617    426        3 ( 695/1568-1060/1673) -21.8 E17-W13 N39-N53
      3 1384 1588 (N34W39 L=224)  1726    363        3 (1211/1555-1532/1615) -17.7 W24-W50 N29-N37
      4  643 1512 (N43E22 L=163)   265     83        3 ( 611/1493- 690/1535) -23.2 E24-E17 N40-N45
      5 1521 1398 (N20W40 L=225)   485    174        1 (1487/1334-1558/1474)  84.3 W38-W42 N15-N25
      6  835 1457 (N36E06 L=179)   321     78        1 ( 798/1440- 883/1471) -18.4 E08-E02 N34-N37
      7  836 1253 (N23E09 L=177)   342    188        2 ( 743/1232- 914/1275)  -5.2 E14-E03 N21-N24
      8  626 1259 (N26E23 L=162)   239     73        1 ( 582/1246- 659/1272)  -9.5 E26-E20 N25-N26
      9  784 1044 (N11E14 L=171)  1017    472        2 ( 624/ 993- 980/1095)  -5.0 E24-E01 N08-N13
     10  214 1001 (N14E60 L=125)  1003    191        2 ( 193/ 896- 238/1076)  84.8 E63-E57 N07-N18
     11 1617  794 (S18W36 L=221)  2033    436        6 (1552/ 653-1692/ 982)  73.3 W30-W42 S26-S06
     12 1221  937 (S02W10 L=195)   235     61        1 (1190/ 919-1255/ 954) -14.0 W08-W12 S03-N00
     13  362  865 (N05E47 L=138)   457     72        1 ( 336/ 833- 395/ 904) -51.3 E48-E44 N02-N07
     14  881  815 (S04E12 L=173)  1087    503        4 ( 648/ 726-1044/ 868) -21.4 E25-E02 S10-N01
     15 1818  817 (S21W55 L=241)   414     56        0 (1795/ 796-1837/ 844)  90.0 W52-W58 S22-S19
     16 1835  741 (S27W59 L=245)   528     86        0 (1810/ 709-1860/ 780)  26.6 W56-W62 S28-S24
     17  800  689 (S11E19 L=166)   411    106        1 ( 758/ 663- 856/ 715)   0.0 E21-E15 S12-S09
     18  870  597 (S18E16 L=169)   483    253        1 ( 776/ 559- 936/ 676)  22.6 E22-E10 S19-S13
     19 1047  460 (S30E08 L=177)   555    117        1 (1012/ 413-1086/ 506)  45.0 E11-E04 S32-S26
     20 1006  162 (S57E26 L=159)   507     70        2 ( 974/ 148-1043/ 173)   5.7 E31-E21 S58-S54
  

    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