Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1545 1540 (N42W30 L=298)   521    150        0 (1473/1501-1608/1572)  -8.7 W23-W36 N40-N43
      2  292 1503 (N15E67 L=200)   488     83        2 ( 259/1466- 320/1532)  59.0 E69-E64 N12-N17
      3  447 1367 (N10E44 L=223)  1082    254        3 ( 432/1247- 464/1495) -61.9 E49-E40 N02-N17
      4  861 1357 (N16E16 L=252)   744    228        1 ( 827/1269- 894/1463) -63.4 E19-E13 N10-N22
      5 1202 1397 (N25W04 L=272)   675    181        3 (1135/1323-1245/1453) -45.0 W00-W08 N20-N27
      6  337 1418 (N11E56 L=211)   357     59        1 ( 327/1383- 348/1450) -63.4 E58-E54 N08-N12
      7  656 1342 (N12E29 L=239)   333     90        2 ( 627/1298- 684/1383) -38.7 E31-E25 N09-N13
      8  768 1330 (N13E21 L=246)   328     79        1 ( 717/1311- 807/1345)   0.0 E24-E18 N11-N13
      9  814 1231 (N08E16 L=251)   304     98        1 ( 772/1194- 854/1257)  45.0 E17-E13 N04-N09
     10  651  951 (S11E21 L=246)  1093    308        4 ( 590/ 824- 722/1085)  74.5 E24-E18 S20-S02
     11  269  805 (S27E52 L=215)   481     83        2 ( 224/ 785- 308/ 828)  16.7 E58-E47 S28-S24
     12 1104  777 (S14W09 L=277)   429    219        0 (1006/ 717-1174/ 818)  -9.5 W02-W14 S16-S12
     13  880  729 (S21E04 L=264)   287    110        0 ( 829/ 715- 937/ 741)  18.4 E06-W00 S22-S19
     14  922  541 (S32W03 L=270)   276    111        0 ( 871/ 528- 979/ 553)  26.6 E01-W06 S33-S30
  

    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