Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1651 (N25W55 L=197)   714    118        1 (1455/1631-1577/1673) -36.9 W50-W58 N22-N28
      2 1485 1613 (N24W49 L=191)   319     81        1 (1445/1586-1521/1632) -53.1 W46-W50 N21-N25
      3 1458 1518 (N20W41 L=184)   822    195        1 (1364/1487-1546/1555) -14.9 W33-W48 N17-N22
      4 1298 1371 (N16W25 L=168)   787    221        2 (1268/1273-1324/1478)  57.5 W22-W30 N10-N21
      5  984 1413 (N27W08 L=151)   217     50        0 ( 951/1399-1016/1428) -45.0 W06-W09 N25-N28
      6 1733 1271 (S01W51 L=194)  1432    291        2 (1655/1126-1769/1366)  81.9 W47-W53 S09-N05
      7  762 1317 (N27E08 L=135)   403     56        1 ( 731/1289- 797/1348)  11.3 E10-E05 N25-N28
      8 1845 1230 (S07W61 L=203)  3934    268        6 (1795/1127-1915/1343) -85.6 W55-W69 S13-N00
      9 1786 1018 (S16W49 L=191)  5181    545       16 (1672/ 790-1882/1219)  71.6 W38-W60 S29-S05
     10  855 1174 (N16E06 L=137)   205     35        0 ( 825/1159- 879/1192)   0.0 E07-E04 N15-N17
     11  326  790 (N07E50 L= 93)  5094   1075       16 (  83/ 463- 648/1161) -54.2 E81-E37 S18-N32
     12  340 1060 (N22E43 L=100)   995    212        0 ( 304/ 988- 401/1157) -74.7 E45-E39 N16-N27
     13 1636 1058 (S10W37 L=180)   303     79        1 (1605/1023-1666/1085)  11.3 W34-W39 S11-S08
     14 1127  792 (S11E00 L=143)  3172    802        4 ( 899/ 544-1274/1065)  32.3 E19-W11 S19-N03
     15  633  990 (N11E23 L=120)   262     67        1 ( 604/ 964- 650/1023)  14.0 E25-E21 N10-N13
     16 1638  888 (S19W34 L=176)   315     84        2 (1617/ 844-1664/ 922)  36.9 W31-W36 S21-S17
     17 1359  643 (S26W10 L=153)  1618    455        1 (1153/ 540-1525/ 743)   4.2 E05-W22 S27-S23
     18 1880  707 (S40W62 L=204)   949     95        1 (1855/ 676-1917/ 730)  -4.1 W57-W72 S41-S37
     19  598  612 (S09E36 L=107)   305     53        0 ( 575/ 584- 622/ 647) -90.0 E37-E34 S10-S06
     20  287  562 (S06E64 L= 79)  1375    103        5 ( 244/ 507- 332/ 612)  66.8 E68-E58 S09-S02
  

    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