Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1036 1640 (N46W13 L=236)   448    133        1 ( 976/1599-1085/1670) -40.6 W08-W15 N41-N48
      2  475 1607 (N52E45 L=178)   996    123        1 ( 407/1586- 537/1630)   3.2 E55-E36 N50-N53
      3  568 1546 (N46E30 L=193)   593    107        0 ( 527/1504- 617/1588) -32.5 E35-E24 N42-N49
      4 1513 1483 (N26W43 L=266)   355     46        0 (1491/1458-1533/1509)  56.3 W41-W45 N24-N27
      5  916 1463 (N35E01 L=222)  1581    423        1 ( 708/1423-1102/1488) -10.1 E16-W12 N30-N37
      6 1630 1355 (N16W47 L=270)  1180    188        3 (1569/1264-1668/1414) -84.3 W43-W50 N09-N19
      7 1103 1353 (N25W10 L=233)   421    179        0 (1042/1294-1141/1382) -33.7 W05-W12 N21-N26
      8 1837 1359 (N11W70 L=293)  1227    121        2 (1775/1325-1879/1382) -23.2 W62-W77 N07-N13
      9  491 1077 (N16E34 L=189)   276     98        0 ( 466/1028- 512/1124) -71.6 E35-E32 N12-N18
     10  212 1065 (N17E61 L=162)   929    118        3 ( 176/1016- 241/1110) -40.6 E65-E57 N13-N19
     11  283  987 (N12E53 L=170)  1345    279        2 ( 192/ 943- 405/1017)   0.0 E63-E41 N09-N13
     12  586  833 (S00E30 L=193)   258     55        0 ( 567/ 802- 610/ 853) -90.0 E31-E28 S01-N01
     13 1072  809 (S07E00 L=223)   199     49        1 (1051/ 783-1092/ 838)  56.3 E01-W01 S08-S05
     14  932  720 (S11E10 L=213)  1505    388        6 ( 847/ 623-1011/ 818) -81.3 E15-E05 S17-S04
     15  280  777 (S01E56 L=166)   664    141        0 ( 220/ 728- 334/ 813) -26.6 E62-E51 S04-N01
     16  280  719 (S05E58 L=165)   603     73        2 ( 254/ 678- 302/ 754)  68.2 E60-E55 S07-S02
     17 1467  711 (S20W24 L=247)   228     65        1 (1443/ 683-1486/ 744) -63.4 W22-W25 S21-S17
     18 1407  648 (S23W20 L=242)   395    114        1 (1374/ 599-1430/ 690) -90.0 W17-W21 S26-S20
     19 1204  665 (S18W06 L=229)   243    130        0 (1142/ 647-1258/ 689)   8.1 W02-W09 S19-S17
     20  324  632 (S11E57 L=166)   472    109        1 ( 287/ 611- 382/ 650) -11.3 E60-E50 S11-S09
     21 1103  576 (S23E02 L=221)  1323    264        4 ( 996/ 522-1218/ 644)   0.0 E09-W06 S25-S18
     22  424  568 (S15E50 L=173)   472     43        2 ( 398/ 536- 447/ 594)  63.4 E51-E47 S17-S13
     23  478  572 (S16E44 L=178)   282     59        0 ( 453/ 554- 511/ 589)   0.0 E46-E41 S16-S14
     24  632  529 (S20E34 L=189)   386     87        1 ( 608/ 491- 649/ 573)  50.2 E36-E31 S22-S16
     25  346  524 (S18E60 L=163)  1168    162        4 ( 296/ 481- 398/ 560) -35.5 E65-E54 S21-S15
     26  558  387 (S29E47 L=176)   368     36        0 ( 546/ 357- 571/ 414)  53.1 E49-E44 S31-S27
  

    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