Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  673 1634 (N26E35 L=283)   327     25        1 ( 658/1606- 690/1661) -63.4 E36-E32 N24-N28
      2  394 1482 (N13E50 L=268)   437     85        0 ( 358/1446- 432/1507)  31.0 E52-E47 N10-N15
      3  404 1431 (N10E47 L=271)   295     77        2 ( 377/1400- 427/1471)  78.7 E48-E46 N07-N12
      4  214 1393 (N07E66 L=252)  1456    149        4 ( 174/1327- 249/1464)  90.0 E71-E61 N02-N11
      5  330 1349 (N04E51 L=267)   434    138        1 ( 291/1326- 379/1390)   8.1 E55-E47 N03-N06
      6 1315 1353 (N18W12 L=330)   419    177        1 (1236/1336-1409/1374)  10.3 W07-W18 N16-N19
      7  477 1303 (N03E38 L=280)   664     79        2 ( 440/1257- 510/1345) -51.3 E40-E35 N00-N05
      8 1649 1240 (N17W36 L=354)  2308    343       11 (1521/1134-1735/1342) -22.4 W26-W44 N10-N22
      9  356 1281 (N00E47 L=271)   382    118        1 ( 308/1252- 422/1304)  -5.7 E51-E41 N00-N01
     10 1600 1198 (N14W33 L=351)   339     76        1 (1573/1166-1624/1229) -56.3 W31-W35 N11-N15
     11 1418 1171 (N08W21 L=339)   362    110        1 (1376/1130-1462/1212) -26.6 W18-W24 N06-N10
     12 1342 1089 (N02W17 L=335)   288     92        2 (1309/1066-1382/1128) -14.0 W15-W19 N01-N04
     13 1654 1035 (N05W39 L=357)   269    106        0 (1617/1018-1698/1057)   9.5 W36-W42 N03-N06
     14  438  884 (S22E36 L=282)   239     77        0 ( 422/ 849- 459/ 918)  59.0 E37-E34 S24-S19
     15 1404  880 (S08W25 L=343)   363    111        0 (1348/ 859-1454/ 897)  23.2 W21-W28 S10-S07
     16 1832  842 (S02W59 L= 17)   478     52        0 (1798/ 822-1863/ 862)  31.0 W55-W62 S03-N00
     17  610  796 (S25E23 L=295)  1274    392        3 ( 465/ 727- 807/ 842)  13.5 E34-E09 S31-S21
     18 1374  602 (S25W30 L=348)  3347    798        5 (1132/ 521-1722/ 746)   3.6 W12-W60 S29-S19
     19  608  634 (S36E23 L=295)   309     88        1 ( 565/ 619- 658/ 649)  14.0 E26-E18 S36-S34
     20  479  525 (S45E36 L=282)   532    122        0 ( 422/ 506- 537/ 547)  -5.2 E41-E30 S45-S43
     21  671  502 (S44E18 L=300)   511     91        2 ( 623/ 482- 721/ 527)  -7.1 E21-E13 S45-S42
     22  845  477 (S43E03 L=315)   233     64        1 ( 817/ 457- 884/ 498) -21.8 E05-W00 S43-S41
     23 1049  422 (S43W14 L=332)   253     64        0 (1022/ 409-1092/ 442)  -9.5 W11-W17 S43-S41
  

    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