Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1378 1701 (N45W43 L=223)   922    158        1 (1312/1657-1459/1727)  -3.4 W36-W53 N42-N45
      2 1004 1583 (N42W06 L=186)   313     80        1 ( 969/1561-1040/1604) -31.0 W03-W08 N40-N43
      3 1149 1457 (N31W14 L=194)   965    178        2 (1074/1406-1225/1511) -37.9 W09-W18 N27-N35
      4 1733 1427 (N20W60 L=240)   491     56        0 (1703/1409-1768/1443) -18.4 W56-W63 N19-N21
      5  299 1352 (N31E55 L=125)  1588    235        6 ( 198/1319- 398/1387)   0.0 E70-E44 N28-N33
      6 1752 1308 (N13W56 L=236)   705    140        1 (1692/1274-1818/1337) -24.4 W51-W62 N10-N15
      7 1609 1292 (N15W43 L=223)   258     86        0 (1582/1257-1633/1331) -68.2 W41-W44 N12-N17
      8  195 1199 (N21E64 L=116)  1822    190        4 ( 163/1110- 233/1293) -40.2 E73-E58 N16-N27
      9  106 1050 (N12E79 L=101)   945     54        1 (  92/1022- 124/1079) -45.0 E83-E73 N10-N13
     10  522  954 (N05E33 L=147)   478    103        0 ( 495/ 909- 550/1010) -71.6 E34-E30 N02-N08
     11  971  935 (N01E04 L=176)   229     89        0 ( 958/ 894- 985/ 985)  63.4 E05-E02 S01-N03
     12 1252  855 (S07W12 L=192)   261    101        1 (1215/ 819-1278/ 876) -63.4 W09-W13 S09-S05
     13 1658  824 (S14W41 L=221)   331     79        1 (1626/ 791-1685/ 859)  36.9 W37-W42 S15-S12
     14  505  708 (S10E37 L=143)   406     71        0 ( 474/ 668- 532/ 754) -71.6 E38-E35 S12-S06
     15 1814  662 (S28W60 L=241)   582    101        2 (1785/ 617-1829/ 716) -81.9 W57-W62 S31-S24
     16  889  552 (S23E14 L=166)   756    224        1 ( 842/ 473- 928/ 657)  69.0 E17-E10 S28-S15
     17  397  586 (S17E50 L=130)   791    106        1 ( 358/ 542- 432/ 627) -71.6 E52-E47 S20-S14
     18  496  582 (S18E41 L=139)   273     55        0 ( 474/ 550- 517/ 608) -76.0 E42-E39 S19-S15
     19 1074  421 (S34E03 L=177)  3073    538        6 ( 898/ 343-1217/ 587)  22.2 E15-W07 S39-S23
     20  486  438 (S28E49 L=131)   598     93        0 ( 453/ 412- 531/ 471) -45.0 E51-E44 S29-S25
     21 1532  324 (S51W41 L=221)  1036    111        3 (1485/ 303-1587/ 345)  -3.8 W34-W49 S54-S48
     22 1439  306 (S51W30 L=210)   391     30        1 (1424/ 286-1460/ 327) -76.0 W26-W32 S52-S48
     23 1271  241 (S54W12 L=192)  1951    247        3 (1166/ 204-1393/ 300)   4.8 W01-W25 S57-S49
  

    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