Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1702 1499 (N15W62 L=274)  1283    186        2 (1661/1405-1736/1572)  48.0 W56-W67 N09-N19
      2  334 1422 (N46E49 L=163)   490     88        2 ( 292/1405- 380/1438) -13.0 E55-E42 N44-N47
      3 1489 1250 (N08W33 L=246)   415     81        2 (1465/1211-1524/1296) -80.5 W31-W34 N05-N11
      4  454 1274 (N34E34 L=179)   281     95        0 ( 413/1240- 495/1295) -29.7 E37-E30 N31-N35
      5 1434 1046 (S01W24 L=237)  1342    401        1 (1324/ 873-1542/1148)  24.2 W13-W33 S08-N03
      6 1780  978 (S15W48 L=261)  1899    326        3 (1724/ 873-1880/1031)  17.4 W42-W60 S20-S11
      7 1164  785 (S09W03 L=215)   574    148        2 (1114/ 749-1229/ 835) -33.7 W00-W06 S11-S06
      8  991  759 (S07E08 L=204)   256     94        0 ( 959/ 723-1022/ 799) -78.7 E08-E06 S09-S04
      9  931  751 (S06E11 L=201)   366     86        1 ( 913/ 715- 954/ 796)  78.7 E12-E10 S08-S03
     10  414  754 (N04E45 L=168)   318     67        1 ( 383/ 738- 442/ 772)  11.3 E47-E42 N02-N04
     11 1079  636 (S17E06 L=207)  1080    378        6 ( 940/ 498-1182/ 738)  22.8 E17-W02 S22-S12
     12  981  689 (S11E10 L=202)   196     45        0 ( 962/ 662-1005/ 709)  33.7 E11-E08 S12-S09
     13 1330  682 (S20W10 L=223)   224     41        0 (1316/ 653-1348/ 706)  56.3 W08-W11 S21-S18
     14  538  631 (S06E39 L=173)   283     46        1 ( 519/ 602- 556/ 658)  76.0 E40-E37 S07-S03
     15  698  595 (S11E30 L=183)   255     38        0 ( 674/ 573- 720/ 614) -18.4 E31-E28 S12-S09
     16  648  555 (S12E34 L=178)   555    117        1 ( 617/ 509- 686/ 605) -81.9 E35-E32 S15-S08
     17 1464  561 (S32W17 L=230)   274     55        0 (1443/ 530-1483/ 596)  45.0 W15-W19 S33-S29
     18  546  520 (S13E43 L=169)  1331    189        5 ( 486/ 471- 620/ 576) -49.4 E48-E37 S16-S08
     19  538  438 (S18E48 L=165)  1659    303        5 ( 442/ 392- 649/ 481)   5.2 E59-E37 S21-S14
     20  835  416 (S25E28 L=185)   256     55        1 ( 812/ 392- 862/ 445)  21.8 E29-E24 S26-S23
     21  497  342 (S24E59 L=153)  6320    274       11 ( 399/ 224- 579/ 422)  48.6 E78-E49 S35-S18
     22  706  300 (S31E44 L=169)   832    128        2 ( 663/ 253- 765/ 347)  18.4 E51-E36 S34-S28
  

    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