Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1162 1598 (N41W14 L=293)   266     74        0 (1129/1574-1194/1624) -38.7 W11-W16 N39-N43
      2 1490 1524 (N34W39 L=318)   276     63        1 (1462/1498-1513/1548) -76.0 W37-W41 N31-N35
      3 1043 1441 (N31W03 L=282)   247     66        0 (1019/1416-1062/1465) -76.0 W01-W04 N28-N32
      4 1771 1282 (N16W58 L=336)   613    101        1 (1721/1247-1806/1310) -29.7 W53-W61 N13-N17
      5 1522 1198 (N13W34 L=312)   594    142        2 (1461/1155-1569/1249) -49.4 W29-W36 N09-N16
      6  605 1044 (N06E27 L=252)   241    121        0 ( 554/1010- 646/1083) -33.7 E30-E23 N04-N08
      7  681  855 (S05E22 L=256)   473    169        0 ( 601/ 819- 743/ 883) -18.4 E27-E18 S07-S03
      8  277  838 (S07E55 L=224)   605     87        1 ( 231/ 821- 324/ 858) -12.5 E59-E49 S07-S05
      9  294  649 (S19E58 L=221)   677    147        1 ( 257/ 591- 327/ 710) -63.4 E60-E55 S22-S14
     10  726  611 (S21E22 L=257)   361    179        0 ( 687/ 551- 755/ 661) -82.9 E23-E19 S25-S17
     11 1070  620 (S22W02 L=280)   217     60        0 (1055/ 590-1086/ 650)  76.0 W00-W02 S23-S19
     12  609  600 (S22E30 L=248)   476    163        1 ( 562/ 570- 657/ 637) -15.9 E33-E26 S23-S19
     13  914  475 (S31E10 L=269)   405     93        0 ( 869/ 446- 960/ 508)  23.2 E13-E06 S33-S28
     14 1324  422 (S37W21 L=300)   879    159        0 (1290/ 353-1370/ 483)  74.7 W19-W23 S43-S32
  

    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