Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  271 1305 (N41E53 L=325)  1083    220        1 ( 213/1245- 347/1392) -28.4 E67-E42 N35-N48
      2  644 1225 (N28E18 L=359)   301     98        1 ( 593/1211- 696/1238) -23.2 E21-E14 N25-N29
      3 1148 1094 (N08W09 L= 26)   326     83        2 (1121/1054-1178/1130)  31.0 W06-W11 N06-N09
      4  195 1015 (N24E61 L=317)  2533    320        3 ( 109/ 889- 305/1106) -28.3 E77-E50 N15-N30
      5 1306  842 (S10W11 L= 29)   283    125        0 (1283/ 782-1333/ 885)  45.0 W08-W13 S13-S08
      6 1126  773 (S09E01 L= 17)   213    106        0 (1088/ 740-1169/ 796)  14.0 E03-W01 S10-S08
      7 1097  701 (S13E04 L= 14)   205     50        1 (1070/ 683-1123/ 725) -18.4 E05-E02 S13-S11
      8  753  616 (S09E26 L=351)   645    215        0 ( 702/ 531- 800/ 709)  33.7 E32-E20 S13-S04
      9 1096  635 (S17E06 L= 12)   325    144        1 (1040/ 609-1138/ 681)   8.1 E09-E02 S18-S14
     10 1032  606 (S17E10 L=  7)   209     63        0 (1009/ 591-1061/ 631) -45.0 E11-E08 S18-S14
     11  969  503 (S22E18 L=  0)   224    111        0 ( 922/ 482- 999/ 546)  18.4 E20-E14 S22-S19
     12  447  475 (S12E54 L=324)  1885    253        9 ( 350/ 431- 534/ 540) -31.6 E63-E47 S16-S07
     13  576  455 (S15E45 L=333)   461    120        0 ( 554/ 402- 595/ 516)  33.7 E49-E40 S18-S11
     14 1424  446 (S40W10 L= 28)   286     41        2 (1404/ 422-1444/ 467) -76.0 W08-W11 S41-S37
     15  627  309 (S26E51 L=327)   912    185        3 ( 585/ 241- 672/ 389)  63.4 E54-E46 S32-S20
     16  699  339 (S26E43 L=335)   429     74        2 ( 667/ 309- 732/ 365)  23.2 E46-E39 S27-S24
     17 1262  315 (S45E07 L= 11)   372     51        2 (1232/ 294-1295/ 336) -11.3 E09-E03 S46-S42
     18  750  163 (S42E59 L=319)   772     64        1 ( 730/ 131- 772/ 192)  32.5 E66-E52 S45-S38
     19 1050  130 (S55E40 L=338)   932    104        2 (1010/ 111-1097/ 158)  82.9 E43-E34 S58-S50
  

    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