Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1133 1634 (N41W26 L=128)  1108    193        2 (1087/1569-1180/1709)  59.0 W20-W33 N35-N45
      2 1329 1678 (N38W43 L=145)   455     74        1 (1297/1652-1371/1698)  -8.1 W39-W47 N36-N39
      3 1545 1658 (N30W59 L=162)   803     99        2 (1499/1631-1595/1678)  -4.4 W53-W66 N28-N31
      4 1702 1550 (N19W66 L=168)   720    102        1 (1652/1516-1750/1577) -29.1 W62-W72 N16-N21
      5 1194 1420 (N26W20 L=123)  1108    279        3 (1119/1350-1292/1510) -69.0 W16-W24 N19-N32
      6 1744 1454 (N13W63 L=165)   790     98        0 (1713/1399-1769/1492)  71.6 W61-W66 N09-N15
      7  967 1300 (N24W03 L=105)   251     42        0 ( 943/1278- 998/1322) -33.7 W01-W04 N22-N25
      8  612 1222 (N27E22 L= 80)   732    259        3 ( 526/1125- 694/1297) -52.4 E28-E17 N19-N33
      9  911 1086 (N13E05 L= 97)   265    118        0 ( 894/1036- 941/1143)  51.3 E06-E02 N10-N15
     10  251 1109 (N26E55 L= 47)   384     61        1 ( 237/1067- 267/1141) -76.0 E56-E52 N23-N27
     11 1128 1080 (N08W07 L=109)   412    170        1 (1051/1062-1209/1106) -18.4 W02-W11 N05-N09
     12 1336 1005 (S01W17 L=120)   249     86        0 (1290/ 988-1372/1027)   0.0 W14-W20 S01-N00
     13  400  938 (N14E42 L= 60)   674    218        1 ( 344/ 872- 440/ 991)  26.6 E46-E37 N09-N16
     14 1898  871 (S25W63 L=166)  1801    188        3 (1850/ 785-1941/ 947)  28.3 W56-W72 S29-S21
     15  171  859 (N11E67 L= 35)  1251    169        1 ( 133/ 783- 205/ 924) -52.1 E72-E63 N06-N15
     16 1548  890 (S13W29 L=131)   318     64        0 (1522/ 865-1584/ 908)   0.0 W26-W31 S13-S11
     17  894  823 (S02E12 L= 91)   315     82        0 ( 871/ 778- 915/ 860) -90.0 E12-E10 S04-N00
     18 1352  794 (S13W14 L=117)   445    123        0 (1324/ 750-1377/ 849)  80.5 W12-W15 S15-S09
     19 1709  820 (S21W40 L=143)   399    132        1 (1667/ 787-1734/ 847)   0.0 W36-W42 S23-S19
     20 1695  732 (S27W39 L=141)   435     77        0 (1669/ 699-1723/ 768)  36.9 W36-W41 S28-S24
     21 1424  743 (S18W18 L=120)   281     40        0 (1396/ 720-1445/ 760) -56.3 W16-W19 S19-S16
     22 1433  484 (S36W15 L=117)  1967    312        2 (1344/ 375-1547/ 589)  29.1 W06-W24 S42-S30
     23  686  505 (S17E33 L= 69)   804    195        2 ( 624/ 444- 745/ 584)  36.0 E39-E27 S20-S12
     24  553  459 (S18E45 L= 57)   595     96        1 ( 508/ 433- 597/ 490) -38.7 E47-E41 S20-S15
     25 1118  340 (S38E11 L= 91)  3279    559        7 ( 909/ 227-1358/ 434)   5.7 E32-W08 S42-S34
     26 1276  167 (S63E08 L= 94)   678     86        0 (1236/ 149-1320/ 186)   0.0 E12-E01 S66-S60
  

    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