Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1081 1827 (N52W43 L=279)   530     74        0 (1061/1790-1099/1864)  24.4 W37-W49 N49-N55
      2 1377 1818 (N39W65 L=301)   582     58        2 (1351/1785-1399/1846)  16.7 W60-W71 N37-N40
      3  995 1801 (N54W34 L=270)   324     21        0 ( 975/1780-1014/1820)   8.1 W30-W37 N52-N55
      4  909 1751 (N54W22 L=258)   299     40        1 ( 892/1725- 926/1774)  26.6 W19-W25 N52-N56
      5 1629 1525 (N15W57 L=292)  1669    270        5 (1548/1410-1689/1621)  82.4 W52-W61 N07-N22
      6 1354 1528 (N24W37 L=272)   270     85        1 (1316/1509-1390/1557) -59.0 W35-W38 N22-N27
      7 1743 1529 (N11W69 L=305)   694     72        2 (1707/1505-1772/1554) -45.0 W66-W72 N08-N13
      8 1737 1475 (N09W64 L=299)   570     85        0 (1713/1443-1772/1508) -68.2 W61-W66 N06-N11
      9 1115 1396 (N24W16 L=252)   279     89        0 (1100/1349-1135/1438)  68.2 W15-W18 N21-N26
     10  690 1400 (N37E11 L=225)  1111    300        1 ( 543/1378- 819/1420) -18.4 E22-E01 N32-N39
     11 1491 1309 (N08W35 L=271)   271    104        0 (1440/1288-1522/1344)   0.0 W31-W38 N07-N09
     12  938 1168 (N16E01 L=235)   525    253        0 ( 818/1143-1049/1206) -15.9 E08-W06 N14-N18
     13 1157 1101 (N07W09 L=245)   269     94        1 (1120/1072-1189/1131) -63.4 W08-W11 N04-N09
     14  581 1098 (N21E25 L=211)   764    207        2 ( 488/1066- 689/1122) -12.1 E31-E17 N19-N23
     15 1725 1023 (S14W43 L=279)   296     92        0 (1691/1003-1755/1061)   0.0 W40-W47 S15-S12
     16  233  964 (N21E57 L=179)   418     98        1 ( 208/ 927- 265/1012) -50.2 E59-E53 N18-N24
     17  551  977 (N15E29 L=206)   526    188        0 ( 497/ 922- 638/ 997)   0.0 E34-E23 N13-N16
     18  160  868 (N16E69 L=167)  1276    136        1 ( 102/ 825- 204/ 906) -15.5 E81-E63 N13-N18
     19 1888  856 (S31W61 L=296)   785    103        2 (1852/ 827-1923/ 900)   4.4 W54-W67 S32-S28
     20 1411  730 (S21W15 L=250)   247    110        0 (1386/ 683-1443/ 772)  38.7 W12-W17 S23-S19
     21 1654  536 (S44W31 L=267)  1890    251        3 (1560/ 456-1736/ 646)  25.2 W21-W40 S47-S37
     22  607  401 (S20E46 L=189)   396     80        0 ( 593/ 362- 619/ 439)  51.3 E48-E43 S22-S17
     23 1397  361 (S47W05 L=240)  1087    242        4 (1306/ 301-1508/ 434)   3.0 E04-W15 S49-S44
     24 1094  180 (S52E31 L=205)   745     96        2 (1045/ 160-1142/ 203) -23.2 E35-E26 S53-S48
  

    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