Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1449 1728 (N45W54 L=219)   473     55        1 (1426/1695-1475/1748)  53.1 W49-W58 N42-N46
      2  560 1681 (N55E40 L=126)   348     30        0 ( 547/1655- 574/1704) -63.4 E42-E37 N52-N57
      3  477 1350 (N31E37 L=129)  1439    303        6 ( 361/1319- 638/1389)   4.8 E47-E23 N28-N32
      4 1752 1341 (N15W58 L=224)   361     66        0 (1735/1306-1769/1371) -90.0 W56-W59 N12-N16
      5  183 1089 (N15E64 L=102)   521     49        1 ( 165/1067- 208/1117) -18.4 E67-E60 N13-N16
      6 1210 1012 (N03W11 L=177)   233     87        0 (1193/ 964-1232/1058)  68.2 W09-W12 N00-N05
      7  735  983 (N06E18 L=148)   430    124        1 ( 704/ 927- 760/1048) -76.0 E19-E16 N02-N10
      8 1095  580 (S23E00 L=166)   883    161        3 (1039/ 516-1144/ 646)  66.8 E04-W03 S27-S18
      9 1278  461 (S34W11 L=177)  2987    575        5 (1095/ 364-1427/ 632)  24.4 E01-W22 S40-S23
     10  561  592 (S17E36 L=130)   660    115        1 ( 526/ 542- 590/ 631) -71.6 E38-E33 S20-S14
     11  654  445 (S28E34 L=132)   545     83        1 ( 621/ 425- 698/ 479) -38.7 E36-E30 S29-S25
     12  489  390 (S31E52 L=114)   490     82        0 ( 467/ 353- 513/ 424)  33.7 E57-E47 S34-S28
     13 1514  317 (S52W39 L=204)   639     78        0 (1478/ 301-1562/ 332)  -5.2 W32-W45 S53-S49
     14 1360  254 (S55W22 L=188)  1098    109        1 (1317/ 232-1417/ 283) -21.0 W16-W29 S57-S50
     15 1029  173 (S58E16 L=150)   427     66        0 ( 994/ 158-1066/ 191)  12.5 E20-E11 S59-S55
  

    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