Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1518 1532 (N24W48 L= 64)  1051    296        0 (1397/1487-1640/1584) -34.5 W41-W57 N18-N29
      2 1269 1433 (N25W26 L= 42)   703    215        4 (1225/1339-1310/1523)  39.3 W19-W31 N20-N29
      3  898 1393 (N32W01 L= 17)   661    204        1 ( 828/1311- 953/1450) -76.0 E02-W03 N25-N37
      4 1824 1341 (N04W67 L= 83)   778     91        2 (1792/1304-1863/1380) -50.2 W64-W71 N00-N06
      5  973 1224 (N20W01 L= 17)   226     31        1 ( 948/1203- 996/1247) -45.0 W00-W02 N18-N21
      6  805 1147 (N19E10 L=  5)   369    130        1 ( 744/1107- 845/1171) -50.2 E14-E08 N15-N21
      7  679 1122 (N20E19 L=357)   253    127        0 ( 656/1085- 722/1170) -59.0 E20-E16 N17-N23
      8  477 1067 (N20E34 L=341)   232     69        0 ( 450/1042- 504/1097)  26.6 E36-E32 N19-N21
      9  235  975 (N18E58 L=318)   885    220        0 ( 221/ 873- 272/1063)  67.4 E60-E53 N11-N23
     10 1810  968 (S16W53 L= 68)   405     80        0 (1773/ 948-1845/ 993)  -6.3 W48-W57 S17-S15
     11  895  783 (S04E13 L=  3)   526    226        2 ( 832/ 692- 965/ 843)  35.0 E18-E07 S08-S01
     12 1688  785 (S24W39 L= 54)   319     69        0 (1674/ 746-1698/ 824)  63.4 W37-W39 S26-S21
     13 1096  501 (S26E08 L=  8)   819    246        1 ( 997/ 450-1213/ 570)   7.6 E15-W00 S27-S24
     14  787  497 (S20E27 L=348)   343    119        1 ( 729/ 475- 844/ 511)  -7.1 E31-E23 S21-S18
     15  667  226 (S38E57 L=319)   641     63        0 ( 652/ 188- 682/ 260)  30.3 E63-E50 S41-S34
  

    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