Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1543 1645 (N30W51 L= 92)  1306    157        1 (1515/1567-1575/1721)  54.0 W47-W56 N24-N35
      2 1277 1589 (N31W27 L= 68)   697    155        0 (1192/1572-1352/1603) -20.0 W20-W31 N28-N32
      3 1678 1523 (N20W56 L= 97)   375     73        1 (1645/1497-1716/1542) -31.0 W52-W58 N18-N21
      4 1789 1476 (N16W65 L=107)  1057    128        2 (1747/1405-1830/1521)  45.0 W60-W72 N11-N18
      5 1855 1363 (N08W68 L=109)   709     55        0 (1834/1324-1873/1397)  26.6 W63-W72 N06-N10
      6 1360 1325 (N13W25 L= 66)   198     70        0 (1328/1312-1398/1337) -26.6 W22-W27 N11-N13
      7  759 1174 (N12E14 L= 28)   525    245        0 ( 690/1095- 851/1254) -54.0 E17-E09 N06-N18
      8 1302 1056 (S02W17 L= 58)   773    267        1 (1244/ 954-1395/1117)  31.0 W12-W22 S07-N00
      9 1694 1079 (S06W44 L= 85)   274     33        0 (1667/1052-1710/1102) -90.0 W41-W45 S07-S04
     10 1448  930 (S11W24 L= 66)   694    249        0 (1418/ 842-1471/1044)  74.7 W21-W25 S16-S04
     11  831  920 (S03E13 L= 29)  1672    413        3 ( 699/ 742- 924/1022) -62.1 E19-E09 S14-N03
     12 1639  974 (S11W38 L= 80)   620    155        2 (1568/ 927-1695/1011) -33.7 W33-W42 S14-S08
     13  720  830 (S07E21 L= 21)   390    139        2 ( 672/ 781- 753/ 882)  33.7 E24-E18 S09-S04
     14  451  771 (S07E40 L=  2)   532    208        1 ( 391/ 695- 510/ 855)  33.7 E46-E33 S10-S02
     15  763  750 (S12E20 L= 22)   189     31        2 ( 744/ 727- 783/ 774) -90.0 E20-E18 S13-S10
     16  174  704 (S07E70 L=332)   737     81        3 ( 151/ 673- 196/ 749)  26.6 E76-E65 S08-S04
     17  942  514 (S30E14 L= 28)  2449    471        6 ( 839/ 348-1002/ 738)  54.7 E26-E07 S39-S15
     18  334  680 (S11E52 L=349)   735    141        1 ( 295/ 640- 373/ 724) -71.6 E55-E47 S13-S07
     19 1354  659 (S26W16 L= 57)  1123    255        2 (1241/ 609-1465/ 722)  10.0 W07-W24 S28-S23
     20  452  656 (S14E43 L=358)   559    103        3 ( 412/ 621- 520/ 694) -20.6 E45-E37 S15-S11
     21  413  599 (S16E48 L=353)   551     91        1 ( 370/ 579- 448/ 623) -18.4 E51-E45 S18-S14
     22  413  496 (S23E53 L=348)  3054    342        6 ( 291/ 409- 544/ 612)  10.8 E79-E37 S27-S17
     23  700  293 (S41E42 L=360)   661     73        2 ( 661/ 272- 741/ 316)   0.0 E46-E37 S43-S39
  

    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