Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  511 1394 (N33E35 L=320)   911    255        1 ( 424/1308- 593/1444) -30.5 E44-E27 N26-N36
      2 1155 1247 (N18W10 L=  6)   203     52        0 (1141/1215-1166/1279) -90.0 W09-W11 N15-N19
      3  179 1219 (N22E68 L=287)   732     94        3 ( 163/1168- 191/1263) -63.4 E72-E65 N19-N25
      4 1729 1057 (S01W48 L= 44)   975    200        0 (1711/ 966-1755/1147)  63.4 W46-W52 S06-N04
      5 1692  862 (S13W44 L= 39)   375     87        0 (1655/ 835-1725/ 901)  26.6 W40-W46 S13-S10
      6  674  868 (S01E23 L=332)   247    106        0 ( 629/ 834- 715/ 896) -31.0 E25-E20 S03-N00
      7 1839  820 (S18W60 L= 55)   821    156        0 (1806/ 781-1867/ 860)  51.3 W56-W64 S20-S15
      8  636  751 (S08E27 L=328)   427     65        1 ( 602/ 725- 676/ 773)  11.3 E29-E24 S09-S06
      9 1260  678 (S19W12 L=  7)   389    161        0 (1234/ 631-1292/ 727) -63.4 W09-W13 S21-S15
     10  553  679 (S12E34 L=321)   502    117        2 ( 527/ 628- 579/ 721)  71.6 E36-E31 S15-S09
     11  733  651 (S15E22 L=333)   658    204        0 ( 655/ 618- 769/ 721) -15.9 E27-E19 S17-S10
     12  219  660 (S13E69 L=286)   647     67        2 ( 193/ 627- 239/ 689) -63.4 E73-E66 S14-S10
     13 1418  559 (S29W23 L= 18)  1585    402        2 (1288/ 462-1589/ 670)  23.5 W12-W35 S34-S23
     14  943  642 (S17E09 L=346)   326     79        1 ( 902/ 627- 989/ 657)   0.0 E11-E05 S18-S16
     15 1741  630 (S29W52 L= 47)   585     59        3 (1701/ 613-1779/ 652) -11.3 W47-W57 S30-S27
     16 1001  552 (S24E07 L=349)   436    120        0 ( 975/ 505-1043/ 601)  50.2 E08-E03 S27-S21
     17 1488  470 (S37W30 L= 25)  1107    261        1 (1370/ 430-1590/ 532)   9.0 W19-W38 S38-S33
     18 1014  369 (S38E09 L=346)   378     74        1 ( 981/ 351-1059/ 386)   0.0 E11-E05 S39-S36
     19 1086  307 (S45E04 L=351)  1777    235        4 (1015/ 229-1175/ 374)  42.7 E11-W03 S52-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